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rei Monate ist es her, seit 

Schneider den Einstieg in die 

PC-Klasse wagte. Wie man 
heute sieht - mit Erfolg. Die etwas mehr 
als 30000 Computer, die 1986 noch 
verkauft werden sollten, haben in nur 
n Wochen ihren Weg zum Käu- 
'unden. Wer in der letzten Zeit 
noch ein Geräthaben wollte, mußte sich 
damit begnügen, auf die Warteliste ge- 
setzt zu werden. Erinnern Sie sich, wie 
1984 der CPC 464 auf dem deutschen 
Markt eingeführt wurde? 

Aber die Wogen des ersten Ansturms 
auf den PC glätten sich und der Schnei- 
der CPC tritt wieder aus dem Schatten 
seines großen Bruders. Mit einem Preis 
von knapp 1000 MarkistderCPC 6128 
für den Hobbyisten sicher das geeig- 
netere Gerät. Und was man mit so einem 
»Kleinen« alles machen kann! Auf den 
164 Seiten des inzwischen 6. Schnei- 
der-Sonderhefts von Happy-Computer 
gibt es wieder für jeden etwas. Wir 
haben uns die Umfragen aus den letz- 
ten beiden Schneider-Sonderheften zu 
Herzen genommen und Ihre Anregun- 
gen gezielt berücksichtigt. 

Fast jeder unserer Leser will noch 
mehr Tips&Tricks zu seinem Computer. 
Wir haben also wieder alle gefragt, die 
sich mit Schneider, mit CP/M oder mit 
MS-DOS auskennen, ob sie wieder 
Wissenswertes weitergeben wollen. 
Und wie sie wollten! 

Wer seinen Computer nicht nur für 
das Hobby, sondern auch professionell 
benutzen will, der findet einen Termin- 
kalender, eine universelle Dateiverwal- 
tung und für Mathe-Fans eine komplette 
Fourier-Analyse. Spiele und Utilities 
runden das Angebot an Listings ab. 

Falls das Thema eines Programms 
Sie nicht interessiert, schauen Sie es 
sich trotzdem einmal an. Alle Pro- 
gramme überzeugen nicht nur durch 
ihre Leistungsfähigkeit, sondern auch 
durch ihren trickreichen Aufbau. So ler- 
nen selbst absolut Mathe-Unlustige bei 
der Fourier-Analyse einiges dazu. 

Jeder zweite unserer Leser will mehr 
Informationen über neue Produkte. 


Eigentlich unverständlich, da im 
Stammheft der Happy-Computer alles 
vorgestellt wird, was es Interessantes 
für Schneider gibt. Nichtsdestotrotz 
haben wir die wichtigsten Neuerschei- 
nungen der letzten drei Monate zusam- 
mengefaßt. Ein Blick auf diese Produkt- 
vorstellungen sagt Ihnen mehr als die 
sonst üblichen Kurzbeschreibungen. 

Eigentlich wollten wir Ihnen in diesem 
Heft auch ausführliche Informationen 
über die MS-DOS-Karten für die Schnei- 
der CPC geben. Dochleider blieben die 
Bemühungen der Entwicklungsinge- 
nieure hinter den Wünschen der Ver- 
kaufschefs zurück. Die Frage vieler 
Schneider-Fans, ob sie jetzt umsteigen 
sollen, sich einen Zweit-Computer oder 
den schon vorhandenen aufrüsten sol- 
len, bleibt weiterhin offen. Der erste 
Emulator ist inzwischen ausverkauft. 
Der Hersteller in Aachen arbeitet an 
einer Neuauflage der Serie. Und auch 
die württembergische Konkurrenz ist 
noch am »basteln«. Dieses Thema müs- 
sen wir also zwangsläufig für eine der 
nächsten Ausgaben von Happy-Com- 
puter aufsparen. 

»In der Happy-Computer steht ja nur 
sehr wenig über den Schneider CPC!«, 
lautet eine andere, oft gehörte Kritik. 
‚Aber stimmt das wirklich? Mehr als 20 
Seiten Spieletests, jede Menge CP/M- 
Tips, die Wordstar-Werkstatt (um nur 
eins der vielen Software-Themen anzu- 
sprechen) oder alles über Drucker, 
DFÜ und so weiter - das sind alles The- 
men der Happy-Computer, die ausführ- 
liche Informationen bieten. 

Nun aber viel Spaß mit dem neuesten 
Schneider-Sonderheft. Sagen Sie uns, 
was wir besser - oder weiter so - 
machen sollen. Jeder Ihrer Briefe wird 
beantwortet. Denn nur mit Ihrer Hilfe 
können wir über das berichten, was Sie 
lesen wollen. Ihre Meinung heute ist 
unsere Grundlage für das Sonderheft 
von morgen. Den aktiv mitwirkenden 
Lesern am nächsten Sonderheft sagen 
wir heute schon Danke. 

Ihr 
Andreas Hagedorn 
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Multitalent 
für Schneider CPC 


Eine universelle Hardware-Erwei- 
terung, passend für alle CPC- 
Modelle, hat Philosoft entwickelt. 
Die höchste Ausbaustufe enthält 
32 KByte leistungsfähige Soft- 
ware, eine serielle Schnittstelle 
und ein EPROM-Programmier- 
gerät. 


PC-Besitzer, die Ihren Computer 

ausbauen möchten, kennen das 

Problem: Jede Funktion (Schnitt- 
stelle, Zusatzspeicher etc.) erfordert 
seine eigene Erweiterung. Beim An- 
schluß mehrerer Erweiterungen an den 
CPC ist der Kabelsalat perfekt. Die aus- 
baufähige Hardware-Erweiterung von 
Philsosoft schafft Abhilfe. Sie vereinigt 
mehrere Funktionen, die ein engagier- 
ter Anwender benötigt, auf einer einzi- 
gen Platine. 

Die Grundausstattung zum Preis von 
270 Mark besteht aus einer teilweise 
bestückten Platine, die auf vier Bein- 
chen steht und über ein Flachbandka- 
bel mit dem Erweiterungsanschluß des 
CPC verbunden wird. Alle Leitungen 
des Erweiterungsanschlusses sind 
durchgeschleift, so daß zusätzliche 
Peripherie (Laufwerk, Digitalisierer, 
etc.) an die Platine angeschlossen wer- 
den kann. Zur Dokumentation sind zwei 
Handbücher beigelegt. 

Positiv fällt auf, daß für den Schal- 
tungsaufbau ausschließlich hochwer- 
tige Bauelemente verwendet wurden. 

In der Grundausstattung ist die Pla- 
tine mit einem 32 KByte EPROM, der 
ein eigenes Betriebssystem und meh- 
rere Anwendungsprogramme enthält, 
vier ICs und einigen anderen Kleinteilen 
bestückt. Für die Nachrüstung einer 
seriellen Schnittstelle und eines 
EPROM-Programmiergeräts sind be- 
reits alle Leiterbahnen, Anschlüsse und 
Bohrungen vorhanden. 

Das EPROM arbeitet als Erweite- 
rungs-ROM für das Betriebssystem des 
CPC. Die vier ICs bilden eine Decodier- 
logik, die den Zugriff des CPC auf das 
EPROM regelt. Nach dem Einschalten 
des CPC führt das Betriebssystem eine 
Initialisierung durch. In dieser Phase 
wird der Erweiterungsanschluß nach 
zusätzlichen ROMs abgefragt. Das 
EPROM wird über die Decodierlogik 
erkannt und in das Betriebssystem ein- 
gebunden. 


Din. MOMEZONPETERWORLD. 


Das Betriebssystem unterscheidet 
die Erweiterungs-ROMs durch eine 
Erkennungsnummer. Wenn neben dem 
EPROM noch weitere ROMs ange- 
schlossen sind (zum Beispiel das Dis- 
ketten-ROM) und sich die Nummern 
überschneiden, kann man die Nummer 
des EPROMs über einen Jumper 
(steckbare Drahtbrücke) verändern. 

Der Aufruf des EPROMs aus dem 
Basic des CPC heraus erfolgt über 
einen kurzen RSX-Befehl. Hierdurch 
gelangt man in eine CP/M-ähnliche Pro- 
grammierebene, wo dem Programmie- 
rer 24 teilweise Basic-kompatible Be- 
fehle zur Verfügung stehen. Beim An- 
schluß eines Diskettenlaufwerks kön- 
nen zusätzlich 13 Befehle des Amsdos 
genutzt werden. 


Alles was das Herz 
begehrt 


Neben den Systembefehlen enthält 
das EPROM vier leistungsfähige An- 
wendungsprogramme. Die Programme 
rufen Sie aus der Systemebene durch 
Eingabe eines Befehls auf. Der Pro- 
grammstart erfolgt augenblicklich, da 
lediglich ein Sprung an eine bestimmte 
EPROM-Adresse notwendig ist. Durch 
eine Aktivierungsmeldung und Ausga- 
be eines Prompts zeigt jedes Pro- 
gramm seine Betriebsbereitschaft an. 

Mit dem Befehl EDIT starten Sie 
ein komfortables Textverarbeitungspro- 
gramm (96 Kommandos), das zu 


Die vollständig 
ausgebaute 
Erweiterung 

mit Handbüchern 


»Wordstar« weitgehend kompatibel ist. 
Auch das Format, das Wordstar beim 
Speichern von Texten benutzt, wird ver- 
wendet. Dadurch lassen sich Texte zwi- 
schen beiden Progammen austau- 
schen. Verschiedene Schriftarten wer- 
den bereits auf dem Bildschirm ange- 
zeigt! Das Handbuch erläutert die 
Bedienung des Textverarbeitungspro- 
gramms knapp, aber ausreichend. Die 
Anpassung an verschiedene Drucker- 
typen wird ausführlich beschrieben. 

Wenn Sie in Maschinensprache pro- 
grammieren, leistet Ihnen der leistungs- 
starke Assembler wertvolle Hilfe. Der 
Befehlssatz ist zum Assembler »Ma- 
cro-80« von Microsoft kompatibel, nur 
Makros verarbeitet er nicht. Das Hand- 
buch geht auf über 50 Seiten intensiv 
auf die Programmierung des Assem- 
blers ein. 

Ein Programm, das sich Z80-Tester 
nennt, arbeitet wie ein komfortabler 
Maschinensprache-Monitor. Zusätzli- 
che Befehle erlauben die Kommunika- 
tion mit Speichern und Ports (Tore zu 
Erweiterungen) und bieten software- 
mäßig die Grundlagen zur Programmie- 
rung von EPROMs. Die Nachrüstung 
eines EPROM-Programmiergeräts wird 
damit unterstützt. 

Ein kompaktes Terminalprogramm 
sorgt für die serielle Datenübertragung. 
Dieses Programm verhält sich kompati- 
bel zu »Modem7« und »XModem« und 
erlaubt bei Nachrüstung der seriellen 
Schnittstelle RS232C die Kommunika- 
tion mit Mailboxen und anderen Com- 
putern. 
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Der Hersteller betont, daß das 
gesamte EPROM nur 24 Byte im RAM 
des CPC belegt, so daß der Arbeits- 
speicher nicht wesentlich verkleinert 
wird. Neue EPROM-Versionen erhält 
‚der Anwender gegen eine Aufwands- 
entschädigung zugeschickt. Erweite- 
rungen mit eingelöteten EPROMs kann 
man einsenden und neu programmie- 
ren lassen. 


Friedliche 
Aufrüstung 


Für jeweils 110 Mark rüstet Philosoft 
das EPROM-Programmiergerät, bezie- 
hungsweise die serielle Schnittstelle, 
nach. Die Dokumentation zu der Erwei- 
terung beschreibt, wie der Anwender 
Sie Schaltung selbst ausbauen kann. 
Ein Bestückungsplan, Bauteillisten und 
Angaben zur Einstellung der Jumper 
sichern dem Bastler den Erfolg beim 
Aufbau. Die Garantie erlischt allerdings 
beim Selbstbau, und Kenntnisse im 
Löten von ICs sind unbedingt erforder- 
ich. 


Das EPROM-Programmiergerät er- 
Bubt die Programmierung der EPROM- 
Typen 2716 bis 27256. Der gewählte 
EPROM-Typ wird hardwaremäßig über 


Jumper und auf der Softwareseite über 
den SELECT-Befehl im Z80-Tester ein- 
gestellt. Die Programmierspannung von 
12,5 beziehungsweise 21 Volt erzeugt 
ein Spannungsregler auf der Platine. 
Dadurch erübrigt sich eine externe 
Spannungsversorgung. 

Einen gewichtigen Nachteil des 
EPROM-Programmiergeräts macht 
aus, daß ein Sockel zum Anschluß 
eines neugebrannten EPROMs an den 
CPC fehlt. Entweder baut sich der 
Benutzer eine eigene Schaltung zum 
Anschluß des EPROMSs als Erweite- 
rungs-ROM, oder er kauft eine ROM- 
Modulbox, in die er den Baustein nur 
noch einzusetzen braucht. 

Die serielle Schnittstelle RS232C ist 
vollständig kompatibel zur seriellen 
Schnittstelle von Schneider. Der An- 
schluß des Kabels zur Datenübertra- 
gung erfolgt über eine 25polige SUB- 
D-Buchsenleiste (Standardanschluß 
einer RS232C). 

Die maximale Baudrate beträgt 
31250 Baud. Der Baudraten-Wert für 
den Schnittstellenbaustein berechnet 
sich, indem der Wert 31 250 durch die 
gewünschte Übertragungsrate geteilt 
wird. Das Ergebnis dieser Division kann 
jedoch nur ganzzahlig sein, so daß bei 
Baudraten über 2400 Baud, die kein 
ganzzahliges Vielfaches haben, das 


annähernd 31250 beträgt, größere 
Abweichungen entstehen. 

Zu der Erweiterung wird kein 
Gehäuse geliefert. Den Freak wird das 
nicht stören, doch jeden ordnungslie- 
benden Anwender befriedigt diese 
Lösung nicht. Wer will, kann die Schal- 
tung jedoch ohne viel Aufwand in ein 
preiswertes Kunststoff-Kleingehäuse 
einbauen. Die Grundausbaustufe in 
Verbindung mit einem CPC-Modell 
ohne Speichererweiterung erlaubt 
sogar den internen Einbau, indem die 
Schaltung am Erweiterungsanschluß 
aufgesteckt und nach innen auf die 
Computerplatine umgeklappt wird. Dar- 
auf muß das Gehäuse nur noch vorsich- 
tig zusammengeschraubt werden. 

Alles in allem ist die Philosoft- 
Erweiterung trotz der erwähnten klei- 
nen Schwächen jedem CPC-Besitzer 
zu empfehlen, der nicht nur mit seinem 
Gerät spielen und kleinere Aufgaben 
erledigen will, sondern professionell 
Texte verarbeiten, Assembler program- 
mieren und austesten, Datenfernüber- 
tragung betreiben sowie EPROMs mit 
eigener Software herstellen möchte. 

(ma) 


Philosoft, Pariser Platz 2, 8000 Müncheı 
089/4482601 


Typenrad-Drucker 
für Schneider 


Knapp 700 Mark kostet der SD15 von 
‚Schneider Data. Nicht für jeden Zweck 
stein Matrix-Drucker die beste Lösung. 
Besonders bei »offiziellen« Schrift- 
Stücken, den Brief an das Finanzamt 
oder der Vereinsverwaltung, macht das 
Punktmuster nicht den besten Ein- 
Sruck Ein Typenrad-Drucker hingegen 
Feier ein Schriftbild, wie Sie es von 
@ner elektrischen Schreibmaschine 
her gewohnt sind. Den Computer dahin- 
ler erkennt niemand mehr. 

Der Drucker besitzt eine serielle und 
eine parallele Schnittstelle. Damit ist er 
auch für andere Computer als den 
Schneider CPC problemlos anzusteu- 
ern. 

Den größten Wert legte der japani- 
sche Hersteller, der das von Schneider 
Data angebotene Gerät produziert, auf 
Bedienungskomfort. So lassen sich alle 
DIP-Schalter, mit denen man zwischen 
den einzelnen Schnittstellen hin- und 
herschaltet, ohne Demontage des Ge- 
häuses erreichen. Auch der Farbband- 
wechsel geht ohne schmutzige Finger 
vonstatten. 
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Der SD15 beherrscht alle üblichen 
Steuercodes, wie Fett- und Schatten- 
druck. Serienmäßig liegt ein deutsches 
Typenrad bei, andere können aber pro- 
blemlos eingesetzt werden. 

Für ein Typenradgerät ist der SD15 
relativ schnell und leise. Allerdings darf 


Ausnahmsweise 
leise: Typenrad- 
drucker SD15 


man nicht vergessen, daß diese beiden 
Punkte nicht zu den starken Seiten sol- 
cher Geräte zählen. 15 Zeichen pro 
Sekunde sind hier schon viel. (hg) 


Schneider Data, Am Rindermarkt 4, 8050 Freising, Telefon: 
08161/2877 


Vortex-Schnittstelle 


Mit einem neuen RS232-Interface 
wartete Vortex vor kurzem auf. Es ist 
einzeln für 298 Mark zu haben undheißt 
schlicht »RS-Modulk. In Verbindung mit 
einem X-Laufwerk des gleichen Her- 
stellers lautet die Bezeichnung »XRS- 
Modul« und es kostet nur noch 100 
Mark Aufpreis gegenüber dem einfa- 
chen X-Controller. Genau diese 100 
Mark zuzüglich 10 Mark Bearbeitungs- 
gebühr zahlen Besitzer eines X- 
Laufwerksfür den AustauschihresCon- 
trollers gegen die RS232-Version. Die 
Schnittstelle ist mit einem reichen 
Vorrat von RSX-Befehlen in das 
Locomotive-Basic eingebunden. Dar- 
über besteht volle Kompatibilität zur 
seriellen Schnittstelle von Amstrad 
(nicht jedoch zum Schneider-Interface, 
das über keine Basic-Einbindung ver- 
fügt), denn deren Befehlswortschatz ist 
eine Teilmenge der Kommandovielfalt 
des RS-Moduls. Auf der Maschinen- 
sprach-Ebene endet allerdings jegliche 
Kompatibilität. Auch unter CP/M ist das 
Interface anzusprechen. Zum Liefer- 
umfang gehört ein Terminalprogramm 
für dieses Betriebssystem. Eine Über- 


BLOW 
(siehe Befehl SUCK) 


ASCII-Datei intelligent senden 


sicht der Befehle finden Sie in der 
untenstehenden Tabelle. Positiv fiel uns 
auch der Umfang und die Qualität des 
deutschsprachigen Handbuchs auf. Es 
liefert eine so umfassende Information 


SETBLOCKEND 


Im Gehäuse 

des XRS-Moduls 
findet auch 

der Controller der 
Schneider-3-Zoll- 
Laufwerke Platz 


zu diesem Produkt, wie wir sie selten in 
den Händen hatten. (ja) 


Vortex Computersysteme, Falterstraße 1-5, 7101 Flein, 
Telefon 07131/52081 


Blockende-Kennung definieren 


OUTFILE 


Inhalt einer ASCII-Datei senden 


PARALLEL 


Druckausgabe auf Centronics-Port 


z | _SETENDFILE Dateiende-Kennung definieren 

BREAKSEND Break senden, wenn der Sendepuffer leer ist SEISIO EESE FE meter enztelen 
CHANNEL Kanalwahl (arbeitet nur in Verbindung mit SEFNESET Re TESTER ee 

neuer SP plus-Erweiterung oder neuem seh 2 

FFDC plus-Controller) SERIAL Druckausgabe über RS232 leiten 
SR SEE (für PRINT #8 und LIST #8) 
COUNTER Zähler des Timers direkt einstellen eo SermiStej RE SNEITe JarReND 

(für exotische Baudraten) SUCK Empfang einer ASCII-Datel, die einanderer |- 
ETRLACTION Steuerzeichen interpretieren (ausführen) SEO m dm BETH ETEEH Eee 
CTRLDISPLAY Steuerzeichen darstellen TFRMNNE en a er 

(als ASCII-Zeichen) ee 
FULLDUPLEX stellt nur die empfangenen Zeichen auf (zur Datenübertragung) 

Lusiieicie Siku XON XON/XOFF-Protokoll aktivieren 
HALFDUPLEX stellt auch über die Tastatur eingegebene FERSFESEO SCENES 

Lese (arbeitet wie BLOW und SUCK) 
INBLOCK Zeichenkette lesen WERTET 

si je Befehle 
INCHAR einzelnes Zeichen lesen aRE SER — SEE 
|-Basisadresse eines Erweiterur - 

INFILE gelesene Daten als Datei speichern = Bo dr 
INITSIO Schnittstelle initialisieren ROMCAT Katalog aller angeschlossenen ROMS 
Nee BEN PER EEE IEPSISPNÜRBERESKEN) ROMOFF Alle oder einzelne Hintergrund-ROMs 
OUTBLOCK Zeichenkette senden ausschalten 
OUTCHAR einzelnes Zeichen senden STATUS Basic-Programmstatus ausgeben (HIMEM, 


Programmstart, -ende, -länge, verfügbarer 
Speicherplatz und Zeichendefinition) 


VERSION 


RINGWAIT 


‚auf »Ring detect«-Meldung warten 


Versions-Nummer und Updating-Datum des 
Interface-ROMs ausgeben 


Tabelle. Das Vortex-RS-Modul bietet eine Vielzahl Befehle von 
der Parametereinstellung bis hin zur Übertragung kompletter Dateien 
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Top-Listings dieser Ausgabe: 


Anwendungen: 

Datafine: Eine relative Dateiverwaltung mit tollen Leistungsmerkmalen 

Termin: Verwalten Sie Ihre täglichen Termine einfach mit dem Computer. 

Gis Immer im Bilde über den Stand des Girokontos. Um regelmäßige Buchungen 
Brauchen Sie sich dabei nicht zu kümmern. 

Backup: Das einzige wirklich universelle Kopierprogramm für alle Speichermedien. 
Auch der Transfer vom einen zum anderen ist kein Problem. 


Spiel, 
‚Softchef: Führen Sie Ihre eigene Softwarefirma in die Gewinnzone, indem Sie die 
Schtigen Programme einkaufen und geschickt vermarkten. 


'schirm-Textausgaben in jeder beliebigen Größe, 
jer Kompressor für alle Speicherinhalte hilft Ihnen, kostbaren Speicherraum 


Sinzusparen. 
Disk Plus: Neue Befehle erlauben vielfältige Manipulationen der Disketten. 


1 Diskette für Schneider-Computer * 
Bestell-Nr. 25713 (sFr 29,50/6S 349,*) DM 34,90 


Weitere Stammhefte zum Thema 


Schneider-Computer 


Happy-Computer, Ausgabe 12186 

Beisein. Wertet Ihre Spielkarten des Bild-Goldregen-Spiels aus. Screen-Compressor. 
Speichen Bildschirminhalte platzsparend und mit erheblichem Geschwindigkeitsgewinn. 
Se Haben dabei die Wahl zwischen ganzen Bildschirmen, Ausschnitten und Windows. 
Msrsin. Kleal für Textverarbeitung: Verwenden Sie auf dem Bildschirm denselben kursiven 
Zesensatz wie auf dem Drucker. Super-CLS. Neuer RSX-Befehl zur efiektvollen Bild- 
sesesöschung. Newgosub. Ein Patch des GOSUB-Befehls erlaubt strukturierte Basic- 
Fsgpamierung mit Unterprogrammnamen (nur GPC 464). DEC$-Patch. Endlich die per- 
ee Abnate für einen Fehler im Basic-Interpreter des CPC 464: Die Syntax des Befehls 
BEIS ist nun korrigiert und somit kompatibel zu den beiden anderen CPC-Modellen (nur 
PC #84) Public-Domain. Als besonderen Leckerbissen bieten wir Ihnen verschiedene 
Fee Domain-Programme. Darunter finden Sie je einen Interpreter der Kl-Sprachen Lisp 
ee Prolog mit Dokumentation und Beispielen sowie einen Forth-Compiler und einen Makro- 
== 


4 Dinkette für Schneider-Computer 
Beeiie. IH 8612 SD 


DM 34,90 * sFr 29,50185 348,° 


Happy-Computer, Ausgabe 11186 
Ds Lens es Monats in Ausgabe 11. Mit fantastischen Spielmöglichkeiten und eigenem Spiel- 
=> Osacrat-Kiler. Taktisches Spiel mit völig neuer Grundidee für zwei Personen und mit 
54 esiesenen Varianten (10/86). Giro. Behalten Sie mit Ihrem CPC den Stand Ihres Giro- 
Morton Aue 11/86), Modem. Terminalprogramm zur Datenfernübertragung mit Akustikkoppler 
7962) Tapsmonitor. Dieses Monitorprogramm verhilft Ihnen zum Einblick in Daten, die auf 
KasseHertend gespeichert sind. Teilweise zerstörte Dateien lassen sich damit wieder rastaurie- 
== (10EB) DisRSX. Neue RSX-Befehle enweitern Ihren Zugriff auf Disketteninhalte Das 
Demonsielionsprögramm erweitern Sie leicht beispielsweise zum leistungsstarken Kopier- 
Programmen für geschützte Diskettenprogramme (10/86). Unerase. Macht versehentich mit ERA 
39öscht= Dieketendatelen menügesteuert per Tastendruck wieder zugänglich (10/86). 

1 Diskette für Schneider-Computer 
Bestell-Nr. LH 8611 SD 


DM 34,90*IsFr 29,50165 349, 
"inkl.MwSt. Unverbindliche Preisempfehlung. 


2 Kassetten für Schneider-Computer 
Bestell-Nr. LH 8612 SK 
DM 34,90*larr 20,50185 349, 


1 Kassette für Schneider-Computer 
Bestell-Nr. LH 8611 SK 


DM 34,90*Isrr 29,50165 340 


Bestellungen bitte a 


Programme aus früheren Happy-Ausgaben 


Ausgabe Thema Bestei-ir. DM er os 
12/86 Schneider LHBE12 SD Diskette 34,90: 20,50 34, 
LHB6128K 2 Kassetten 3490: 20,50 340 

TBB Schneider LHEEIISD Diskette 34.90° 2050 340, 
LHBEIISK Kassette 3490: 2050 340, 

986 _Schnekter LH 8809 SD Diskelte 340° 20,50 340. 
LH 8009 SK Kassette 3480" 2950 34 

TIB6 Schneider LH8607 SD Dikete A400" 20,50 340, 
4186 Schneider LH 8604 SD Diskette 20,90° 2490 200, 
LH 8604 SK Kassette ’ 29,90° 24,90 299,” 

12/85 Schneider 1H8512D Diskette 34.00: 2050 20- 
Kassette , 299," 


IH 85126 29,90" 24,90 


Programme aus früheren Happy-Sonderheften 


Ausgabe Thema Bestellnr. DM sFr os 

10/86 Schneider LHSBSIOD Diskette 3400: 20,50 
LHEGSIOK 2 Kassetten 3490: 29,60 

7186 Schneider LH 8687 SD Diskette 3490° 29,50 
LHBOSTSK Kasete 3490" 29,50 

4186 Schneider Ln80S4D Diskette 3490” 29,50 
[u BUS Kassette 29,90° 24,90. 299, 

86 Schneider LHEESID Diskette 3490* 20,50 30. 
IHBOSIK Kae 2000" 24,00 

2/85 Schneider LH85S2D Diskette 2050 38, 
IHBSS2V SWrDikelte 3490" 250 340 

Kassette 5 29,90* 


LH 8552 K 2490 2989, 


Einige Tips zum Umgang mit den Leserservice-Disketten: 

‚Auf der Kassette und Diskette zu dieser Ausgabe finden Sie ein Basic-Programm 
namens »README.BAS<«. Daesam Anfang der Kassette 1 gespeichertist, starten 
Sie es bitte zuerst. Sie erhalten dadurch Informationen über die enthaltenen Pro- 
gramme. Dort erfahren Sie zu jeder Datei, was sie bewirkt und wo der gedruckte. 
Beitrag dazu in der Ausgabe zu finden ist. 

Bei früheren Ausgaben hieß dieses Inhaltsverzeichnis ebenso beziehungsweise 
»LISTME.BAS«, Dort besteht es aus einer ASCII-Datei, die Sie mit »LOAD 
"README” «im normalen Locomotive-Basic laden und durch »LIST« auf den Bild- 
schirm beziehungsweise mit »LIST #8« auf dem Drucker ausgeben. 


: Markt8Technik Verlag AG, Unternehmensbereich Buchverlag, Hans-Pinsel-Straße 2, D-8013 Haar, Telefon (089) 4613-0. Schweiz: MarktäTechnik Vertriebs, 


AG, Kollerstrasse 3, CH-8300 Zug, Telefon (042) 415656. Österreich: Ueberreuter Media Handels- und Verlagsgesellschaft mbH, Alser Straße 24, A-1091 Wien, Telefon (0222) 
481538-0, Microcomput-ique E. Schiller, Fasangasse 21, A-1030 Wien, Telefon (0222) 785661, Bücherzentrum Meidling, Schönbrunner Straße 261, A-1120 Wien, Telefon (0222), 


833196. Bestellungen aus anderen 
Rechnung im voraus. 


dern bitte nur schriftlich an: MarktäTechnik Verlag AG, Abt. Buchvertrieb, Hans-Pinsel-Straße 2, D-8013 Haar, und gegen Bezahlung einer. 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. Sie erleichtern. 


uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 


SEN WMOMESOMPÜTERWORLE.ZOM 


> 
Original- 
os 
kumentation für 
Schneider 

Digital Research hat sein Archiv 
geplündert. In der Reihe Originaldoku- 
mentationen von Markt&Technik gibt es 
jetzt die Programmier- und Benutzer- 
handbücher für CP/M 2.2 und CP/M 
Plus. In diesen Büchern findet man alle 
Informationen über Diskettenzugriffe, 
Speicherverteilung, BDOS-Funktionen 
und so weiter, die Digital Research den 
Software-Entwicklern zur Verfügung 
stellt. Damit sind die Betriebssystem- 
Handbücher sicher nicht für den Nor- 
malbürger gedacht, insbesondere, da 
sie überwiegend als Nachdruck der 
englischen Originalausgaben vorliegen. 
Allein unter CP/M Plusist das Benutzer- 

handbuch auf Deutsch erschienen. 
Utilities und Informationen über den 
SID finden Sie in dem »Programmer's 
Utilities und SID für CP/M 2.2 und CP/M 
3.0 (Plus) in englischer Sprache« (so 


Informationen vom 
Entwickler: 
Originaldokumen- 
tationen zu CP/M 


der etwas umständliche Titel). Wenn 
Sie diese 300 Seiten auch noch gele- 
sen haben, macht Ihnen unter CP/M 
niemand mehr etwas vor. 

Auch für Grafik-Fans mit einem CPC 
6128 oder Joyce und für alle Logo-Fans 
ist in dieser Reihe etwas dabei. Das 
GSX-Handbuch stellt in gleicher Weise 
sämtliche Grafik-Routinen vor. Im »Dr. 
Logo«- Benutzerhandbuch finden Sie 
eine Einführung in Logo und ein Lexikon 
mit allen Logo-Anweisungen. Es gibt ja 
schon eine Menge Bücher über das 
Logo auf den Schneider-Computern. 
Mit dem Buch von Digital Research 
bekommen Sie aber erstmals alles auf 
einen Blick über Turtle-Grafik, Prozedu- 
ren, Rekursionen und so weiter. (hg) 


Reihe: Originsklokumentation, Verlag Markt Technik, Haar bei 
München 

»Das Handbuch des CPIM 2.2-Betriebssystems«, 38 Mark, ISBN 
3-89090-389-X 

»CP/M Plus Betriebssystem«, 38 Mark, ISBN 3-89090-371-1 
»Programmer's Utlities und SID für CPIM 2.2 und CP/M 3.0 
(Plus)«, 49 Mark, ISBN 3-89090-372-X 

»GSX-Handbuch«, 39 Mark, ISBN 3-89090-373-8 

»Dr. Logo Benutzerhandbuch«, 42 Mark, ISBN 3-89090-116-6 


Das große 
CPC-Arbeitsbuch 


Jeder, der mehr über seinen Schnei- 
der CPC - egal ob 464, 664 oder 6128 
- wissen will, der kommt um das neue 
Buch aus dem Franzis-Verlag nicht 
herum. 68 Mark kosten die zirka 450 
Seiten voll mit Informationen. Zu Anfang 
kommt in wenigen Worten die Hardware 
des Computers zur Sprache. Dieser Teil 
unterscheidet sich allerdings in nichts 
von den vielen anderen Büchern über 
die CPC-Computer. 

Interessanter wird es bei den Infor- 
mationen über den Speicheraufbau, die 
Variablenablage und die Struktur der 
Basic-Listings. Bisher war dieses Wis- 
sen nur hübsch verteilt in verschiede- 
nen Zeitschriften und Büchern zu 
lesen. Eine Zusammenfassung fehlte 
bislang. Gleiches gilt für den Bild- 


AO anecamureaior..cB 


schirmaufbau, der ja beim Schneider 
nicht ganz einfach zu verstehen ist. Das 
CPC-Arbeitsbuch deckt mit seiner 
Zusammenfassung jetzt diese Lücke 
ab. 

Alle Kapitel enthalten Programme, mit 
denen man das gerade Erlernte umset- 
zen kann. Viele Listings eignen sich 
dabei auch für die tägliche Arbeit, so 
zum Beispiel die Sprite-Routine und das 
Programm REM-Kill. 

»Das große CPC-Arbeitsbuch« ist für 
jeden, der mehr als nur fertige Software 
laufen lassen will, ein absolutes Muß. 
Leider wird der sprachliche Stil und 
auch die äußere Aufmachung als 
Weichcover-Buch dem Inhalt nicht 
gerecht. Aber über diese »Hardware- 
Schwäche« kann man hinwegsehen. 

(hg) 


dBase Il voll 
ausgenutzt 

Fakturierung heißt ein Programm, das 
die tägliche Büroarbeit auch mit einem 
CPC 6128 oder einem Joyce minimiert. 
Speziell Angebot- und Rechnung- 
schreiben wird mit der 94 Mark teuren 
Software ein »Klacks«. Das Haupt- 
augenmerk wurde auf EDV-Laien 
gelegt. Kundenanschreiben und 
Stammdatenergänzung sind ein 
Arbeitsgang. Daher ist eine Extra- 
Erfassung neuer Kunden unnötig. 

Da das Programm auf der Diskette im 
Quellcode vorliegt, ist es sehr einfach, 
die Arbeitsweise an individuelle Bedürf- 
nisse anzupassen. Aus dem Angebot 
wird so schnell eine Rechnung und aus 
dem Gesamtprogramm eine Schallplat- 
tenverwaltung. 

Das deutsche Handbuch umfaßt zirka 
200 Seiten. Damit ist gewährleistet, 
daß Sie auch wirklich mit der Fakturie- 
rung klarkommen. Des weiteren lernen 
Sie dBase II sehr genau kennen - bei- 
nahe so gut wie mit einer (bis heute 
noch nicht preiswert erhältlichen) Lern- 
diskette. (hg) 


Markt Technik AG, Hans-Pinsel-Str 2, 8013 Haar bei München, 
Tol: 089/46 13-0 


Eisenbah elen 
mit dem een. 


Für 10 Mark gibt es bei Märklin eine 
Diskette für den Schneider CPC zur 
Demonstration der digital gesteuerten 
Eisenbahn. Sinn und Zweck der Pro- 
gramme ist es, die Grundlagen einer 
computergesteuerten Modellbahnan- 
lage zu zeigen. Wußten Sie, daß mit 
1000 INPUT ”Loknummer (1-80): ”,LN 
1010 INPUT *Geschw,. (0-15): *,GE 
1020 WAIT &FSEE,4 
1030 OUT &F8EF,GE 
1040 OUT &F8EF,LN 
1050 GOTO 1000 
bis zu 80 Lokomotiven mit unterschied- 
lichen Geschwindigkeiten über Ihre 
Anlage gesteuert werden können? Vor- 
aussetzung ist neben dem Computer 
eine serielle Schnittstelle und das Inter- 
face zu der Digital-HO-Mehrzugsteue- 
rung. Die Adresse im vorhergehenden 
Beispiel ist von der Schnittstelle abhän- 
gig - hier wird die RS232 von Schnei- 
der angesprochen. 

Die 21 Programme auf der Diskette 
geben einen interessanten Einblick, 
was mit einer Modellbahnanlage und 
einem Computer alles machbar ist. Von 
einer Uhr für Modellbahnzeit bis hin zu 
einem Gleisplan mit Besetztanzeige ist 
alles vorhanden. (hg) 


»Das große CPC-Arbeitsbuch«, Miedel/Kotulla, Franzis: 
München, zirka 450 Seiten, 68 Mark, ISBN 3-7723-8421-8 


Geb. Märkin& Cie. GmbH, Stuttgarter Sir. 55-57, 7320 Göppin- 
‚gen, Tel: 07161/808-0 
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Hardcopies par 
excellence 


»Copyshop« von DMV ist ein komfor- 
tables Hardcopy-Programm, das mit 
allen gängigen Druckern zusammenar- 
beitet. Gleich zu Anfang fällt positiv auf, 
daß Copyshop mit keinerlei Kopier- 
schutz versehen ist. Im Gegenteil, man 
ermuntert den Käufer sogar dazu, 
Copyshop seinen Bedürfnissen anzu- 
passen und einzelne Routinen in seinen 
eigenen Programmen zu verwenden. 

Daß Copyshop mehr als eine Hard- 
copy-Routine ist, sieht man spätestens 
nach dem Programmstart am Menü. 
Acht Funktionen, wie Bilder laden und 
speichern, Modus-Einstellung und 
Wahl des Druckformats stehen dem 
‚Anwender zur Auswahl. 

In der Funktion »Editor« läßt sich ein 
Bild bildpunktweise manipulieren und 
mit Text versehen. Eine Fill-Funktion 
und eine Bildverschiebe-Routine erlau- 
ben umfangreiche Änderungen. Auf 
Knopfdruck wird der gesamte Bild- 
schirminhalt invers dargestellt. 

Der Clou ist die Funktion »Farben/ 
Muster«, die dem Anwender eine Aus- 
wahl an Mustern anbietet. Jeder Bild- 
schirmfarbe kann er ein Muster zuord- 
nen. Auf diese Weise entstehen auch 
von mehrfarbigen Bildern eindrucks- 
volle Hardcopies, indem jeweils ein 
bestimmtes Muster eine einzelne Farbe 
repräsentiert. 


Die im Programm voreingestellte Zu- 
ordnung von Farben und Mustern ist 
recht sinnvoll, und der Ausdruck des 
mitgelieferten Demobildes liefert ein 
gutes Beispiel für die Fähigkeiten des 
Programms. Vor dem Ausdruck kann 
man zusätzlich entscheiden, ob das 
gesamte Bild oder eine Ausschnittsver- 
größerung gewünscht ist. Die beige- 
fügte Dokumentation reicht mit 20 Sei- 
ten aus, um alle Funktionen von Copy- 
shop zu erklären. 

Nach so viel Lob auch etwas Tadel: 
Zum einen funktionieren auf den mei- 
sten Druckern zwei der vier Druckfor- 
mate nicht richtig, da Copyshop sinn- 
lose Zeichen am Bildrand ausgibt und 
zum Teil auch ins Bild einstreut. 

Der zweite Nachteil von Copyshop 
liegt in den fehlenden Anpassungshin- 


weisen für gebräuchliche Druckertypen. 
Es existiert zwar ein spezieller Modus 
zum Einstellen der Escape-Sequenzen, 
aber die angezeigten Werte gelten nur 
für den Schneider NLQ 401. Die Daten 
für den eigenen Drucker muß sich der 
Anwender selbst zusammensuchen. In 
der Redaktion haben wir beim Testen 
folgende Anpassungen herausgefun- 
den: Besitzer von Epson-Druckern 
müssen als erste Steuersequenz die 
Zahlenfolge »27,64,27,49,27,108,06« 
eingeben. Für die zweite Steuerse- 
quenz sind die Werte »13,10,27,76,32, 
03« erforderlich. Bei Benutzung eines 
Star-Druckers tauschen Sie lediglich 
den Wert 108 gegen 77 aus. (ma) 


DMV Daten& Medien Verlagsgesellschaft, Postfach 250, 
Fuldaer Str. 6, 3440 Eschwege 


Eine eindrucksvolle 
Demonstration 
von Copyshop 


Lesefutter zum 
Schneider PC 


Das Buch »Der Schneider PC« ist 
eines der ersten Bücher zu diesem 
Thema. Schon nach den ersten Seiten 
stellt der Leser fest, daß das Buch jn 
Windeseile produziert wurde, denn 
anscheinend verzichtete man aus Zeit- 
gründen auf jede Art von sprachlicher 
Überarbeitung. Eine Schlußredaktion 
hätte dem Buch sicherlich gutgetan. So 
aber hat der Leser fast 360 Seiten lang 
holpriges Deutsch und flapsige Bemer- 
kungen zu ertragen. 

Dieses Manko sollte aber nicht ver- 
gessen lassen, daß das Buch inhaltlich 
und fachlich einwandfrei gelungen ist. 
Auch die intensive Suche nach kleinen 
oder 'größeren Fehlinformationen und 
Druckfehlern blieb ohne Erfolg. 

Zu Beginn erhält der Leser einen Ein- 
blick in die Hardware des Schneider PC. 
Der Autor geht allerdings nicht ins 
Detail, da auf diesem Gebiet bei den 
meisten Lesern nur begrenztes Inter- 
esse besteht. Wer eine Aufschlüsse- 


lung der Hardware-Struktur des PC 
erwartet, wird von der oberflächlichen 
Exkursion enttäuscht sein. 

Darauf widmet sich das Buch aus- 
führlich den zum Schneider PC mitge- 
lieferten Betriebssystemen MS-DOS 
und DOS Plus. Parallelen wie Unter- 
schiede arbeitet der Autor sauber her- 
aus und stellt sie einander gegenüber. 
Wenn auch der MS-DOS-Teil nur für 
Neulinge interessant ist, so bietet die 
Gegenüberstellung zu DOS Plus auch 
dem erfahreneren MS-DOS-Anwender 
neue Informationen und zeigt Stärken 
wie Schwächen auf. 

Einige Kritikpunkte hätte man sich 
jedoch etwas deutlicher herausgestellt 
gewünscht. Bloße Andeutungen sind 
manchmal nicht ausreichend. 

Anschließend folgt die Behandlung 
der mausgeführten grafischen Benut- 
zeroberfläche GEM, die ebenfalls im 
Lieferumfang des Schneider PC enthal- 
ten ist. Auch wenn GEM von allen Sei- 
ten als leicht erlernbar gepriesen wird, 
zeigen doch die umfangreichen Erklä- 
rungen, daß etwas Aufwand nötig ist, 
um es endgültig zu beherrschen. Eine 


Vielzahl von Hardcopies erleichtert 
dem Leser die Orientierung und das 
Verständnis. Alle Beispiele und Übun- 
gen sind so angelegt, daß sie der Leser 
unmittelbar nachvollziehen kann. 

Die Fähigkeiten von GEM Paint, das 
unter GEM läuft, führt der Autor kurz als 
Demonstration vor. Das Basic 2 des 
Schneider PC wird nur gestreift. Hier 
verweist der Autor auf die nicht vorhan- 
denen ausführlichen Informationen des 
Handbuchs. 

Lobenswert ist der Anhang, der alle 
Schlüsselwörter und Befehle mit Kurz- 
definitionen übersichtlich aufführt. Die- 
ser Teil ist zum Auffrischen der Kennt- 
nisse und zum Nachschlagen unent- 
behrlich. 

Zusammenfassend kann das Buch 
als ausgezeichnetes Lehrbuch für den 
‚Anfänger gelten. Der übersichtliche An- 
hangbringtauch dem fortgeschrittenen 
Computerbenutzer wertvolle Informa- 
tionen, dem Profi allerdings nichts 
Neues. (ma) 


Rudi Kost, »Der Schneider PG«, Markt& Technik Verlag, 
ISBN 3-89090-415-7, Preis: 49 Mark 
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KWEERSNECÖRFUTERWORLE- COM 


Nur halb geknackt 


as zunächst wie eine Hiobs- 
botschaft für die Software- 
Industrie klingt, trifft bei 


genauerem Hinsehen doch nicht zu. 
Denn die beiden Kopiermodule, die hier 
zum Zweikampf antreten, vermögen 
zwar fast beliebig Programme zu ver- 
vielfältigen, die Kopien sind aber zur 
Freude der Programm-Entwickler wie- 
derum nur mit dem jeweiligen Modul 
lauffähig. Einer der Kontrahenten war 
bereits in der Happy-Computer, Aus- 
gabe 11/86, Gegenstand einer näheren 
Betrachtung. Der Mirage »Imager« hatte 
sich damals den Ruf eines Kopier- 
schutz fressenden »Byte-Munchers« 
erworben und die Versprechungen sei- 
nes Herstellers mit Bravour gehalten. 


Inzwischen steht mit dem »Multiface 
Two« ein starker Konkurrent Gewehr bei 
Fuß. So ähnlich die Zielsetzung, so 
unterschiedlich ist die praktische 
Umsetzung geraten. Der Imager steckt 
in einem nur etwas mehr als Zigaretten- 
schachtel großen Gehäuse, das sich 
optisch und mechanisch nahtlos an den 
Computer anfügt. Die Behausung des 
Multiface fiel noch etwas kleiner aus, 
beansprucht aber trotzdem auf dem 
Computertisch mehr Platz, weil es dort 
an einem kurzen Kabelstück lose her- 
umliegt. Beide arbeiten am Erweite- 
rungsport und verfügen zum Betrieb 
weiterer Peripherie über einen durch- 
geführten Bus. Ebenfalls gemeinsam ist 
ihnen die rote Taste zum Erweckenihrer 
schlummernden Talente. Ohne diesen 
Knopfdruck ahnt der Computer nämlich 
nichts von ihrer Anwesenheit. Auf dem 
Multiface fällt eine zweite, grüne Taste 
ins Auge. Ihre Funktion vermißte so 
mancher CPC-Besitzer sicher schon 
des öfteren: Sie löst einen Reset aus 
(beim Imager gibt es eine ähnliche 
Funktion im Menü). Um nun Programme 
zu kopieren, verfährt man zunächst wie 
gehabt. Erstwenn sie ganz normal gela- 
den und eventuelle Schutzabfragen 
(Farbcodes, Lenslock oder andere) 
passiert sind, löst ein Druck des roten 
Knopfs den »verhängnisvollen« Vor- 
gang aus. Beim Imager erscheint nun in 
den oberen beiden Bildschirmzeilen ein 
Menü. Das Multiface nutzt dafür die 
untersten zwei Zeilen. Der wichtigste 
Menüpunkt ist sicher <S> für »Save«. 
Einigkeit, auch was die Speicherme- 
dien betrifft: In beiden Fällen besteht 
die Wahl zwischen dem Recorder (mit 
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Die Sensation ist perfekt: Zwei 
unscheinbare Kästchen machen 
das Heer von Knackern arbeits- 
los, die Software bislang per 
mühevoller Handarbeit »knack- 
ten«. 


zwei verschiedenen Geschwindigkei- 
ten) und dem Diskettenlaufwerk. Wich- 
tig ist hier, daß sowohl der Imager als 
auch das Multiface auf dem originalen 
Amstrad/Schneider-Controller beste- 
hen und sich keinesfalls mit Fremdlauf- 
werken zufriedengeben. Das Multiface 
geht gar noch einen Schritt weiter und 
verschmähte beim Test die Zusammen- 
arbeit mit einem CPC mit eingebauter 
Speichererweiterung. Schade, daß die 


ten. Nun wäre eigentlich der Test 
bereits beendet, gäbe es da nicht noch 
ein paar Aspekte zu bedenken - posi- 
tive und negative. 


Spielkameraden 


Die Module speichern nicht im Sinne 
des Wortes Programme, sondern Spei- 
cherinhalte. Sie untersuchen also den 
gesamten Arbeitsspeicher des Compu- 
ters auf Veränderungen gegenüber 
dem Einschaltzustand. All diese sam- 
meln sie und legen sie auf Kassette 
oder Diskette ab. Natürlich gehören 
dazu auch Farbinformationen, Register- 
inhalte des Prozessors und derleimehr. 


gr 


Links: Der Mirage Imager war das erste Gerät seiner Gattung für die CPC-Serie. 


Rech! 


inade der späten Geburt: Neuere Geräte vermeiden oft die Fehler ihrer 


Vorbilder. So auch das Multiface Two. Es bietet mehr Fähigkeiten und Komfort. 


Testkandidaten so wählerisch sind. 
Ansonsten kann man mit ihnen richtig 
glücklich werden, denn ihre Daseinsbe- 
rechtigung stellen beide wirkungsvoll 
unter Beweis. Keines der Spiele, die wir 
von Kassetten auf Disketten transferier- 
ten, stellte einen der beiden Probanden 
vor Schwierigkeiten. Lediglich Pro- 
gramme, die Programmteile, Daten oder 
Bilder nachladen, sind auf diese Weise 
nicht zu verarbeiten. Was die Wege zum 


Sieger nach Punkten 


Erreichen des Ziels betrifft, herrscht 
indes Uneinigkeit. Während die Spei- 
cher- und Ladevorgänge mit dem Ima- 
ger jedesmal zu einer unfreiwilligen 
Kaffeepause zwingen, gibt sich das 
Multiface in dieser Disziplinmehr Mühe, 
denn es erledigt derlei Datentransporte 
in weniger als einem Viertel der Zeit. 
Damit ist es Rundensieger nach Punk- 


Daraus ergeben sich nicht zu unter- 
schätzende Vorteile: Spiele lassen sich 
an jeder beliebigen Stelle unterbre- 
chen. Der gespeicherte Spielstand 
dient dann dazu, später von dieser 
Stelle an weiterzuspielen, ohne wieder 
die ganze Vorarbeit zu leisten. Aber 
auch andere Perspektiven eröffnen 
sich. Entsprechende Menüpunkte er- 
lauben einfache Eingriffe und Verände- 
rungen in Programmen. So sind mit bei- 
den Modulen die Farben der Bild- 
schirmdarstellung frei veränderbar, so 
daß Besitzer eines grünfarbenen Moni- 
tors die farbige Grafikdarstellung eini- 
ger Programme an ihr Sichtgerät anpas- 
sen können. An Manipulationen kopier- 
ter Programme hat das Multiface jedoch 
noch erheblich mehr zu bieten. Es be- 
herbergt einen Maschinencode-Moni- 
tor, mit dessen Hilfe sich beliebige 
Speicher- und Registerinhalte und 
diverse andere Statusinformationen 
anzeigen und verändern lassen. Dazu 
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ertwerarbeitung mit LocoScript 

88, 248 Seiten 

Dieses Buch führt Schritt für Schritt in die Arbeit 
ne Sesom Textoystam ein. 

Begerend mit dem Erfassen, Korrigleren und 
Fosichern von Texten, über das Verschönern 
#9 Schriftbilds bis hin zum Serlenbriet und 
> Einsatz von Fremddruckern erfährt der 


R.Kost 
Der Schneider PC 

1986, 354 Selten 

Der Schneider PC ist eine Herausforderung an 
die Wolt der Mikrocomputer. Mit seinen zwei 
Betriebssystemen, dem bewährten MS-DOS, 
mit dem die Tür zu den Kompatiblon offensteht, 
und dem neuentwickelten DOS Plus, das auch 
den Zugrif auf die CP/M-86-Software ermög- 


licht, ist der Schneider PC universell einsetz- 
bar. Beide Betriebsaystame werden anschau- 
lich beschrieben und dokumentiert. 

Schneiders besonderer Service als Dreingabe 
ist die bedienerfreundliche Benutzerober. 
fläche mit den speziell angepaßten Desktop- 
Utensilien und dem Paint-Programm aus der 
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Sämer und Änderungen vorbehalten Software - Schulung 


gehören auch Bildschirmmodus und 
-Basisadresse, Interruptmodus, Win- 
dow-Grenzen und die aktiven RAM- und 
ROM-Bänke. Und als kleinen Lecker- 
bissen bietet das Multiface noch den 


Zugriff auf seinen eigenen 8 KByte gro-- 


Ben RAM-Bereich. Dort kann der Ma- 
schinensprache-Programmierer in Zu- 
kunft seine Routinen unterbringen. 
Auch hier hat also der Herausforderer 
die Nase vorn. 

Welches Modul empfehlen wir nun? 
Sieger nach Punkten ist nach wie vor 
eindeutig das neue Multiface Two. Das 
etwas unpraktische Gehäuse nimmt 
man dafür leicht in Kauf. Eine Warnung 
sei aber für alljene ausgesprochen, die 
ihren Computer mit zusätzlicher Peri- 


pherie wie beispielsweise einer Spei- 
chererweiterung ausgerüstet haben, 
oder dies jemals nachzuholen beab- 
sichtigen. Können Sie das für sich aus- 
schließen, ist das knapp 175 Mark 
teure (CPC-6128-Version zirka 180 
Mark) Multiface Two der richtige Griff. 
Testen Sie am besten im Einzelfall die 
Verträglichkeit. 


Vorsicht beim Kauf 


Der Mirage Imager ist zwar nicht so 
schnell und erlaubt nur beschränkte 
Eingriffe in die Programme, erfüllt aber 
ansonsten seine Aufgabe mit der glei- 


chen Leichtigkeit. Auch gibt er sich 
erheblich verträglicher im Umgang mit 
fremden Peripheriegeräten. Das mag 
für manchen der ausschlaggebende 
Grund sein, lieber bei diesem Angebot 
für 179 Mark (198 Mark für den CPC 


6128) zuzugreifen. Ganz auf den 


Genuß des Einsatzes eines der beiden 
Module müssen jedoch Besitzer von 
Diskettenlaufwerken verzichten, die 
nicht über den originalen Schneider- 
Controller angesteuert werden. Wie 
schon gesagt: Schade. (a) 


Mirage Mierocomputers, Falkenweg 18, 5400 Koblenz 16, 
Telefon 0261/68734 
Romantic Robot, Ben-Gurion-Ring 86, 6000 Frankfurt 56 


Was ist bloß mit den 
Programmen los? 


Immer wieder erreichen uns Anfragen zu den ver- 
öffentlichten Programmen. Deshalb hier ein paar 
grundsätzliche Worte und Tips. 


kommt es immer wieder vor, daß das eben eingege- 

bene Programm nicht korrekt läuft. Aber statt zu ver- 
zweifeln, überprüfen Sie bitte Ihre Eingabe nochmals genau. 
‚Selbst mit einem Prüfsummer ist die Eingabe nicht hundert- 
prozentig sicher, denn manche Fehler des Benutzers kann 
auch ein solches Programm nicht abfangen. Dazu zählt bei- 
spielsweise die vergessene Eingabe einer kompletten Zeile. 
Aber auch der genauso banale wie häufige Fehler der Nicht- 
beachtung von Prüfsummen während der Eingabe ist tük- 
kisch. Dabei sind die beiden geschilderten Fehler auch im 
nachhinein recht einfach zu erkennen. Ein erneuter Durch- 
lauf mit Explora wirkt oft Wunder. Haben Sie keine Angst, Sie 
müssen selbstverständlich das Programm nicht nochmals 
komplett eingeben. Nein, Sie nutzen den AUTO-Befehl Ihres 
Computers, um das Programm im Arbeitsspeicher zu kontrol- 
lieren. Nur Besitzer eines CPC 464 können sich so nicht 
direkt helfen. Sie müssen zunächst das Listing »AUTO-Plus« 
aus dieser Sonderausgabe eingeben, um die gleichen Vor- 
aussetzungen zu erfüllen wie die Kollegen mit den CPCs 
664 und 6128. Laden Sie zunächst das fehlerhafte Pro- 
gramm (CPC 464-Besitzer starten natürlich davor noch 
»AUTO-Plus«). Mit dem Befehl »AUTO zeilennummer,,schritt- 
weite« wählen Sie die Nummer der ersten zu kontrollierenden 
Zeile und die Schrittweite der Numerierung. Liegt ein Listing 
vor, dessen Numerierung nicht in gleichmäßigen Schritten 
erfolgt, setzen Sie als letzten Parameter eine 1 ein. Der Com- 
puter zeigt Ihnen darauf jede Zeile auf dem Bildschirm. Über- 
prüfen Sie die Übereinstimmung der Zeilennummern auf dem 
Monitor und im Listing. Der Inhalt der Zeilen interessiert in 
diesem Moment nicht. Nach der Kontrolle der Zeilennummer 
drücken Sie <ENTER>, woraufhin Explora seine Prüf- 


B eginnen wir mit den gedruckten Listings. Trotz Explora 


summe auf dem Bildschirm ausgibt und der Editor schon die 
nächste Zeile zeigt. Jetztläßt sich die Prüfsumme auf Richtig- 
keit vergleichen. Einfach per Druck auf die ENTER-Taste sind 
Sie so ruck-zuck durchs Programm und haben alle Fehler 
beseitigt. Wenn Sie zu den Lesern gehören, die öfter Listings 
von Basic-Ladern (DATA-Zeilen mit Maschinencode) abtip- 
pen, sei Ihnen das Programm »CPC« - ebenfalls in dieser: 
Ausgabe - wärmstens empfohlen. Damit sparen Sie sich 
einen Großteil der Tipparbeit. 


Leserservice guigemeint 


Auch unser Angebot der Leserservice-Disketten und -Kas- 
setten ist häufig Gegenstand von Anfragen. Was uns dazu 
interessiert, ist, in welcher Form Sie sich die Dateinamen 
wünschen. Manche Leser bevorzugen abstrakte Dateina- 
men, die aus der Ausgaben- und Seitennummer bestehen. 
Andere wieder lehnen diese Namensgebung ab und sind 
erfreut über die derzeitige Form mit sinnvollen Bezeichnun- 
gen dessen, was die Programme bewirken. Wir jedenfalls 
glauben, daß man mit einem Namen wie beispielsweise 
»HAUSHALT.BAS« eher ein Programm zur Berechnung von 
Haushaltskosten assoziiert, als wenn dieselbe Datei 
»SH13.112« heißt. Da uns aber nur vereinzelte Meinungsäu- 
Berungen vorliegen, die keine Rückschlüsse auf die Wün- 
sche der Mehrzahl unserer Leser erlauben, bitten wir Sie, 
sich mit einer kleinen Stellungnahme auf einer Postkarte bei 
uns zu melden. In einer Sache haben wir aber zu einer end- 
gültigen Form gefunden. Die Datei, die Erklärungen des 
Inhalts der Leserservice-Datenträger enthält, heißt seit eini- 
ger Zeit und in Zukunft immer »README.BAS« und ist ein 
Basic-Programm, das Sie normal mit »RUN "README”« 
starten. So erhalten Sie zu jeder Datei die Information, was sie 
enthält und auf welcher Seite der jeweiligen Ausgabe 
gedruckt zu finden ist. Auf einigen früheren Datenträgern 
hieß diese Datei »LISTME.BAS«. (ia) 


Die Klassiker-Kollektion 


Auch wenn Sie kein ausgespro- 
chener Spiele-Freak sind, soll- 
ten Sie trotzdem weiterlesen. 
Hier stellen wir Ihnen die Pro- 
gramme vor, die in keiner Soft- 
ware-Sammlung fehlen sollten. 


regelrechte Hundertschaften von 

Schneider-Spielen getestet. Wenn 
man im Rückblick eine Liste derjenigen 
Programme aufstellt, die am meisten 
gefesselt haben, wird dies eine hoch- 
karätige Reihe. Genau das wollen wir in 
diesem Sonderheft einmal praktizieren: 
Wir verraten Ihnen die Schneider-Spie- 
le, die uns heute noch am besten ge- 
fallen und auch bei Leuten, die nur 
»nebenher« spielen, Begeisterung her- 
vorrufen. 


Die Effekt-Orgie 


Die Auswahl ist gezwungenermaßen 
subjektiv, aber keineswegs willkürlich. 
Sie entstand in einer Diskussion aller 
Redakteure, die sich für CPC-Spiele 
interessieren. Ein Grafik-Adventure ist 
leider nicht vertreten, da uns bisher 
noch kein Spiel dieser Sparte aufgefal- 
len ist, das den Schneider CPC beson- 
ders gut ausnutzt. Aber es besteht 
noch Hoffnung: Das Abenteurspiel The 
Pawn«, das bereits Lobeshymnen für 
die Atari-ST- und C64-Versionen ern- 
tete, erscheint bald auf Diskette für 
Schneider. Wer sehr gut Englisch kann 
und vor vielen Texten nicht zurück- 
schreckt, dem seien generell die Ad- 
ventures von Infocom empfohlen. (Un- 
ser aktueller Tip: das witzige »Leather 
Godesses of Phobos«, für das man 


I: den letzten Jahren haben wir 


Grafik- und Sound-Orgie für Actionfans: Tempest 


allerdings gute Englischkenntnisse 
unbedingt benötigt.) Aber jetzt geht's 
los mit unserer Wertung. 

Umsetzungen von Spielhallen-Auto- 
maten sind in der Software-Branche 
gang und gäbe. Leider verlieren diese 
Adaptionen bei den Heimcomputer- 
Umsetzungen an Qualität. Das liegt zum 
einen an den exzellenten Grafik- und 
Sound-Fähigkeiten der Spielautoma- 
ten, zum anderen am ganz besonderen 
Flair, das in einer Spielhalle »rüber- 
kommte. 

DieSchneider-Versiondes»Tempest«- 
Automaten ist eine der rühmlichen Aus- 
nahmen. Die Vektorgrafik des Originals 
wurde sehr flott auf dem CPC program- 
miert und die Sound-Effekte lassen so 
manches Amiga-Spiel arm aussehen. 
Man muß den Schneider für den vollen 
Klanggenuß allerdings an eine Stereo- 
anlage anschließen, doch dann verwan- 
delt sich das heimische Wohnzimmer 
regelrecht in eine Spielhölle. 

Tempest ist ein simples Ballerspiel, 
bei dem es nur um gute Reflexe geht. 
Die reizvolle Vektorgrafik, die 99 ver- 
schiedenen Bilder und die imposante 
Explosions-Geräuschkulisse sorgen 
aber für ungeheuren Spielspaß. Wer ein 
unkompliziertes, technisch toll ge- 
machtes Ballerspiel sucht, sollte hier 
unbedingt zuschlagen (Kassette 35 
Mark, Diskette 49 Mark) 


Der Dauerbrenner 


Wer träumt nicht einmal davon, von 
Galaxis zu Galaxis zu fliegen, fremde 
Planeten zu besuchen, Handel zu trei- 
ben und Raumpiraten zu jagen? 1985 
erschien die Schneider-Version eines 
Kultspiels, das solch eine kosmische 


Odyssee möglich macht. »Elite« nennt 
sich das gute Stück, das auch nach 
Monaten noch eine Menge Spielspaß 
bietet. Dadurch, daß man einen Spiel- 
stand speichern kann, läßt sich die 
Weltraumreise beim nächsten Mal wie- 
der an der gleichen Stelle fortsetzen. 

Elite ist eine Mischung aus Flugsimu- 
lation, Handels- und Actionspiel, die mit 
ihren 3D-Vektorgrafiken für Aufsehen 
sorgte, Außerdem war Elite eines der 
ersten Spiele, bei denen sowohl Anlei- 
tung als auch Bildschirmtexte ins Deut- 
sche übersetzt wurden. Dafür muß man 
einige sprachliche Holprigkeiten 
(wurde wohl 1:1 mit dem Wörterbuch 
übersetzt) verzeihen. 

Obwohl auch etwas geschossen 
wird, paßt Elite nicht in die Action- 
Schublade. Das faszinierende Spiel- 
prinzip und die strategischen Elemente 
beim Handel auf den über 2000 Plane- 
ten machen es zu einem anspruchsvol- 
len Vergnügen, das kaum jemanden kalt 
läßt. Nicht nur für Science-fiction-Fans 
dringend empfohlen (Kassette 59 
Mark, Diskette 69 Mark). 


Der Bomben-Klau 


In eine ganz andere Kerbe schlägt 
unser dritter Spiele-Tip. »Bomb Jack« ist 
nicht sonderlich kompliziert, aber es 
wird auch nicht auf irgendwas geschos- 
sen. Das Spielistebenso herzallerliebst 
wie fesselnd und damit auch für Kinder 
gut geeignet. 

Der Spieler muß eigentlich »nur« 
brennende Bomben abräumen, die auf 
Plattformen plaziert sind. Dabei behin- 
dern ihn aber Gegner, die er nicht 
berühren darf. Um Höchstpunktzahlen 
zu erreichen, muß man möglichst alle 


Weltraum-Trip für Erdenbürger: Elite 


Eormren 
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Bombige Punktejagd: Bomb Jack 


Bomben in einer bestimmten Reihen- 
folge erwischen, was immer einen. 
enormen Punkte-Bonus einbringt. 

Da sich der Aufbau der Plattformen 
von Bild zu Bild ändert, entscheidet 
jeweils eine andere Strategie, wie opti- 
mal Sie jeden Level abräumen. Die 
Punktejagd bei Bomb Jack gehört zum 
Motivierendsten, was je auf einem CPC 
gelaufen ist. Das Programm ist nicht 
umsonst die Umsetzung eines Spielau- 
tomaten, der ja durch fesselndes Spiel- 
prinzip möglichst viele Mark-Stücke 
schlucken soll. Wenn jeder Redakteur 
eine Mark an mich gezahlt hätte, als das 
Programm in einer heißen Phase stän- 
dig bei uns gespielt wurde, könnte ich 
michjetztfür ein Weilchen zur Ruhe set- 
zen (Kassette 35 Mark, Diskette 49 
Mark). 
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Ballerzeit zu zweit: Ikari Warriors 


Das flotte Doppel 


Bleiben wir doch gleich bei Umset- 
zungen von Spielautomaten. Unter dem 
Motto »Grausam, aber gut« könnte man 
»lkari Warriors« präsentieren. Das Pro- 
grammist der vorläufige Höhepunkt der 
kriegerischen Welle. 
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Diamanten-Fieber: Spindizzy 


Wie bei anderen Programmen dieses 
Genres kämpfen Sie sich in der Gestalt 
eines knüppelharten Soldaten durch 
den Dschungel, um dort feindliche 
Gebäude zu vernichten und den gegne- 
rischen Angreifern Saures zu geben. 
Doch nach dem Motto »Warum alleine 
schießen, wenn's zu zweit mehr Freude 
macht« können zwei Spieler gleichzei- 
tig antreten und im Team alles über den 
Haufen schießen, was kreucht und 
fleucht. Jeder Spieler hat sein eigenes 
Punktekonto, so daß einem spannen- 
den Simultan-Wettkampf nichts im 
Wege steht. 

Wenn man sich nicht gerade an der 
recht rauhen Handlung stört, macht das 
Programm (auch alleine) einen Heiden- 
spaß. Hier darf man nach Herzenslust 
alles demolieren, was einem so in den 
Weg kommt. Wenn 
Sie sich jetzt noch 
einen herumste- 
henden Panzer 
schnappen, geht 
es richtig rund. 
Jetzt kann man fast 
ohne Rücksicht auf 
Verluste durch die 
Gegend - rumpeln 
und gepflegt die 
Landschaft in Ein- 
zelteile zerlegen. 
Je weiter man vor- 
dringt, desto mehr 
neue Gegner tau- 
chen auf. Mal muß 


man einen Fluß 
durchschwimmen 
und sich vor 


Heckenschützen hüten, dann erfolgt 
ein Hubschrauber-Angriff aus der Luft. 
Ikari Warriors ist kein sonderlich fried- 
liebendes Spiel, aber ebenso destruk- 
tiv wie unerhört unterhaltsam. Wer die- 
ses Programm hat, kann eigentlich alle 
anderen »Dschungel-Päng-Päng«-Spie- 
le für den Schneider vergessen (Kas- 
sette 39 Mark, Diskette 59 Mark). 
Der bis dato recht unbekannte Pro- 
grammierer Paul Shirley sorgte Anfang 


1986 für einen der größten Knaller der 
Software-Branche. Er präsentierte näm- 
lich ein Schneider-Spiel, das hervorra- 
gende 3D-Grafik, ungeheure Komplexi- 
tät (über 300 Bilder) und ein raffiniertes 
Spielprinzip vereinte. 

»Spindizzy« nennt sich dieses Pracht- 
stück und gehört zu den absoluten 
Klassikern fürden CPC. Hiergehtesum 
die Erforschung einer neuen Welt, die 
links hinter der 17. Dimension entdeckt 
wurde. Dieser merkwürdige Ort besteht 
aus Rampen, Aufzügen, Trampolinen 
und Einbahnstraßen, aber auch aus ein 
paar gefährlichen Einheimischen. 


Die Wunderwelt 


Sie steuern ein Fahrzeug mit dem 
Spitznamen Gerald, mit dem Sie diese 
Wunderwelt erforschen und kartogra- 
phieren sollen. Diese Expedition wird 
zu einem Rennen gegen die Zeit, die 
ständig abläuft. Durch das Aufsammeln 
von Diamanten, die freundlicherweise 
herumliegen, kannn man aber wieder 
wertvolle Sekunden dazugewinnen. 

Spindizzy ist neben Bomb Jack das 
mit Abstand beste Geschicklichkeits- 
spiel für den Schneider und besticht 
neben der famosen Grafik durch das 
Spielprinzip. Um bei einigen Bildern 
weiterzukommen, muß man auch Mal 
ein logisches Rätsel lösen. Ein garan- 
tierter Spielgenuß mit Langzeit-Wirkung 
(Kassette 35 Mark, Diskette 49 Mark). 

Soweit der Blick in unsere Schneider- 
Ehrengalerie. Wenn Sie jetzt auf den 
Geschmack gekommen sind und sich 
über brandneue Spiele für Ihren CPC 
informieren wollen, empfehlen wir 
unsere monatlich erscheinende Stamm- 
zeitschrift Happy-Computer. In jeder 
Ausgabe gibt es einen extra Spiele-Teil, 
der Sie über die aktuellen Neuheiten 
auf dem laufenden hält. (hl) 


Nähere Informationen zu den Spielen erhalten Sie bei folgenden 
Distributoren: 

Infocom-Adventures, Tempest, Spindizzy; Actlvison Deutsch- 
land, Postiach 75 08 80, 2000 Hamburg 76 

Elite: Rustware, An der Gümpgesbrücke 24, 4044 Kaarst 2 
Bomb Jack, Ikari Warriors: Peter West Recörds, Am Heerdter 
Hot 15, 4000 Düsseldorf 11 
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AUFBRUCH IN EINE NEUE DIMENSION 


mit »68000er«, dem Magazin der neuen 
Computer-Generation. Die Erstausgabe 1/87 
startet am 15. 12.86 mit den Themen: 
> Geheimnisse gelüftet: 
Kurse für den souveränen Umgang mit 
dem Amiga. 
>» Komfort mit Basic: 
Professionelles Malprogramm für den 
Atari ST. 
>» Selbstbau: 
RAM-Erweiterung und Dig 
den Amiga. 
» Die neue Spielegeneration: 
Flugsimulation für Atari ST und Amiga. 


er für 


Ready for take off am 


15. DEZEMBER 1986 


und danach jeden Monat neu 


»68000er«, Ihre hot-line zur Spitzen 
technologie von Atari ST, Amiga, 
Macintosh und SinclairQL. 


BE 


FÜR EIN KOSTENLOSES PROBEEXEMPLAR 
DES »68000er«-MAGAZINS 
ich möchte »68000er«, das Magazin der neuen Compuı 
tion, kennenlernen. 
mir bitte die aktuellste Ausgabe kostenlos als Pro- 
‚Wenn mir »88000er« gefällt undiich es regelmäßig 
weiterbeziehenmöchte, brauche ich nichts zutun: Ich erhalte es 
‚dann regelmäßig frei Haus per Post. Außerdem nutze ich den 
‚Abonnement-Preisvorteil von 8% und bezahle pro Jahr nur 
77,— DM statt 84,— DM im Einzelverkauf. 


Vorname, 
Name 
Straße 
PLZ, Ort 


Datum _____ 1. Unterschrift 
Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen 
bei der Bestelladresse widerrufen kann und bestätige dies 
durch meine zweite Unterschrift. Zur Wahrung der Frist genügt 
die rechtzeitige Absendung des Widerrufs. 


Datum ______ 2. Unterschrift 


‚Gutschein ausfüllen und absenden an: Markt& Technik Verlk 
Aktiengesslischaft, Vertrieb, Postfach 1304, 8013 H: 


CPC auf dem Operationstisch 


Die Schneider-Computer arbei- 
ten in der Regel sehr zuverläs- 
sig, doch für die Ewigkeit sind 
auch sie nicht konstruiert. Sollte 
Ihr Gerät einmal streiken, läßt 
sich der Schaden oft mit wenig 
Aufwand selbst beheben. 


er Ausfalldes Computers ist der 

‚Alptraum jedes Computerbesit- 

zers. Und das passiert natürlich 
zum ungünstigsten Zeitpunkt, wenn 
das neue Spiel gerade geladen oder ein 
dringender Brief fällig ist. 

Sie können natürlich Ihr Gerät in den 
Karton packen, beim Händler vorbei- 
bringen, oft mehrere Wochen warten 
und anschließend einen stolzen Betrag 
für die Reparatur entrichten. Zurück 
bleibt dann aber in der Regel ein bitterer 
Nachgeschmack. War die Reparatur 
wirklich ihr Geld wert? Hätte man den 
Schaden eventuell nicht selbst behe- 
ben können? 

Wir wollen Ihnen zeigen, wie Sie Feh- 
ler im Computersystem ohne großen 
Aufwand finden und selbst beheben. 
So müssen Sie nicht wochenlang auf Ihr 
Gerät verzichten und zum anderen 
schont es den Geldbeutel. 
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Um eine Störung zu beseitigen, muß 
man erst einmal wissen, wo sie steckt. 
Diese simple Weisheit stellt den Com- 
puterbesitzer vor große Probleme, 
denn die Fehlersuche ist meist weitaus 
aufwendiger als die Reparatur selbst. 

Wichtig ist zuerst einmal festzustel- 
len, ob der Fehler reproduzierbar (das 
heißt beliebig oft wiederholbar) ist. 
Wenn eine Störung nur zeitweise und 
völlig unmotiviert auftritt, handelt es 
sich entweder um einen Softwarefehler 
(den wir hier nicht behandeln wollen) 
oder um einen Wackelkontakt. Um die- 
sen Mangel zu beheben, überprüfen 
Sie zuerst alle äußeren Steckverbin- 
dungen des Computers. Findet sich 
hier kein Fehler, müssen Sie sich an das 
Innere Ihres Gerätes wagen. Aber keine 
Angst, bei Ihrem Schneider ist alles 
schön verschraubt und somit leicht 
zerleg- und wieder zusammensetzbar. 


Bevor Sie mit dem Zerlegen des 
Gerätes beginnen, ziehen Sie unbe- 
dingt den Netzstecker aus der Steck- 
dose! Um das Gehäuse des CPCs zu 
öffnen, lösen Sie zuerst diesechs (CPC 


464/664) beziehungsweise sieben 
(CPC 6128) Schrauben an der Unter- 
seite des Gerätes. Beim CPC 664 und 
6128 ist zusätzlich das Entfernen der 
beiden Schrauben an der rechten Ge- 
häuseseite zum Diskettenlaufwerk nö- 
tig. Jetzt kann das Gehäuseoberrteil mit 
Tastatur vorsichtig abgehoben werden. 
Ober- und Unterteil hängen jedoch 
immer noch an Kabeln aneinander. 

Grundsätzlich ist die Tastatur im 
Gehäuseoberteil über ein Flachkabel 
mit der Platine im Computerunterteil 
verbunden. Beim CPC 664 kommen 
noch der Anschluß für den Lautspre- 
cher und beim CPC 6128 der Anschluß 
für Lautsprecher und Betriebsanzeige 
(Leuchtdiode) hinzu. Diese Verbindun- 
gen müssen Sie ebenfalls vorsichtig 
lösen, um den Computer frei bewegen 
zu können. Bei alten Versionen des 
CPC 464 kann zusätzlich das Kühl- 
blech über dem Gate Array entfernt 
werden. Um beim CPC 6128, der nach 
den neuen Bestimmungen der Bundes- 
post hergestellt wird, an die Platine zu 
gelangen, ist noch die Abschirmung, 
die mit sechs Schrauben auf der Platine 
befestigt ist, abzunehmen. 

Nunliegt in allen drei Fällen die Platine 
des CPCGs frei. Bild 1 zeigt die Platine 


I  _ 


Pufferbaustein 


Z80-Prozessor 


Ein-/Ausgabe- 


Tongenerator 


baustein 


Gate Array 


ROM 


Decoder- 
baustein 


Video- 
Controller 


des CPC 464, Bild 2 die Platine des 
CPC 664 und Bild 3 die des CPC 6128 
mit Benennung der wichtigsten Bau- 
steine. Um einen Wackelkontakt zu 
beheben, überprüfen Sie alle Bausteine 
im Computer auf festen Sitz und testen 
die Steckverbindung zum Kassettenre- 
corder (CPC 464) beziehungsweise 
Diskettenlaufwerk (CPC 664/6128). 
Ist der Wackelkontakt immer noch vor- 
handen, so macht ihm spätestens das 
sorgfältige Zusammenbauen des Gerä- 
tes den Garaus. Dann werden nämlich 
alle in Frage kommenden Verbindungen 
neu geschlossen und lose sitzende 
Stecker oder Buchsen können erkannt 
und ersetzt werden. Erst wenn Ihr 
Schneider wieder komplett verschraubt 
vor Ihnen steht, dürfen Sie das Gerätan 
das Netz anschließen und einschalten. 


Ein-/Ausgabe- 
baustein 


64 KByte RAM 


Tritt ein Fehler im System regelmäßig 
nach längerer Computerbenutzung auf, 
handelt es sich oft um die Auswirkun- 
gen übermäßiger Erhitzung. In diesem 
Fall kontrollieren Sie zuerst, ob die Ent- 
lüftungsschlitze von Computer und 
Monitor freiliegen. Wenn sich hier dicke 
Staubschichten angesammelt haben 
oder diverse Papiere stapeln, kann die 
erwärmte Luft aus dem Gerät nicht ent- 
weichen und es entsteht ein Hitzestau. 


ICs mögen’s kühl 


Schafft das Freilegen der Lüftungs- 
schlitze keine Abhilfe, dann geht es 
Ihrem CPC wieder an den Kragen und 
sämtliche ICs werden auf Erwärmung 
überprüft. Ist ein einzelner Baustein 


(darüber:Pufferbaustein) 


Tongenerator 


Disketten- 
ROM 


Bild 1. Schneider CPC 464 


mehr als handwarm, können Sie ihn also 
nur kurz berühren, ohne sich die Finger 
zu verbrennen, ist dieser IC defekt und 
muß ersetzt werden. Dies sollten Sie 
umgehend in Angriff nehmen, weil ein 
defekter Baustein in seiner Hardware- 
Umgebung weitere Ausfälle bewirkt. 
Wollen Sie Ihre Diagnose bomben- 
sicher machen, kaufen Sie sich im Elek- 
tronikladen ein Kältespray und kühlen 
Sie den Chip damit ab. Verschwindet 
der Fehler daraufhin für einige Zeit, ist 
die Ursache eindeutig der Chip. 

Ein »IC ersetzen« hört sich zwar ein- 
fach an, ist aber eine Wissenschaft für 
sich. Leider sind die meisten Bausteine 
in den CPCs nicht gesockelt, so daß sie 
beim Ersetzen ausgelötet werden müs- 
sen. Anschließend wird erst ein Sockel 
eingelötet und dann der neue IC einge- 


Disketten- 
Controller 


Disketten- 
Laufwerk 


ROM 


Decoder- 
baustein 


Video- 
Controller 


Z80-Prozessor 


64 KByte RAM 


Gate Array 


Bild 2. Schneider CPC 664 
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Z80-Pro- 
zessor 


Pufferbaustein 


Tongenerator ROM 


Ein-/Ausgabe: 

baustein 
Decoder. 
baustein 


Video- 
Controller 
ROM 


setzt. Ein erneuter Bausteinwechsel ist 
jetzt unproblematisch. 

Zum Auslöten sind jedoch handfeste 
Lötkenntnisse Voraussetzung. 


Wer 


Verstärker abklemmen 
und internen Lautsprecher 
‚ganz aufdrehen 


Andere Tonquelle 
(z.B. Radio) an 
externen Verstärker 
anschließen 


4,5-V-Batterie über 

Draht direkt arı den Laut- 

Sprecher des externen 
Verstärkers halten 


j 
Kabel zum 
Verstärker ersetzen 


Disketten- 
Controller 


128 KByte 
RAM 


Gate Array 


sich eine solche Reparatur selbst nicht 
zutraut, findet sicher in seinem Bekann- 
tenkreis jemanden, der ihm weiterhilft. 

Des weiteren erfordert diese Proze- 
dur eine gewisse Ausrüstung. Hierzu 
zählt unbedingt ein Lötkolben mit einer 
maximalen Leistung von 25 W und eine 
Entlötpumpe oder -litze beziehungs- 
weise ein Entlötkolben. Beim Auslöten 
ist die Lötzeit relativ unwichtig (bei 
extrem langen Lötzeiten können sich 
allerdings in näherer Umgebung die Lei- 
terbahnen von der Platine lösen). Wenn 
Sie dagegen das IC wieder verwenden 
wollen, darf eine Lötzeit von drei bis fünf 
Sekunden pro Pin (IC-Beinchen) nicht 
überschritten werden. Daß beim Ein- 
und Ausbau von Bausteinen im Compu- 


Bild 3. Schneider CPC 6128 


Disketten- 
Laufwerk 


ter der Netzstecker gezogen sein muß, 
ist selbstverständlich. 

Ein weiterer Grund, warum ein CPC 
6128 nach einer gewissen Zeit ausfal- 
len kann, besteht darin, daß ein Spei- 
cherbaustein der zweiten RAM-Bank 
(zweite Seite im Arbeitsspeicher) aus- 
gefallen ist. Diese RAM-Bank wird nur 
von CP/M Plus, von bestimmten Ma- 
schinensprache-Programmen und von 
anderen sehr langen Programmen auf- 
gerufen. Falls Ihr Gerät also in einem 
dieser Fälle beharrlich aussteigt, han- 
delt es sich um den erwähnten Defekt 
eines Speicherbausteins. Diese Art von 
Störung wird im letzten Abschnitt die- 
ses Beitrages ausführlich behandelt. 
Gewöhnlich tritt eine Störung im 
Computer bei einer 


Bild 4. Externen Verstärker 
Flußdiagramm reparieren 
»Tonstörung« 


1,5-V-Batterie über 

Draht direkt an den 

Lautsprecher des 
CPC halten 


Internen Verstärker 
reparieren 


Lautsprecher 
ersetzen 


Tongeneratorbaustein 
auswechseln 


Tongenerator 
war defekt 


Lautsprecher 
rsetzen 


ganz bestimmten 
Befehlssequenz 
(zum Beispiel bei 
der Ausgabe eines 
Textes auf den 
Drucker) auf. Oder 
die Fehlfunktion ist 
schon beim Ein- 
schalten vorhan- 
den, das heißt, der 
Computer verwei- 
gert die Annahme 
jeglicher Eingaben 
über die Tastatur, 
und auf dem Bild- 
schirm präsentiert 
sich ein wirres 
Chaos. 

Im ersten Fall läßt 
sich der Fehler 
leicht lokalisieren. 
Es kann sich nur um 
den Drucker oder 
Druckertreiber han- 
deln. Im zweiten 


) 
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Fall gibt es dagegen zu Anfang über- 
haupt keinen Anhaltspunkt, um welche 
Art von Störung es sich handelt. Der 
Unterschied zwischen den beiden Fäl- 
len besteht darin, daß im ersten Beispiel 
das Betriebssystem des Computers 
noch arbeitet und nur ein Teil der Funk- 
onen des Gerätes gestört ist. Im zwei- 
ten Beispiel handeltes sich dagegen um 
einen Totalausfall. 

Entsprechend ihrem Schwierigkeits- 
grad kommen im folgenden zuerst Stö- 
rungen bei funktionsfähigem Betriebs- 
system und darauf die Totalausfälle zur 
Sprache. 


Fehler im System 


Tonstörungen: 

Eine Störung in der Tonausgabe zu 
finden, ist sehr einfach. Sie müssen 
®ediglich streng nach dem Schema 
unseres Reparatur-Flußdiagrammes in 
Bid 4 vorgehen, und zum Schluß die 
Anweisung, die in dem für Sie infrage- 
kommenden Feld steht, befolgen. Die 
Reparatur des Verstärkers führt am 
besten entweder ein fachkundiger 
Bastler oder eine Reparaturwerkstatt 
durch. 

Zum Wechseln des Tongenerators ist 
zu bemerken, daß Sie selbstverständ- 
Sch zum Testen den Baustein eines 
anderen CPC-Besitzers mit funktionie- 
sender Tonausgabe verwenden kön- 
nen. Wenn es mit der Tonausgabe dann 
nmer noch nicht klappt, haben Sie 
‚wenigstens das Geld für einen zweiten 
Baustein gespart. Außerdem müssen 
Sie die weiter oben gegebenen Hin- 
weise zum Ein- und Ausbau von ICs 
Unbedingt beachten. 

Bildstörungen: 

Das Flußdiagramm zur Störungssu- 
che bei der Bildausgabe zeigt Bild 5. 
Ein erneutes Einschalten des Compu- 
ters und die Eingabe des SOUND- 
‚Befehls ist deshalb sinnvoll, weil das 

mte Computersystem abgestürzt 

in könnte. Dies hätte unter Umstän- 
‚gen ebenfalls eine fehlerhafte Bildaus- 
‚gabe zur Folge. Mit dem SOUND-Befehl 
Wird nun überprüft, ob das Betriebs- 
‚System noch arbeitet und den Ton aus- 
‚ot. Ist dies nicht der Fall, so liegt der 
Fehler an einer anderen Stelle, 
Wenn sowohl das Auswechseln des 
Gate Arrays, als auch das Auslöten und 
Ersetzen des Videocontrollers (hier gilt 
das gleiche wie beim Ein- und Ausbau 
des Tongenerators) nicht zum ge- 
wünschten Erfolg führt, muß der Fehler 
am Monitor liegen. Da der Monitor 
Jedoch intern mit Spannungen von bis 
zu 16 Kilovolt (Grünmonitor) bezie- 
hungsweise 24 Kilovolt (Farbmonitor) 
arbeitet, muß man das Gerät unbedingt 
zum Fachhändler bringen. 


Doch die Störungssuche hat für Sie 
trotzdem einen Vorteil. Zum einen 
wurde die Fehlerquelle damit bereits 
näher eingekreist, so daß bei der Repa- 
ratur geringere Kosten für die Stö- 
rungssuche anfallen. Zum anderen kön- 
nen Sie den Fachhändler von Ihren 
technischen Kenntnissen überzeugen, 
wenn Sie ihm Ihre bisherigen Ergeb- 
nisse bei der Fehlersuche schildern. 
Die Gefahr, bei der Kalkulation der 
Reparaturrechnung übervorteilt zu wer- 
den, wird dadurch geringer. 
Druckerstörungen: 

Auch bei der Störungssuche infolge 
fehlerhafte Druckerausgabe wird nach 
einem festen Schema vorgegangen, 
das Sie in Bild 6 finden. Bedingt durch 
das komplizierte Zusammenspiel von 
Mechanik und Elektronik in einem 
Drucker, empfiehlt sich dem völligen 
Laien an Reparaturarbeiten jedoch nur 
der Austausch des Druckkopfes. 

Beim Austausch des Pufferbausteins 
im CPC sollten wieder die weiter oben 


erwähnten Hinweise zum Ein- und Aus- 
bau von ICs beherzigt werden. Für die 
Überprüfung der Treiberfunktionen ist 
zusätzlich ein Oszilloskop und etwas 
Erfahrung im Verfolgen von Signalen 
und Leiterbahnen erforderlich. Die Trei- 
berbausteine sind in der Regel nicht 
gesockelt und müssen ebenfalls durch 
Auslöten ersetzt werden. 

Das Auswechseln der Schrittmotoren 
ist oft sehr aufwendig, weil sie die 
Schnittstelle zwischen Elektronik und 
Mechanik darstellen und dadurch mit 
beiden Komponenten direkt verbunden 
sind. Das Ablöten der elektrischen Lei- 
tungen gelingt noch relativ leicht, doch 
der mechanische Aus- und Einbau ver- 
langt schon einiges an handwerklichem 
Geschick. 

Recorderstörungen: 

Der Kassettenrecorder ist der Teil 
des Computers, der am häufigsten 
Grund zum Ärger bietet. Dabeiistes gar 
nicht so schwer, hier für Abhilfe zu sor- 
gen. Am häufigsten ist die falsche Ein- 


Monitor in 
Reparatur 


geben 


Bild 5. Flußdiagramm »Bildstörung« 
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stellung des Tonkopfes die Ursache 
des Ärgers. Die Meldung »load error« 
hatsicherlich jeder CPC-Besitzer schon 
einmal auf dem Bildschirm entdeckt. 
Das Fiußdiagramm in Bild 7 geht auf 
diese und weitere Störungsmöglichkei- 
ten ein. 

Der Austausch des Relais oder des 
Motors bleibt wiederum nur erfahrenen 
Bastlern vorbehalten. Die Reparatur 
des Verstärkers im Recorder kann nur 
ein Fachmann durchführen. 
Diskettenstörungen: 

Fehler bei der Diskettenverwaltung 
des CPCs zu finden und zu beheben, 
fällt dem Laien sehr schwer. Der Fehler 
liegt entweder im Disketten-Controller 
oder in der Mechanik des Laufwerks. 
Doch Wartungs- und Reparaturarbeiten 
auf diesem Gebiet können mehr Scha- 
den anrichten (zum Beispiel die Spur 
verstellen) als helfen. Deshalb sollte 
auch hier nur der Fachhändler tätig wer- 
den. 

Tastaturstörungen: 

Daß die Tastatur des CPC bei der Ein- 
gabe streikt, ist fast ein Ding der 
Unmöglichkeit. Abgesehen von gele- 
gentlichem Prellen (eine Taste wird nur 
einmal gedrückt, aber das Zeichen 
erscheint mehrmals auf dem Bild- 
‚schirm) dürften hier keine Fehler auftre- 
ten. Sollte Ihr Computer trotzdem ein- 
mal jegliche Eingabe ignorieren, sositzt 
entweder der Stecker des Kabels von 
der Tastatur zur Platine nicht richtig in 
der Buchse, oder ein Baustein, der an 
der Tastaturdekodierung beteiligt ist, 
funktioniert nicht korrekt. Ist neben der 
Tastatur auch der Joystickanschluß 
ausgefallen, handelt es sich um den 
Tongenerator, der nebenbei für Tasta- 
tur- und Joystickverwaltung zuständig 
ist. Imanderen Fall hat der Decoderbau- 
stein 7418145 sein Leben ausge- 
haucht. 


Einer für alles: 8255 


Auch der universelle Ein-/Ausgabe- 
baustein 8255 ist an der Tastaturdeko- 
dierung beteiligt. "Da dieser IC jedoch 
auch für Joystickanschluß, Tongene- 
rator, Kassettenrecorderverwaltung, 
Druckerausgabe und Reset zuständig 
ist, rührt sich beim Ausfall dieses Bau- 
steins fast gar nichts mehr. Wenn alle 
eben genannten Funktionen des CPCs 
streiken, dann ist die Diagnose leicht: 
Der 8255 muß gegen einen neuen Bau- 
stein ausgetauscht werden. Bei einem 
Preis von unter 10 Mark für das IC ist 
dies eine denkbar preiswerte Compu- 
ter-Reparatur. 

Kommen wir nun zu den schwierig- 
sten Fehlfunktionen: denjenigen, die 
einen Totalausfall bewirken. In diesem 
Fall fehlt zuerst scheinbar jeglicher 
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Ansatzpunkt. Doch bei planvollem Vor- 
gehen läßt sich auch in diesem Fall 
etwas erreichen. 

Die erste logische Vermutung bei 
einem Totalausfall des Computers ist 
der Verdacht auf Stromausfall. Also 
überprüfen Sie erst einmal, ob der Netz- 
stecker richtig in der Steckdose steckt 
und das Monitorkabel zur Spannungs- 
versorgung am Computer angeschlos- 
sen ist. Als nächstes überzeugen Sie 
sich davon, daß die Steckdose, an der 
Ihr CPC angeschlossen ist, auch Strom 
führt. Ein Blick in den Sicherungskasten 
klärt Sie auf. 

Eine weitere Fehlerquelle sind Gewit- 
ter und Störungen im Elektrizitätswerk, 
die kurzzeitige Netzspannungsausfälle 


bewirken können. In diesem Fall ist Ihr 
CPC ganz und gar unschuldig. 

Helfen die bis jetzt erwähnten Rat- 
schläge nicht weiter, so müssen Sie 
den Monitor eines funktionsfähigen 
CPCs an Ihr Gerät anschließen. 
Erwacht Ihr Computer dadurch wieder 
zum Leben, liegt der Fehler im Netzteil 
Ihres Monitors. Dann geben Sie das 
Gerät bitte unbedingt in Reparatur, 
denn im Monitor sind noch lange nach 
Ausschalten und Ziehen des Netz- 
steckers Spannungen von mehreren 
1000 Volt vorhanden. 

Ist auch der Monitor an der Störung 
Ihres Computersystems unschuldig, so 
muß der Fehler direkt im Gerät liegen. 
Dazu ziehen Sie wieder den Netz- 


Drucker defekt 


Sitz des Drucker- 
erprüten 


Arbeitet 
Druckkopf 


Er 
Treiber Sinale an 
Schritmotor aus? 
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Schrittmotor für 
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\Druckerhandbuch beschrieben) 


Bild 6. 
Flußdiagramm 
»Druckerdefekt« 
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stecker und zerlegen das Gerät wie 
oben beschrieben. Schauen Sie sich 
nun sehr sorgfältig die Platine Ihres 
CPCs an. Befindet sich irgendwo ein 
Löttropfen auf der Platine und schließt 
zwei Leitungen kurz (sehr unwahr- 
scheinlich), oder sieht einer der kleinen 
braunen Kondensatoren verschmort 
aus, so daß er einen Kurzschluß verur- 
sachen könnte? Vielleicht finden Sie 
auch in einer Leiterbahn einen winzigen 
Haarriß, der zu einer Signalunterbre- 
‚chung führt. 

Diese Fehler lassen sich allesamt 
sehr einfach beseitigen. Der Löttropfen 
wird vorsichtig mit einem kleinen Mes- 
ser entfernt, der Kondensator mit dem 
Seitenschneider abgezwickt (wenn nur 
ein einziger entfernt wird, muß er nicht 
ersetzt werden), und der Haarriß mit 
etwas Lötzinn geflickt. 


Des Schneiders Kern 


Waren bis jetzt alle Bemühungen 
fruchtlos, so müssen Sie zum Kern 
Ihres CPCs vorstoßen. Zuerst soliten 
Sie den gesockelten Mikroprozessor 
Z80 probeweise gegen einen Ersatz- 
baustein austauschen. Dieses IC stellt 
das Herzstück des CPCs dar und ist für 
die Programmbearbeitung, Steuerung 
der Speicherverwaltung und Ein-/Aus- 


gabe von Daten an die Peripherie 
zuständig. Den Baustein erhalten Sie im 
Handel teilweise schon für unter fünf 
Mark und so ist er auch für finanziell 
weniger gutstehende Bastler erschwing- 
lich. 

Stellt sich nach Einsetzen des Mikro- 
Pprozessors heraus, daß Ihr Gerät immer 
noch nicht funktioniert, so ist das Gate 
Array eine weitere Fehlerquelle. 

Das Gate Array ist ein Spezialbau- 
stein, der eigens für die CPC-Serie kon- 
struiert wurde und die Fünktion von 
mehreren konventionellen Logikbau- 
steinen in sich vereint. Das IC ist unter 
anderem für Speicherverwaltung, Bild- 
ausgabe, Interruptsteuerung und Er- 
zeugung der verschiedenen Taktfre- 
quenzen verantwortlich. 

Das Überprüfen des Gate Arrays ver- 
langt allerdings ziemlichen Aufwand. 
Einerseits ist der Baustein 40polig (das 
heißt, es müssen 40 Pins ausgelötet 
werden), andererseits ist er sehr teuer, 
so daß ein Kauf für Testzwecke nicht zu 
empfehlen ist. In diesem Fall empfiehlt 
es sich, den Fachhändler zu Rate zu 
ziehen. Schildern Sie ihm Ihr Problem 
und geben Sie den Computer in seine 
Hände. Es ist günstiger, einen gewis- 
sen Betrag für die Reparatur zu bezah- 
len, als einen Totalschaden des Gerätes 
zu riskieren. 

Die letzte potentielle Fehlerquelle, die 


Ä Recorder defekt 


Stecker von Recorder 
auf Computerplatine 


Läuft der 
Motor? 


Verstärker im 
Recorder reparieren 


Kassettenfach nicht schließen. 
Während Ladevorgang kleine 
Schraube in Aussparung über 


Bild 7. Flußdiagramm »Recorderdefekt« 


wir an dieser Stelle behandeln, ist ein 
defekter Speicherbaustein. Der Spei- 
cher des CPCs unterteilt sich in Fest- 
wertspeicher (ROM) und Arbeitsspei- 
cher (RAM). Der Festwertspeicher ent- 
hält Betriebssystem und Basic, im Ar- 
beitsspeicher werden Systemdaten 
des Betriebssystems und Programme 
und Daten des Anwenders abgelegt. 

Der Festwertspeicher besteht aus 
einem einzigen Baustein, so daß das 
Austesten dieses ICs auf die gleiche 
Weise wie beim Gate Array erfolgt. Ein 
Defekt ist allerdings sehr unwahr- 
scheinlich. 

Bleibt als letzte Fehlerquelle der 
Arbeitsspeicher. Die CPCs 464 und 
664 enthalten acht Speicherbausteine 
des Typs 4164. Wenn auch nur ein Bau- 
stein davon ausfällt, so ist, bedingt 
durch die interne Speicherorganisation 
des Computers, in sämtlichen 65536 
Speicherzellen des Arbeitsspeichers 
ein Bit falsch gesetzt. Da das Betriebs- 
system wichtige Daten, wie zum Bei- 
spiel Firmware- und Restart-Vektoren 
im Arbeitsspeicher ablegt, führen fal- 
sche Bits an dieser Stelle zu einem 
sofortigen Computerabsturz. 

Ein Spezialfall ist hier der CPC 6128. 
Er arbeitet mit 16 Speicherbausteinen. 
Wenn eines der unteren acht ICs sei- 
nen Geist aufgibt, führt dies gleicher- 
maßen zu einem Computerabsturz, wie 
bei den anderen CPCs auch. Liegt der 
Defekt dagegen in einem der oberen 
acht Speicherbausteinen, so »hängt« 
sich der Computer spätestens beim 
‚Aufruf von CP/M Plus auf. 

Das Austesten und Auswechseln der 
Speicherbausteine ist eine heikle 
Sache, weil diese sehr empfindlich und 
ungesockelt sind. Deshalb ist es rat- 
sam, den Computer in Reparatur zu 
geben. Sollte zudem die Fehlerquelle 
wider Erwarten nicht im Arbeitsspei- 
cher liegen, so handelt es sich um eine 
nur mit viel Aufwand zu lokalisierende 
Fehlfunktion. Lediglich der Fachmann 
mit der entsprechenden elektroni- 
schen Ausrüstung ist in der Lage, diese 
Störung zu finden und zu beseitigen. 

(ma) 


‚Sie mit der Zeit den einen oder anderen 
Trick herausgefunden, mit dem sich be- 
‚stimmte Fehler aufspüren und beheben 
lassen. Wir würden uns freuen, wenn 
‚Sie uns diese Tips mitteilen, Die Hin- 
weise müssen nicht nur das Grundgerät 
selbst, sondern können auch die Peri- 
pherie betreffen. Alle interessanten Ein- 
sendungen werden wir in loser Folge 
veröffentlichen, so daß Ihr Wissen auch 
‚anderen CPC-Besitzern zugute kommt. 
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Klein, aber fein 


Eine »fremde« Schaltung an 
Ihrem Schneider? Dazu benöti- 
gen Sie ein Interface, das die 
elektrischen Signale aneinander 
anpaßt. Eine ganz einfache 
Lösung, die die Dateneingabe 
von 8 Bit parallel erlaubt, stellt 
unser Minimal-Interface dar. 


ft steht der Hobby-Bastler vor 

dem Problem, daß er in einem 

Elektronikgeschäft oder einer 
Zeitschrift eine interessante Schaltung 
entdeckt (zum Beispiel die Meßwert- 
erfassung in dieser Ausgabe), aber ein 
Interface zum Anschluß der Schaltung 
an seinen Computer fehlt. Ein solches 
Interface muß erst konstruiert und auf- 
gebaut werden; vor allem für Anfänger 
eine fast unüberwindliche Schwierig- 
keit. 

Allen Lesern, die ein Interface zur 
parallelen Eingabe von 8-Bit-Daten be- 
nötigen, bietet das Minimal-Interface 
eine preiswerte und einfache Lösung. 
Zum Aufbau brauchen Sie lediglich drei 
ICs und zwei Kondensatoren. Der 
Gesamtpreis der Bauteile liegt damit 
unter 5 Mark. Rechnet man noch die 
Kosten für Sockel, Platine, Flachband- 
kabel und Computerstecker hinzu, fal- 
len etwa 30 Mark an. 

Bild 4 zeigt den Schaltplan des 
Minimal-Interface. Tabelle 1 listet die 
Bauteile und das mechanische Zu- 
behör auf. Die Funktion des Interface 
verstehen Sie am besten, wenn Sie 
dessen Aufgabe näher untersuchen. 


Bild 1. So finden Sie die 
Anschlüsse am IC 


AA ansronsireawoRLs, 


Das Interface muß die acht Bitsignale, 
die die angeschlossene Schaltung lie- 
fert, übernehmen, für die Elektronik des 
CPC aufbereiten und an den Computer 
übergeben. Hierzu bietet sich der 8-Bit- 
Leitungstreiber 74LS244 an, der aus 
acht einzelnen Treibern (Digitalverstär- 
kern) besteht. Dieser Baustein besitzt 
zusätzlich die Fähigkeit, daß er sich 
abschalten, das heißt in den hochohmi- 
gen Zustand (Tri-State) versetzen läßt. 


Verwirrter Computer 


Die Signalverarbeitung des Interface 
löst der 8-Bit-Treiber. Ohne äußere 
Beschaltung würde das IC die einge- 
henden Daten ständig an den Datenbus 
des CPC weiterreichen. Weil der Com- 
puter den Datenbus jedoch auch bei 
anderen Vorgängen benötigt (zum Bei- 
spiel Speicherzugriffe), würden die 
Daten des Interface die Elektronik des 
Computers gänzlich verwirren, ihn 
unter Umständen sogar zerstören. Aus 
diesem Grund ist es erforderlich und 
auch verständlich, daß sich der Treiber- 
Baustein ausschalten läßt. 

Ein- und Ausschalten des 8-Bit- 
Treibers erfolgt über die beiden CE- 
Eingänge (chip enable). Der Balken 
über der Abkürzung bedeutet, daß die 
Signale mit negativer Logik arbeiten, 
das heißt, sie sind im Zustand Null aktiv. 
Deshalb schaltet eine Null an den bei- 
den Eingängen den Baustein ein, und 1 
schaltet aus. 

Zum Ein- und Ausschalten des 8-Bit- 
Treibers wird eine Decodierlogik benö- 


tigt, die den Baustein nur dann aktiviert, 
wenn der CPC es wünscht. Das ist ein- 
fach gesagt, aber wie kann die Deco- 
dierlogik eine Eingabe-Anforderung 
des Computers an das Interface erken- 
nen? 

Der Mikroprozessor Z80 des CPC 
erzeugt ein spezielles Signal, wenn kein 
Speicher-, sondern ein Portzugriff 
erfolgt. Ein Port stellt für den Z80 eine 
Art Kanal zum Austausch von Daten mit 


der Peripherie dar. Zur Abfrage von 


Tastatur und Joystick sowie zur Daten- 
ausgabe an Bildschirm und Drucker 


wird dieses Verfahren im CPC benutzt. 


Was liegt näher, als diese Methode 
auch für das Ansprechen des Interface 
zu verwenden. 

Durch das Signal IORQ zeigt der Z80 
an, daß ein Port angesprochen ist. Über 
das RD-Signal wird zusätzlich ein Lese- 
zugriff gekennzeichnet, Diese zwei 
Signale reichen aus, um eine Eingabe- 
Anforderung des Computers an das 
Interface anzuzeigen. 

Um die einzelnen Ports, die bereits in 
der Hardware des CPC installiert sind, 
nicht miteinander zu verwechseln, 
spricht die Z80 jeden Port mit einer 
16-Bit-Adresse an. Damit auch das 
Minimal-Interface eine eigene Port- 
adresse erhält, muß die Decodierlogik 
des Interface neben den beiden Signa- 
len IORQ und RD auch die Portadresse 
des Computers abfragen. Sie darf erst 
beieiner ganz bestimmten Kombination 
der Adreß-Bits den 8-Bit-Treiber frei- 
schalten. Die Adresse des Interface 
wird durch die Bitkombination, die den 
Baustein freischaltet, definiert. 


Bauteile und Zubehör zum Minimal-Interface 


Bauteilfe) 


Wert/Typ 


Keramikkondensatoren 


100 nF 


NAND-Gatter mit acht Eingängen 


741530 


vierfaches OR-Gatter 


741532 


8-Bit-Leitungstreiber 


7415244 


IG-Sockel 


14polig 


IC-Sockel 


20polig 


IC-Experimentierplatine 


Meter 50poliges Flachbandkabel 


‚50poliger Direktstecker für 
Flachbandkabel-Anschluß 


nur für CPC 464/664 


50poliger Amphenolstecker für 
Flachbandkbabel-Anschluß 


nur für CPC 6128 


Löt-Ösen oder Steckverbindung für den 
‚Anschluß der externen Schaltung 


Tabelle 1. Das Interface besteht aus bewährten Standardbauteilen 


Hexadezimale 
Werte 


A15 | At4 | A13 | A12 | AI | AIO 


FBEO bis FOFF 


FIEO bis FOFF 


| FAEO bis FAFF 


FBEO bis FBFF 


ololololo 


‚alle aufgeführten 


Leider können Sie für das Interface 
eine beliebige Adresse wählen, denn 
En Großteil ist bereits durch die Hard- 
Ware des CPC belegt. Für den Anwen- 
ger kommen lediglich die Adressen 
FBEO bis F8FF hex, F9EO bis FIFF 
Hex, FAEO bis FAFF hex und FBEO bis 
FBFF hex in Frage. 


ertgepadı beim 
ressieren 


Tabelle 2 zeigt diese vier Adreßberei- 
Ehe in Binärwerte umgewandelt. Für 
‚eden Bereich sind die veränderlichen 
‚Bits durch ein Kreuz markiert. Die unter- 
sie Zeile der Tabelle zeigt an, welche 
Bits insgesamt veränderlich sind. Das 
Ergebnis ist, daß die Adreß-Bits: A15, 

, Al3, Al2, All, A7, A6 und A5 auf 
% Siegen müssen, und der Wert des 
Adreß-Bit AlO O betragen muß, damit 
Sicht ein Port angesprochen wird, das 
som CPC bereits reserviert ist. 

Ein Blick auf den Schaltplan zeigt, daß 
alle genannten Adreß-Bits zur Decodie- 
zung der Interface-Adresse herangezo- 
‚gen werden. Alle Adreß-Bits, die auf 1 
Segen müssen, sind an ein NAND-Gat- 
ter mit acht Eingängen geschaltet. Der 


ae 


abelle 2. Vier Adreßbereiche hält der CPC für den Anwender frei 


Ausgang des NAND-Gatters geht nur 
dann auf Null, wenn alle Eingänge auf 1 
liegen. Die Signale A10, IORQ und RD, 
die für einen Interface-Zugriff auf Null 
liegen müssen, sind an OR-Gatter ge- 
schaltet. Die Ausgänge der OR-Gatter 
gehen im Gegensatz zum NAND-Gatter 
nur dann auf Null, wenn alle Eingänge 
auf Null liegen. Da der 8-Bit-Treiber 
durch ein Signal mit dem Wert Null akti- 
viert wird, bewirken nur die oben ge- 
nannten Bit-Zustände eine Freigabe 
des Bausteins. 

Sicherlich ist Ihnen aufgefallen, daß 
auch das Adreß-Bit A4 zur Decodierung 
der Portadresse herangezogen wird. 
Wenn das Interface zur Decodierung 
nur die Adreß-Bits verwenden würden, 
deren Zustand für die Unterscheidung 
zwischen bereits belegten und freien 
Ports des CPC wichtig ist, könnte das 
Interface durch jede der in Tabelle 2 auf- 
geführten Adressen angesprochen 
werden. 

Weil der Baustein 741532 vier OR- 
Gatter enthältund somitnoch ein Gatter 
zur Verfügung steht, diente kurzerhand 
ein weiteres Adreß-Bit dazu, den Adreß- 
bereich ein wenig einzuschränken. 
Durch die Bedingung, daß das Adreß- 
Bit A4 zur Freigabe des Interface auf 
Nullliegen muß, kann das untere Adreß- 


acc 
ac 
acc 
aa 
aa 
BE} 
aa 


E 
E 


Bild 3. ...doch unten sind nur Lötstellen und eine Drahtbrücke 


Byte nicht jeden beliebigen Wert an- 
nehmen, sondern muß im Bereich EO 
bis EF hex liegen, um zusammen mit 
dem oberen Byte F8, F9, FA oder FB 
hex eine korrekte Portadresse zu bil- 
den. 

Die beiden Keramikkondensatoren 
zu je 100 Nanofarad in der Interface- 
Schaltung dienen zur Dämpfung von 
Schaltspannungsspitzen. 

Der mechanische Aufbau des Inter- 
face erfolgt auf einer IC-Experimentier- 
platine. Diese Platinenart hat eine 
besondere Anordnung von Lötstreifen, 
die den Aufbau von IC-Schaltungen ver- 
einfacht. Einige »Trockenversuche« 
beim Plazieren der ICs auf der Platine 
helfen Ihnen, die günstigsten Positio- 
nen herauszufinden, um mit einer mini- 
malen Anzahl von Drahtbrücken auszu- 
kommen. Bild 2 und 3 zeigen Ober- und 
Unterseite eines Aufbaubeispiels. 


Verlötet und 
verkabelt 


Anstelle der ICs löten Sie zwei 14po- 
lige Sockel (für 74LS30 und 741832) 
und einen 2Opoligen Sockel (für 
7415244) ein. So vermeiden Sie 
Beschädigungen der Bausteine beim 
Einbau. Erst dann, wenn das Interface 
bereits komplett aufgebaut und ohne 
ICs im »Leerlauf«e am Computer auf 
Kurzschlüsse getestet wurde, stecken 
Sie die Bausteine in die dafür vorgese- 
henen Sockel. 

Die Anschlüsse der ICs sind entge- 
gen dem Uhrzeigersinn durchnume- 
riert. Wenn Sie den Baustein mit der län- 
geren Seite so vor sich legen, daß sich 
die Einkerbung auf der linken Seite 
befindet, ist der Anschluß mit der Num- 
mer 1 links auf der Ihnen zugewandten 
Seite (siehe Bild 1). 
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Die beiden Kondensatoren werden 
nahe den ICs zwischen +5 Volt und 
Masse eingelötet. Für den Anschluß 
der Datensignale, die das Interface ver- 
arbeiten soll, verwenden Sie entweder 
acht Löt-Ösen, oder eine 9polige 
Steckverbindung (ein Pol für Masse). 

Das Interface hat einen Stromver- 
brauch von nur 70 Milliampere. Aus die- 
sem Grundist die Versorgung über eine 
externe Spannungsquelle nicht zwin- 
gend erforderlich, und Sie können die 
+5 Volt an Pin 27 des Erweiterungsan- 
schlusses abgreifen. 

In der Regel arbeitet jedoch die 
Schaltung, die an das Interface ange- 
schlossen ist und die Daten liefert, mit 
einer eigenen 5-Volt-Spannungsauelle. 
Den Masseanschluß dieser Span- 
nungsquelle müssen Sie ohnehin zum 
Potentialausgleich mit der Masse des 
Interface verbinden. Wenn Sie zusätz- 
lich das +5-Volt-Signal an das Interface 
anschließen, erfolgt die Spannungsver- 
sorgung über diese Leitung. 


Das Interface verbinden Sie über ein 
Flachbandkabel und den passenden 
Stecker mit dem CPC. Das Flachband- 
kabel legen Sie auf der Computerseite 
in das Steckerunterteil ein und pressen 
das Oberteil kräftig auf. Dadurch erfolgt 
ein stabiler, lötfreier Kontakt (Schneid- 
Klemm-Technik). 


Software 


einfac 


Auf der Interfaceseite empfiehlt es 
sich, die 29 unbenutzten Leitungen 
einige Zentimeter zu kürzen und die 
übrigen Signale mit kleinen Papierfähn- 
chen zu kennzeichnen. Die Fähnchen 
beschriften Sie mit der Bezeichnung 
der Anschlüsse. Auf diese Weise ist 
nahezu ausgeschlossen, daß Sie die 
Leitungen beim Anlöten an das Inter- 
face miteinander verwechseln: 


Nachdem nun ausführlich dargelegt 
wurde, wie das Minimal-Interface funk- 
tioniert, fehlen noch die Informationen, 
wie das Interface über die Software 
aktiviert wird. 

Um Daten von einem Port einlesen zu 
können, stellt das Basic des CPC den 
Befehl »wert=INP(adresse)« zur Verfü- 
gung. In Maschinensprache dienen die 
beiden Befehle »LD B, ob« und »IN 
r,(ub)« zum gleichen Zweck. 

In beiden Fällen aktiviert der Z80 die 
Signale IORQ sowie RD und gibt eine 
16-Bit-Adresse zur Adressierung des 
Ports aus. Die Adresse wird in Basic 
durch den Wert der Variablen »adresse« 
bestimmt und setzt sich in Maschinen- 
sprache aus dem oberen Byte »ob« und 
dem unteren Byte »ub« zusammen. 

In Basic wird das eingelesene Daten- 
byte der Variablen »wert» zugewiesen, 
und in Maschinensprache in das Regi- 
ster r geschrieben. Für die Portadresse 
verwenden Sie einen der oben genann- 
ten Werte. (ma) 


Eingang für DO 
Eingang für Di 
Eingang für D2 
Eingang für D3 
Eingang für D4 
Eingang für D5 
Eingang für D6 
Eingang für D7 


externe 
Spannungs- 
quelle 


Pin 7 von 
741532 


Pin 14 von 
741532 


Y 741532 
3 


DO (26) 
Di (25) 
D2 (24) 
03 (23) 
D4 (22) 
D5 (21) 
D6 (20) 
D7 (19) 


GND (2) 


Erweiterungsanschluß des GPC 


A12 (6) 
A13 (5) 
AI4 (4) 
A1S (3) 


Speziell für @=,Schneidercomuer 


URBO-LADER 


Programm-Bibliothek für Turbo-Pascal. 


Jurbo-lader-Grundmodul ist eine 
reiche Programm-Bibliothek für den 
scal-Programmierer. Sie umfaßt 
äche ausführlich dokumentierte Proze- 
und Funktionen, die der Profi zur 
in lösung seiner Programmierauf- 
verwenden kann und die dem Ein- 
das Erlernen der Pascal-Program- 
erleichtern. 
inipulation 
{male Sortierverfahren 
'ndung von Spline-Funktionen 
ssionsanalyse 
Routinen werden im kommentierten 
le für den Turbo-Pascal-Compiler 
iefert. 
re-Anforderung: 
ascal-Compiler. 


Mich &Technik-Software erhalten Sie in den 
ungen der Warenhäuser, bei Ihrem 
händler, im Buchhandel oder direkt 
gegen Vorauskasse. Fragen Sie auch 
neuen Gesamtverzeichnis Herbst "86. 
Sie es direkt beim Verlag on. 
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Turbo-Inder Business 

Turbo-lader Business umfaßt einen komfor- 
tablen Bildschirm-Maskengenerator und eine 
professionelle Dateiverwaltung. Der Masken- 
generator gibt dem Pascal-Programmierer ein 
Werkzeug zur einfachen Bearbeitung von 
Bildschirm-Masken in die Hand. 

Mit diesen beiden Modulen stehen dem 
‚Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im 
kommentierten Quellcode für den Turbo- 
Pascal-Compiler ausgeliefert. 
Software-Anforderun: 
Turbo-Pascal-Compiler, Turbo-lader- 
Grundpaket 


Markt&fTechnik 


Zeitschriften - Bücher 
Software - Schulung 


Markt&Technik Verlag AG, Buchverlag, Hons-Pinsel-Stroße 2, 8013 Hoar bei München, Telefon (089) 4613-0 


Turbo-lader Science ist eine Sammlung 

technisch/wissenschaftlicher Funktionen und 

professioneller statistischer Verfahren für die 

Bereiche Medizin, Betriebs- und Volkswirt- 

schaft, Technik und Naturwissenschaften. 

© Arithmetische Operationen zur Verarbei- 
tung komplexer Variablen 

© Wichtige Funktionen: Potenz, Wurzel, 
trigonometrische und transzendente 
exponentielle Funktion 

© Der Statistikteil: ein praktisches und direkt 
verwendbares Werkzeug zur computer- 
unterstützten, effektiven Datenanalyse. 

Software-Anforderung: 

Turbo-Pascal-Compiler, Turbo-lader- 

Grundpaket 


ingen im Ausland bitte an: SCHWEIZ: ‚Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf Lechner & Sohn, 
Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Media Verlagsges. mbH, Alser Straße 24, A-I0PI Wien, Telefon (0222) 481538-0. 
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Speicher- 
oszilloskop 
selbstigebaut 


Ein Speicheroszilloskop steht 
ganz oben auf der Wunschliste 
eines Hobby-Bastlers. Und ein 
Digitalvoltmeter oder ein Oszillo- 
graph. Wir stellen Ihnen eine 
preiswerte Schaltung vor, die 
alle drei Wünsche erfüllt. 


as kann doch nicht wahr sein, 

werden Sie denken. Eine Schal- 

tung funktioniert als Speicher- 
oszilloskop, Digitalvoltmeter und Oszil- 
lograph zugleich und soll nur 30 Mark 
kosten? Es ist wahr, und mit etwas 
Bastelerfahrung können Sie diese 
Schaltung sogar nach Wunsch zu 
einem Digitalthermometer, einem Hellig- 
keits- oder Feuchtigkeitsmeßgerät er- 
weitern. 

Natürlich dürfen Sie an eine Schal- 
tung für 30 Mark keine hohen Ansprü- 
che in bezug auf Geschwindigkeit und 
Genauigkeit stellen, und einen kleinen 
Haken hat die Sache auch, denn zum 
Betrieb der Schaltung ist ein einfaches 
8-Bit-Interface notwendig. Dieses In- 
terface muß Ihr CPC über eine Port- 
adresse ansprechen und 8 Bit an des- 
sen Datenbus übergeben. Das ist aber 
auch schon alles. 

Das erforderliche Interface bauen Sie 
aus einem parallelen Interface-Baustein 
(8255 oder Z-80 PIO), einem 8-Bit- 
Leitungstreiber für den Computerein- 
gang (74LS244) und einer Decodier- 
schaltung für die Portadresse (NAND- 
Gatter 74LS30, Decoder 7415138 
und einige Inverter für einzelne Adreß- 
bits) auf. 

Wenn Sie sich die Planung eines 
Interfaces nicht zutrauen, verwenden 
Sie das Happy-Interface aus Ausgabe 
10/85, Seite 28, oder die Multifunk- 
tionskarte aus dem 5. Schneider-Son- 
derheft, Seite 26. Eine Minimallösung 
für Anfänger und Bastler mit schmalem 
Geldbeutel bietet die Einsteiger-Baste- 
lei in dieser Ausgabe. Hier wird aus nur 
drei ICs ein funktionstüchtiges 8-Bit- 
Interface zur Dateneingabe konstruiert. 

Wer den Selbstbau scheut, kann ein 
fertig aufgebautes Interface kaufen 
oder einen Bausatz erwerben und von 
einem befreundeten Bastler zusam- 
mensetzen lassen. 
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Eine rustikale 
Lösung des 
Schaltungsaufbaus 


Kommen wir nun zu der eigentlichen 
Schaltung. Bild 1 zeigt den Schaltplan 
unserer Universal-Bastelei und Tabelle 
1 listet die Bauteile, die Sie zum Aufbau 
benötigen. Das Herz der Schaltung 
besteht aus dem 8-Bit-A/D-Wandler 
ADCO804, der die eingehenden analo- 
gen Meßwerte in digitale Werte umwan- 
delt und an den Computer ausgibt. 
Neben dem A/D-Wandler sind zum Be- 
trieb nur noch acht Widerstände und 
Dioden, fünf Potentiometer und einige 
weitere Kleinteile notwendig. 

Die Schaltung läßt sich in zwei Bau- 
gruppen unterteilen. Die erste Bau- 
gruppe erzeugt aus der Meßspannung 
die Eingangsspannung, und die zweite 
Baugruppe verarbeitet die Eingangs- 
spannung zu einem digitalen Wert. 
Wenden wir uns zuerst der zweiten 
Baugruppe zu. 

Der 10-Mikrofarad-Elektrolytkonden- 


sator glättet eventuelle Spannungs- 
schwankungen. Der 10-Kiloohm-Wider- 
stand und der 120-Pikofarad-Konden- 
sator dienen in der angegebenen 
Beschaltung zur Erzeugung der Ar- 
beitsfrequenz des A/D-Wandlers. Der 
Baustein arbeitetmiteiner Taktfrequenz 
von ungefähr 760 Kilohertz. Da er für 
einen Digitalisierungsvorgang 64 Takt- 
zyklen benötigt, wird die Eingangs- 
spannung etwa 12000mal pro Sekun- 
de digitalisiert. Profis werden kritisie- 
ren, daß sich ohne Sample-and-Hold- 
Glied (Schaltung, die eine analoge 
Spannung zwischenspeichert) nur Fre- 
quenzen bis zu 600 Hertz ausreichend 
darstellen lassen, aber den Hobby- 
Anwender wird das bei dem günstigen 
Preis nicht weiter stören. 

Der Taster T startet auf Druck den 
Wandlungsvorgang, und die acht Di- 
oden an den Ausgängen des A/D- 


WertiTyp 
Drucktaster 
1 Kippschalter Ipolig 
1 Drehschalter 4stufig 
1 Widerstand 2200 
2 Widerstände 18 
1 Widerstand | 330 
.) Widerstand 6,8K0 
2 Widerstände 10xQ 
1 Mettallfilm-Widerstand 10KQ, 1 Prozent 
1 F Potentiometer 1x0 
4 Potentiometer 2,2kQ 
1 Keramikkondensator 150 pF, 5 Prozent | 
1 Elektrolytkondensator 104F 
8 Standarddioden 1N4148 
I 1 Germaniumdiode AA 136 oder ähnliches 
T Zenerdiode ZPY 5,6 
1 


sr 


8-Bit-A/D-Wandler 


ADC0804 oder ADCO802 


Tabelle 1. Das brauchen Sie. Vergleichen Sie die Preise bei A/D-Wandlern. 


Wandlers schützen den Baustein vor 
Spannungsspitzen. Mit dem Potentio- 
meter an Pin 9 des A/D-Wandlers wird 
die Referenzspannung auf exakt 2,5 
Volt justiert. Diese Einstellung begrenzt 
den Spannungsbereich, den der A/D- 
Wandler digitalisiert, auf O bis +5 Volt. 

Einer Eingangsspannung von O Volt 
wird O und einer Eingangsspannung 
von +5 Volt der Wert 255 zugeordnet. 
Die Spannungswerte dazwischen er- 
halten den entsprechenden digitalen 
‚Gegenwert nach der Formel: 
wert = INT(51 * spannung) 

Da der A/D-Wandler den Spannungs- 
bereich von 5 Volt in 255 Schritte auf- 
löst, ergibt sich eine Auflösung von 20 
Millivolt für den Meßvorgang. 

Höhere Spannungen als +5 Volt ver- 
arbeitet der A/D-Wandler zwar auch, 
aber ein gößerer Wert als 255 läßt sich 
mit 8 Bit nicht darstellen. Deshalb ist 
eine Eingangsspannung von über +5 
Volt nicht sinnvoll. Spannungen über 
+5,6 Volt schließt ohnehin die Zener- 
diode ZPY 5,6 nach Masse kurz. 

Die erste Baugruppe erzeugt aus der 
Meßspannung an U+ über Spannungs- 
teiler die Eingangsspannung für den 
A/D-Wandler. Die anliegende Meßspan- 
nung wird über eine Leitungsbrücke mit 
‚dem gewünschten Meßbereich (Us bis 
5 Volt, U, bis 10 Volt etc.) verbunden. 
Der Meßbereich wird mit dem Dreh- 
‚schalter DS ausgewählt. 

Jeder Meßbereich läßt sich eichen, 
indem Sie eine bekannte Spannung 
anlegen und das Potentiometer des 
Spannungsteilers solange drehen, bis 
‚das Ergebnis der Software (Funktion 4 
für Voltmeter wählen) mit dem tatsäch- 
chen Wert übereinstimmt. Achten Sie 
‚darauf, daß Sie beim Eichen eines Meß- 


bereichs auch im Programm den rich- 
tigen Meßbereich einstellen (Funk- 
tion O). 

Die Zenerdiode sorgt dafür, daß bei 
Anschlußfehlern eine für den A/D- 
Wandler schädliche Überspannung 
nach Masse kurzgeschlossen wird. 


40 Volt 
Wechselspannung 


Wenn Sie mit der Schaltung Wechsel- 
spannungen messen möchten, darf die 
Eingangsspannung an U,(+) des A/D- 
Wandlers nicht unter die Spannung an 
U„(-) fallen, andernfalls besteht die 
Gefahr, daß der Baustein beschädigt 
wird. Zum Schutz des ICs schließt die 
Germaniumdiode AA 136 negative 
Spannungen über 0,3 Volt kurz. Um 
trotzdem negative Wechselspannun- 
gen zu messen, behelfen Sie sich mit 
einem kleinen Trick. Über den Schalter 
S prägen Sie eine Gleichspannung, die 
von der Versorgungsspannung abge- 
griffen wird, auf die Eingangsspannung 
auf. Dadurch wird der Wert der Ein- 
gangsspannung angehoben und nega- 
tive Werte gelangen in den positiven 
Bereich. 

‚Sie müssen allerdings sehr genau auf 
die Einstellung des Potentiometers P 
achten, damit auch die negative Spit- 
zenspannung der Meßspannung am 
Eingang U,,(+) nicht unter O Volt fällt. 
Es empfiehlt sich dringend, zu Meßbe- 
ginn das Potentiometer an den oberen 
Anschlag zu drehen, so daß der Wider- 
stand kurzgeschlossen wird. Bei einem 
periodischen Signal läßt sich die opti- 
male Einstellung durch Verstellen des 
Potentiometers bei gleichzeitiger Aus- 
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erste Baugruppe 
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Bild 4. Der Aufbau dieser Schaltung lohnt sich 


gabe der Meßkurve auf den Computer- 
Bildschirm erzielen. Trotzdem sollten 
Sie für Spannungsschwankungen im- 
mer noch einen kleinen »Reserveab- 
stand« nach unten einhalten. 

Eine Wechselspannung dürfen Sie 
nuran den dafür vorgesehenen Meßbe- 
reich anschließen (im Zweifelsfall an 
U,o), und niemals mit größeren Span- 
nungen als 42 Volt arbeiten, weil sonst 
die Bastelei bei Berühren von leitenden 
Teilen lebensgefährlich wird! 

Für eine rein qualitative Darstellung 
von Wechselspannungen sind außer 
dem Schließen des Schalters S und 
Justieren des Potentiometers P keiner- 
leizusätzliche Maßnahmen nötig. Wenn 
Sie dagegen eine quantitative Auswer- 
tung der Signale wünschen, müssen 
Sie die positive und negative Spitzen- 
spannung kennen, und ausgehend von 
diesen Daten in der Programmroutine 
zum Zeichnen des Koordinatenkreuzes 
eine Nullinie definieren, so daß alle 
Spannungswerte unterhalb dieser Linie 
als negative Werte dargestellt werden, 
Eine Anpassung der Digitalvoltmeter- 
Funktion an Wechselspannungen ist 
aufgrund des ständig schwankenden 
Wertes nicht sinnvoll. 


Korrekte 
Konstruktion 


Die Spannung an U- beziehungs- 
weise U,(-) stellt das Bezugspotential 
zur Meßspannung dar. Hier schließen 
Sie die Masse der Meßspannung, be- 
ziehungsweise die Spannung, die vom 
A/D-Wandler als Masse definiert wer- 
den soll, an. Die Stromversorgung der 
Schaltung darf nicht über den Compu- 
ter, sondern muß über eine externe 
5-Volt-Spannungsquelle erfolgen. Zum 
Potentialabgleich ist es jedoch erfor- 
derlich, daß Sie den Minuspol der Span- 
nungsquelle mit dem Masseanschluß 
des Computers (GND) verbinden. 

Für die Anhänger von großen Genau- 
igkeiten kommt neben dem A/D-Wand- 
ler-Baustein ADC0804 auch der dop- 
pelt so genaue und etwas teurere 
ADCO0802 in Frage. Doppelt so genau 
heißt in diesem Fall jedoch nicht, daß 
der ADC0802 mit einer Auflösung von 
10 Millivolt arbeitet, sondern daß die 
größten Meßabweichungen durch Pro- 
duktionstoleranzen nicht ein Bit (in 
unserem Fall 20 Millivolt), sondern nur 
ein halbes Bit (10 Millivolt) betragen. 

Der Aufbau der Schaltung erfolgt 
zweckmäßigerweise auf einer IC-Expe- 
rimentierplatine oder auf einer Experi- 
mentierplatine mit Lötstreifenraster. 
Den A/D-Wandler löten Sie nicht direkt 
ein, sondern bauen einen 20poligen IC- 
Sockelin die Schaltung. Setzen Sie den 
Baustein erst ein, nachdem Sie die 
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Schaltung ohne A/D-Wandler an die 
Versorgungsspannung angeschlossen 
und auf Kurzschluß überprüft haben. 

Für die Verbindung der Schaltung mit 
dem Interface sollten Sie eine solide 
Steckverbindung wählen, um einen 
sicheren Kontakt und die Mobilität im 
Reparaturfall zu gewährleisten. 

Wenn Sie die Schaltung mit dem 
Interface in Betrieb nehmen, müssen 
Sie zuerst immer die Schaltung und 
dann den Computer einschalten. Beim 
Ausschalten geht es dann genau an- 
dersherum. 

Bis jetzt können Sie mit Ihrer Schal- 
tung noch nicht viel anfangen, weil die 
Software fehlt. Listing 1 zeigt Ihnen das 


Programm, das die Schaltung in ein 
Speicheroszilloskop, Digitalvoltmeter 
und einen Oszillographen verwandelt. 
Bei Listing 2 handelt es sich um den 
zugehörigen DATA-Lader für drei RSX- 
Befehle, die Hardcopy-Routine und die 
Meßwerterfassung in Maschinenspra- 
che. Wenn Sie beim Eintippen der 
Listings im Text unterstrichene Zahlen 
und Buchstaben antreffen, müssen Sie 
die in der Anleitung zu »Explora« 
erwähnten Hinweise berücksichtigen. 

Als Portadresse wurde im DATA- 
Lader F8EO (Adresse vom Happy- 
Interface und Minimal-Interface) einge- 
setzt. Unter den Adressen 9EEB, 9F36 
und 9F52 können Sie die Portadresse 


Hex Binär 'höherwertig ‚niederwertig 
0 0000 0,00 Volt 0,00 Volt 
1 0001 0,31 Volt 0,02 Volt 
2 0010 0,63 Volt 0,04 Volt 
3 0011 0,94 Volt 0,06 Volt 
4 0100 | 1,25 Volt 0,08 Volt 
5 oo | 1,57 Volt 0,10 Volt 
6 0110 1,88 Volt 0,12 Volt 
7 0111 2,19 Volt 0,14 Volt 
8 1000 2,51 Volt 0,16 Volt 
° 1001 2,82 Volt 0,18 Volt 
A 1010 3,14 Volt 0,20 Volt 
Dan) 1011 3,45 Volt 0,22 Volt 
c 1100 3,76 Volt 0,24 Volt 
D 1101 4,08 Volt 0,26 Volt 
E 1110 4,39 Volt 0,28 Volt 
F EEE 4,70 Volt 0,30 Volt 


Tabelle 2. So rechnen sich Bits in Spannung um 


ERNEUTEN 


im DATA-Lader gegebenenfalls gegen 
die Adresse austauschen, die Ihr Inter- 
face verwendet. Beachten Sie bitte, 
daß Sie in der ersten Speicherzelle das 
untere Byte und an zweiter Stelle das 
obere Byte der Adresse ablegen müs- 
sen. 

Das Hauptprogramm istmenügesteu- 
ert, Die Funktionen 0, 1 und 6 bis 9 die- 
nen zur Voreinstellung von Standard- 
parametern. In der Funktion 2 und 3 
arbeitet das Programm als Speicher- 
oszilloskop, indem es die Meßspan- 
nung als Meßpunkte beziehungsweise 
Meßkurve darstellt. Die Funktion 4 ruft 
das Digitalvoltmeter auf, und Funktion 5 
repräsentiert den Oszillographen durch 
Ausgabe der Meßkurve auf den Druk- 
ker. 


Einige 
Anwendungen 


Um Ihnen einen Eindruck von der 
Funktion der Schaltung und Software 
zu vermitteln, zeigt Bild 2 einige Meß- 
beispiele, die mit der Hardcopy-Routine 
auf einem Star-Drucker ausgedruckt 
wurden. 

Wenn Sie Ihre eigenen Meßroutinen 
in das Programm einbauen möchten, ist 
es wichtig zu wissen, welcher digitale 
Wert des A/D-Wandlers welcher Ana- 
logspannung entspricht. Tabelle 2 zeigt 
die Spannungswerte für das Hexadezi- 
mal- und das Binärsystem. Um die Ta- 
belle übersichtlich zu halten, wurde ein 
Byte in zwei Teile zu je 4 Bit aufgeteilt. 
Die analoge Spannung zu einem be- 
stimmten Byte berechnet sich, indem 
Sie den Wert des höherwertigen Teils 
zum Wert des niederwertigen addieren. 
So teilt sich beispielsweise der Binär- 
wert 10010110 in den höherwertigen 
Teil 1001 und den niederwertigen Teil 
0110 auf. Die zugehörige Analogspan- 
nung ergibt sich nach Tabelle 2 aus 
2,82 + 0,12 = 2,94 Volt. 

Für eine Spannung, die Sie über U;o 
an den A/D-Wandler legen, ergibt sich 
der doppelte Wert, für eine Spannung 
an U;o der vierfache und für eine Span- 
nung an U,. der achtfache Wert. 

(Jörg Braun/ma) 


Be ee rn 


wer 
SQ" 
40 ‘Version 1.0 
Eu 


8 MEMORY &FEDF : LOAD" !ADWANDEL. BIN" CALL 
= &FFOS:REM RSX installieren 
70° 


80 n=1:REM Variable #. Messbereich (Grun 
deinstellung B-5V) 


90 DIM ZEIT(2W):REM Moegliche Mı eiten 


198 DIM timee4(2@):REM Dazugehoerige Kon 
stanten 

10 ® 

120 FOR a%=1 TO 19 

13® READ zeit (a%) 

140 NEXT a% 

15@ DATA 150,90,60,30,15,10,5,3,2,1,30,2 
0,10,5,1,0.3,0.1,0.05,0.03 

160 REM Dies’sind die moeglichen Messzei 


ten 

170 ' 

188 FOR a%=1 TO 20 

190 READ timee%(a%) 

200 NEXT 

210 DATA 150,90,68,50,15,10,5,31508,21@0 
a,10sgo 5250,3500,1750,900,186,91,15 


AB, 

22@ REM dies sind die fuer die versch. M 
esszeiten vom Mcode benoetigten Verz 
Gegerungswerte. 

230 ' 

248 '*** Grundmenue ##* 

250 ' 


260 CALL &9FDI:REM Alten Bildschirmaufba 
u merken (LDDR) 

270 MODE 2 

28® LOCATE 1,5:PRINT STRING$(80,"_") 

298 LOCATE 2,3 

308 PRINT''Messprogramm3Gr 
undmenue 

318 LOCATE 1, 

LOCATE 28, 


RINT"Bitte waehlen 

PRINT"Messbereich waehle 

Carr 

NT’Messdauer einstel 
2 De Su 

'T'Darstellung durch 

Messpunkte .....[ 2 1" 

LOCATE 28,14: PRINT"Darstellung als K 

UrVe 2... ERDE EEE, 

LOcATE 28, i6:PRINT"Vol 

-„u.un. munennnnnn. Lt 4 2" 

LOCATE 2@,18:PRINT"Kurve auf Drucker 

ausgeben’ .......[ 5 ]" 

LOCATE 20,20: PRINT h$"Messtart durch 

Messwertäenderung. . [6/71"h$ 

LOCATE 28,22: PRINT hi$"Wechselspannu 

ngsmessbereich ......[8/9]"h1$ 

LÖCATE 28,23: PRINT" 


in 


waehlter Menuep 


sap 

mp=mp 

ON MP GOSUB 1650,919,116@,119@,1720, 
1580, 1780, 1820, 1860, 1890 

GOTO 264Q:REM Grundmenue darstellen 


"er Aufbau di 
u. 


MODE 2 
GRIGIN 40,40 
MOVE B,0:DRAWR 9,300: REM Y-Achse 
MOVE 8,@:DRAWR sBQ,Q:REM X-Achs: 
MOVE-5,295:DRAWR 5,10: DRAWR 5,10: RE 
M Pfeilspitzen 
MOVE 59@,-5:DRAWR 19,5: DRAWR-10,5 
FOR a%s=1'T0 5 

MOVE 145#a%,-B:REM X Einteilung 
DRAWR @,8 

MOVE-4 ‚S@xa%ı 

DRAWR 8,0 

NEXT 

LOCATE 1,3:PRINT"U [VI 
LOCATE 73,25 

IF wert%>1@ THEN PRINT"t [LSekl"ELSE 
PRINT"t [Min] 

LOCATE 75,24:PRINT USING" #44. #4"; zei 
t(wert2):REM x Achse beschriften 
LOCATE 40,24: PRINT zeit (wert#)/2 
LOCATE 5,24:PRINT 0 

IF uflag=1 THEN B1@:REM Wechselspann 
ung 

MOVE-48,4: PRINT USING"##. 4"; 
MOVE-48,55: PRINT USING" #4. #" 
MOVE-AB, 106: PRINT USING" ##.# 
MOVE-48, 157: PRINT USING" ##.# 
MOVE-4@, 208: PRINT USING" ##.# 


Koordinatenkreuzes * 


lan; 
FFrun 
33#n; 


LA31Cc] 
CSF54] 
[06881 
[61581 


150301 
[835C] 


[68521 
tenası 


C84BA] 
EDDB21 
CACF61 
[32061 
£[D934] 


[66281 


CCBC41 
LQSBEI 
L39F23 
LEBOCI 
[DBE2] 


L7B861 


[84841 
[97881 
[1866] 
LE1BCI 


[C72C1 
[93681 
c331C3 
[05481 


[28621 
tE1aC1 


138301 
[65461 
[45843 
LF2261 
C42DE1 
EDACC9 
EDC643 
LC6D21 
C1BB6] 


134241 
tFE12] 


L9C58] 
LESIEI 
tESC®] 


LA4EBI 
CESC4] 
[51661 
[90321 
C1@121 
[86181 


L2E78] 
LE1081 
tE998] 
LAE6CI 
CASDEI 
[359E] 
[67E21 
L71FAI 
[3E14] 
CBE1G1 


[25081 


L2D661 
15588] 
[ODE21 
C123@1 


LB9C8] 
EF91C1 
C8C48] 
[78941 
L@2441 
£71A21 


738 MOVE-40,259: PRINT USING"##.#";5#n5 

818 TAGOFF 

820 MOVE 382,347:DRAWR @,-36:DRAWR 210,80 
:REM Naehere Messangäben 

838 DRAWR @,3&: DRAWR-218,@ 

842 LOCATE 85 :PRINT"Messdauer<3>: "Zeit 
wert7) 3" 

85® LOCATE 75,2: IF wert%>1@ THEN PRINT"S 
ek. "ELSE PRINT"Min. " 

868 IF uflag=@ THEN LOCATE 55,3: PRINT"Me 
ssbereich : @ - n"Volt 0T0 888 

878 LOCATE 55,3:PRINT"Messbereich :"(-2. 
5) #n"-" (2.5) nV" 

88@ MOVE 08,8 

89@ RETURN 

ao " 

sı@ 

920 ° 

93@ MODE 2 

948 PRINT"Zum Anwaehlen der gewuenschten 
Messdauer" 

950 PRINT"die Tasten [ "CHR$(24@)" ] bzw 
„ EC "CHR$(241)" ] druecken. 

968 MOVE 580,8:DRAWR B,4@@: REM Bildaufte 
ilung 

7780 MOVE 8,365:DRAWR 640,0 

988 LOCATE 48,2: PRINT"Me: lauer " 

998 FOR wert%=1 TO 19:REM moegliche Zeit 
en ausgeben 

10@8@ LOCATE 64, t%+4 

1@01@ PRINT USING" ###.##"; Zeit (wert%) ; 

1820 IF wert%<=1@ THEN PRINT" Min. "ELSE 
PRINT" Sek." 

1038 NEXT 

1840 LOCATE 1,23: PRINT"Eingabe mit ENTER 

abschliessen. 

1958 wert/=1@ 

106@ WHILE INKEY(18)=-1 

1078 IF INKEY(@)<>-i AND wert%>=2 THEN w 
ert%=wert%-1:REM Zeiger erhoehen 

1080 IF INKEY(2)<>-1 AND wert%<=18 THEN 
wert%=wert%+1:REM Zeiger erniedrige 


** benoetigte Eingaben ##** 


n 

129@ LOCATE 56,wert%+4: PRINT CHR$(154)CH 
R$ (243) 

118@ LOCATE 56 ,wert%+3:PRINT"<Z>":REM Al 
ten Pfeil loeschen 

111® LOCATE 56 ‚wert%+5: PRINT"<2 

1128 CALL &BD19:CALL &BD19:REM etwas ver 
zoegern 

1138 WEND 

1140 CALL &BBB@S:REM Tastenpuffer leeren 

115@ RETURN 

116Q POKE &9F7B,LEA:POKE BIFAS,LEASREM Z 
eiger auf Plotroutine 

117@ GOSUB 1220 

118@ RETURN 

119@ POKE &9F7B,&F6:POKE SIFAS,UFbIREM Z 
eiger auf Drawroutine 

1200 GOSUB 1220 

121@ RETURN 

1220 ° 

1250 '*** Messen und Werte einlesen *** 

1240 ' 

125@ POKE &9FFC,G:POKE &IFFD,O:REM X-Koo 
rdinate auf Null setzen 

1260 IF wert%>7 AND wert7<15 THEN 1530: R 
EM Zeitspanne ist kleiner als 1 Min 
ute (wert als Pointer ) 

1270 IF wert%>14 THEN 148@0:REM Messzeit 
<=1 Sekunde -> Maschinensprache Aus 
werkung 

1289 SORE SQO:REM Koordinatensystem auf 

auen 

1290 EVERY timee% (wert) #3000/500,3 GOSU 
B 1580: REM Nur Wert einlesen 

1308 CALL &BBQOS:REM Tastenpuffer entleer 


en 

1351@ IF x%<=58@ THEN 1320 ELSE PRINT 
CALL &BEQ&:REM Aufenthaltsschleife 
ELSE: Auf Anwender warten 

132@ IF INKEY(64)=@ THEN PRINT"G":CALL & 
BB@6:G0T0 134@:REM ESC gedrueckt ? 

1339 saro 131@:REM in die Aufenthaltssch 
eife 

134@ PRINT REMAIN(S):REM Timer abschalte 


n 

135@ RETURN 

1360 ' 

1370 '*** Messwert einlesen #** 

1380 CALL &9F912x%=x%+l:REM Nur einen We 
rt einlesen und gleich ausgeben 

139@ RETURN 

1200 ° 

141@ REM *** Messen durch BASIC-Timing u 
nd Maschinencodeplot *** 

1420 ° 


C41B2] 
[89E81 


[2D@EI 
E9AECI 


tTACc2a1 
151961 
LF79C1 


EFBC6] 
[03461 
CAF421 
[BECD] 
LECFB] 
C10C41 
[CC661 


C9BA2] 
C4BEEI 
Lt@ar7C] 
CARC2] 
taA721 
CD19E] 
1372A1 
Casauı 


LB120] 
EF346] 


[38BA] 
[6ED&] 
EC1AAI 


LC5@21 


L7FEAI 
LE2BAI 


198281 
CSAc81 


L98161 
[2B26] 
C&@FEI 
[848E1 
L9BD81 
[269C1 
CDAF41 
[20941 
[55901 
LADB8] 
[B7181 
[B66AI 
Er11c1 


La1raı 


L987A1 


CADACı 
c40D81 
[7DABI 
[&B881 


L220E1 
LFE7AI 
LB29C1 


L15921 
CAAS21 
[B5221 
182361 


L29F@1 
LBAFAI 
CB9183 


EDFAAI 
[971C1 


Listing 1. Das Hauptprogramm zur Meßwerterfassung 


BE W HonEconsLTERWoRIn.CEM 


31 


1430 GOSUB 460: REM Koordinatenkreuz aufb 1768 IF n=3 THEN n=4 178921 
auen tsiecı | 177@ RETURN LaAgEI 
1448 CALL &BB@S:REM . ISFF4] | 1788 REM Messstartbedingung ein 13792] 
1450 IF hedflag=® THEN!MESS,timee%(wertz 1798 bedflag=1 £C7481 
JELSE CALL &FEE6,1,timee% (wertz) REM 1800 h$="X":REM Inverse Darstellung [SC9AI 
Test auf Messstartbedingung-Werte 181@ RETURN EBF94] 
einlesen 105921 | 1828 REM Messstartbedingung aus t18A2] 
1460 PRINT"G":CALL %BBQ6:REM Auf Anwende 1858 bedflag=® EBSSCI 
r_warten LSFS@] 1848 h$=CHR$ (@):REM normale Darstellung [61121 
147@ RETURN [8F98] | 1858 RETURN C9F3CI 
1488 REM #** Messzeit <= 1 Sekunde ##* L[SEF4] 1860 uflag=1:REM Messbereich Wechselspan 
1490 GOSUB 46@:REM Koordinatenkreuz aufb nung L32D21 
auen LSFFBJ 1878 hi$="X";REM inverse Darstellung C2DaAJ 
15@@ IF bedflag=1 THEN!BMESS, 127,timee/( 188@ RETURN LAlA21 
wert#)ELSE CALL &9F41,timeet (wert%) 1898 uflag=@: REM Wechselspannungsmessber 
REM Bedingung f. Messtart ? --Wer eich aus CDSBEI 
te einlesen [SA@E] | 1900 his=CHR$(B):REM inverse Darstellung 
151@ PRINT"G":CALL &BBQ6:REM Auf Benutze aus L6ESC) 
r_ warten 757€] 171® RETURN [70961 
152@ RETURN ECA9B] 192® REM #** Voltmeter x** t880C1 
153® GOSUB 460: REM Koordinatenkreuz aufb 193@ MODE 2 CAccBı 
auen L7FEEI 1740 PRINT:ZPRINT"<2W OLTMETER" L[3Diel 
159@ CALL &BBOS:REM Tastenpuffer leeren [95861 | 195@ PRINT"<2P"STRINGE(18,"=") CABCA] 
1550 IF bedflag=® THEN!DMESS,timee?, (wert 1968 ORIGIN 320,208 172561 
ELSE CALL &IEE6,2,timeef (wert) L419E] 1978 MOVE-89,0:DRAWR 188,@:DRAWR 8,-30:D 
1560 PRINT"G":CALL &BBÖ6TREM Auf Anwende RAWR-18@,0: DRAWR @,3@ LCE46I 
r_warten CCFS2J 1982 LOCATE 1,25:PRINT"Äbbruch: bel.Tast 
157@ RETURN L3C9AI e 172041 
1588 MODE 2 T6BCAI 1998 LOCATE 3,5: PRINT"Messbereich:<4>Vol 
159@ CLS:LOCATE 1@,1@: INPUT"GBitte Titel t* L3E661 
eingeben "stitels t6CFCI | 2280 LOCATE 15,5:PRINT n*S:REM momentane 
1600 IF LEN(titel$)>3@ THEN PRINT"Nicht r_Messbereich L7C661 
mehr als 5@ Zeichen":60T0 1598 [DABA] | 2@81 LOCATE 55,5:PRINT"Moegliche Messber 
1619 CALL &9FES:REM Screen holen EBB2ZEI eiche: "PRINT ta71cı 
162@ LOCATE 6,2:PRINT titel$ 1D9@41 | 2002 PRINT TAB(4B)"@-85 Volt":PRINT TAB( 
1638 CALL &ABÄG:REM Hardcapy [212AJ 68) "2-10 Volt tF@281 
1648 RETURN [FB96] | 2085 PRINT TAB(68) "@-28 Volt":PRINT TABL 
1658 REM Messbereich aendern CAAREI 68) "@-4Q Volt CB92AJ 
166@ MODE 2 193681 | 2@@5 POKE &BiC8,B:POKE &BICF ‚LFO:POKE &B 
1678 LOCATE 1,2:PRIN'MESSBEREI 1D@,&F:REM Umschaltung nach Mode @_L357E1 
C HSSE EINSTELLEN" [SC7A] | 2210 EVERY 25,1 GOSUB 2BBG:REM Einlesen [379Al 
1688 Have 8.350: DRAUF 640,8 [41141 | 292@ WHILE tastes="" [98861 
1698 LOCATE S®,8:PRINT"Messbereich 1: [ 2032 tastes=INKEY$ E3F161 
@ -<2>5V 1" [77DE1 | 2848 LOCATE 9,14:PRINT USING"##.##"3;span 
17@@ LOCATE S@,1@:PRINT"Messbereich 2: [ nun« CBE3BI 
@- 1av j" t7asaı | 20s@ WenB Esazaı 
171® LOCATE 5@,12:PRINT"Messbereich 3: L 2868 tastes="":PRINT REMAIN(1):REM Timer 
a - zav ir TEF441 abschalten LIABEI 
1720 LOCATE 3@,14:PRINT"Messbereich 4: [ 227@ RETURN [9F921 
@- aav tE1581 | 2888 spannung=INP (&FBE@)*B.@2#n:REM Span 
1738 LOCATE 38,15:PRINT" I nung einlesen CDEBEI 
en ® t2eD21 | 2898 RETURN LFB96] 
1748 LOCATE 1,17: INPUT"Bitte Nummer des 
RE LE ER SD BIchn eingeben teessı | Listing 1. Das Hauptprogramm zur Meßwerterfassung 
L 175@ IF n=4 THEN n=8 L149A] (Schluß) 
100 HH 141 DATA ABBE,AB,CD,6C,AQ,21,8F,81,22,67D4 [42841 
* L[F97C] 142 DATA AB1B,BE,AB 1,00,00,3E,07,32,75E4 [92241 
181 '* ADWANDEL.DAT - DATA-Lader von "EPC“ 143 DATA AB18,C0,AB D,7C,AB,BE,80,34,5362 L[C@BEI 
* LACBEI 144 DATA AB@28,C0,A® 5,D5,C5,CD,F@,4A66 [3604] 
182 HH 145 DATA ‚BB,C ‚AB,BE,E1,7385 L[S51DCI 
* t7B883 | 146 Data : 11,2B,2B,1FBl [2F661 
103 ' [DEB6I | 147 DATA 2 »79,CD,A6,24C8 [BS16J 
124 DATA 9EEB,00,00,00,00,00,01,CD,1B,@0185 L[72EE] | 148 DATA Bi ‚82,37,ED,4903 L9A581 
185 DATA 9EEB,BB,DB,01,EQ,F8,ED,78,FE,61DA (25741 | 149 DATA ‚BE,AB,18,14EB [75781 
1926 DATA 9EF@,7F,28,F7,DD,7E,@2,FE,01,24B5 [41083 | 15@ DATA > »CB,2B,11,@0,6CDE [72021 
187 DATA 9EFB,CA,41,9F,FE,82,CA,AB,9F ,6BB7 15578] 151 DATA ABSe ,‚88,22,BE,AB,SE,07,BD,2@,15F6 [8880] 
108 DATA 9F00,C9,00,00,00,00,01,0F,9F,6485 LIFFE] | 152 DATA AQ&Q,B9,7C,BA,20)B5)SE.B)S2ISZER 131701 
189 DATA 97F08,21,29,9F ,C3,D1,BC,C9,1A,00E@ [FSCEI 153 DATA ABs8,CQ,AB,1i ’ [BAC6] 
110 DATA SEIQ,SFJCS,2E,9P,C3,41,9E,C3,7591 [A4D2] | 154 DATA AB7@,AB,SE,A1.CD,AGIABNSEIBTISCHB LECEBI 
111 DATA SF1B,AB,9F,42,4D,45,53,D3,4D,7DDF [52F8] | 155 DATA AQ78,CD)A6,AB,C9ES.SE)ADICHISOBT LCIF2I 
112 DATA 9F20,45,55,03,44,4D,45,53,D3,2B69 [EESCI | 156 DATA ABBB,1E,BB,EL L69cAl 
113 DATA 9F28,00,29,9F ,QF,9F ,C9,FS,CD,IFAB [54361 157 DATA AQB8,8D,CD,A& [D536] 
114 DATA 9FS@,1B,BB,DA,AG,IF,G1,EQ,FB,37A4 [77061 | 158 DATA AB9B,AB)SE)IB L&1ECI 
115 DATA 9FS8,DD,66,@2,ED,78,BC,20,EF,7e@0F [ESIEI | 159 DATA AB9B,CD,AG.AD 13936] 
116 DATA 9FAB,F1,FE,88,C8,F3,DD,7E,0@,4F9® (AFFC) | 16@ DATA ABAQ,SE)GZIC 137181 
117 DATA 9F48,52,FE,9F,DD,7E,91,32,FF,SBDF [D95C) | 161 DATA ABAB.ED.SE!FI [2B3C1 
118 DATA 9F58,9F,01,E0,F8,21,18,27,11,5057 [D8561 | 142 DATA ABBQ,CQ,AB}Fi CB@1A1 
119 DATA 9F58,44,02,ED,78,77,23,1B,D5,3B77 [96A2] | 165 DATA ABBBICBJ11.CH CDDARI 
120 DATA SF6Q,CD,87,9F,D1,7A,B3,20,F2,581E [F4E4] | 164 DATA AQC9,@4,19,12,01,BF222 LESE] 
121 DATA 9F68,11,00,00,01,1@,27,21,44,886A (D&Cal | 165 DATA »ENDEx 87CC1 
122 DATA 9F70,02,E5,04,26,80,6F ,83,13,3AC9 [7521 166 adr=&IEEB: zeile=184:MEMORY adr-1 [186EI 
123 DATA 9F78 D5,C5,CD,EA,BB,C1,Di,E1 ‚„4BSF [A678] 167 READ d$: IF d$="#ENDE#"THEN 178 [B6AS] 
124 DATA 9F&i B5,20,EC,FB,C9,ED,1BD3 [C954) | 168 pr=@ EIFICI 
125 DATA 9FB8, B,FE,9F,74,B3,C8,1B,18,0808D6 [CFi8] 169 FOR i=1 T0 8 [3672] 
126 DATA 9F90,FA,@1,EQ,FG,ED,78,ED,5B,69C9 L7E4A) | 178 READ as:a=VAL("L"+as) LEASE] 
127 DATA 9F98. FC,9F,13,ED,53,FC,9F,26,5508@8 CEBBEI 171 POKE adr ‚aradr=adr+1 TE41AJ 
128 DATA öF,CD,EA,BB,C9,F1,C9,0B17 LF44E] 172 pr: r #2: IF r>65535 THEN pr=pr-65535 L499A] 
129 DATA 4,02,FE,81,CQ,AF,52,1C44 [EA9B]I 173 pr: (pryxi a:IF pr<® THEN pr=pr+6553 
158 DATA F32,FF,9F,32,FC,9F,5427 [76481 & LAGB2I 
131 DATA FD,9F,DD,7E,0@,352,FE,SBIA [293Al] | 174 NEXT i {28883 
132 DATA D,7E,@1,32,FF,9F,CD,748F [81641 175 READ pr$:pr2=VAL("&"+prs): IF pr2<® THEN 
133 DATA 'F,CD,1B,88,D8,C5,CD,7BAF [2EBCI pr2=pr 2+65536 18894] 
134 DATA 9FDa,91,9F,C1 ‚@B,78,B1,20,E3,7677 t@DAEI 176 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
135 DATA 9FD8,C9, 1,FF,FF,11,48,9C,81,7C61 [DSEAI in Zeile";zeil TOP ECccic1 
136 DATA 9FEQ,00,40,ED,B8,C9,21,48,9C,0@F@ [D2AB] 177 zeile=zeile+1:60 167 CAF761 
137 DATA 9FEB,11,FF,FF,81,88,48,ED,B8,28D2 LFCFEI 178 SAVE"ADWANDEL.BIi B,&IEEB,KIEI [1940] 
Ba HE nlmeeuhigret (aeg) | 177 Artır arıcne en 
»42,9C ,01,20,00,00,04,29, Bere] = 
140 DATA AQ@@,CD,BA,BB,CD,E7,BB,32,BD,56&BD [DA7AI Listing 2. Der DATA-Lader erzeugt die Binär-Datei 
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Als wär’s ein IBM 


ede Computerzeitschrift, die 
etwas auf sich hält, berichtete in 
den letzten Wochen vom Schnei- 
der PC. Mit Lob wurde nicht gespart, 
doch eine kritische Auseinanderset- 
zung mit dem Gerät blieb nahezu aus. 
Wir wollen nun einen sachlichen Über- 
blick über die Fähigkeiten des Schnei- 
der PC ermöglichen, um Ihnen Hilfestel- 
fung bei einer Kaufentscheidung zu 
geben 
Als wichtigstes Argument für den 
Kauf des Schneider PC führt der Han- 
@el die IBM-Kompatibilität an. Diese 
gewährleistet, daß der Käufer das rie- 
Sige Angebot an MS-DOS-Software 
nutzen kann. Um die Kompatibilität des 
Schneider PC zum Original zu überprü- 
Sen, ist es notwendig, die Hardware bei- 
der Computer zu vergleichen. 
Ein wichtiges Kriterium für die IBM- 
Kompatibilität ist der Festwertspeicher 
ROM), der die Systemparameter des 
Computers enthält. Das ROM des 
Schneider PC darf aus urheberrechtii- 
Shen Gründen nicht mit dem ROM des 


Mit dem Schneider PC berei- 
chert ein weiterer IBM-kompati- 
bler PC den Markt. Dieses Gerät 
ragt durch seinen außergewöhn- 
lich niedrigen Preis aus der 
Masse der PC-Nachbauten her- 
aus. Ob der Schneider PC auch 
leistungsmäßig Maßstäbe setzt, 
haben wir kritisch untersucht. 


IBM-PC identisch sein. Außerdem ist 
das Innenleben des IBM-ROM ein wohl- 
gehütetes Geheimnis. BasicA, das spe- 
ziell für den IBM-PC geschrieben wurde 
und einzelne Maschinensprache-Rou- 
tinen des IBM-ROM verwendet, ist des- 
halb auch nicht auf dem Schneider PC 
lauffähig. Ein Trost: Auf vielen anderen 
PC-Nachbauten läuft es ebensowenig. 
Die Funktionen, die für das Betriebs- 
system MS-DOS (bei IBM heißt es PC- 
DOS) wichtig sind, wie zum Beispieldas 
Booten von MS-DOS, führt das Schnei- 


der-ROM einwandfrei aus, so daß hier 
kein Unterschied zum ROM des IBM- 
PC zu bemerken ist. Nur Computer- 
spiele (speziell Actionspiele), die mit 
hochauflösender Grafik arbeiten und 
aus Geschwindigkeitsgründen direkt 
auf Routinen des ROM zugreifen, sind 
oft nicht lauffähig, 

Der IBM-PC arbeitet mit dem Mikro- 
prozessor 8088 von Intel. Dieser Pro- 
zessor verarbeitet intern 16 Bit parallel, 
verfügt extern jedoch nur über einen 
8 Bit breiten Datenbus. Deshalb muß 
der 8088 Daten im Multiplex-Betrieb 
übertragen undübernehmen, das heißt, 
jedes 16-Bit-Wort wird in 2 Byte aufge- 
teilt, die nacheinander über den Daten- 
bus laufen. Dieses Verfahren kostet 
den Prozessor wertvolle Arbeitszeit. 

Der Schneider PC hat im Gegensatz 
zum IBM-PC einen Mikroprozessor 
8086 eingebaut. Dieser verfügt über 
einen 16 Bit breiten Datenbus. Der Pro- 
zessor überträgt oder übernimmt ein 
16-Bit-Wort als komplettes Stück und 
erreicht dadurch eine höhere Verarbei- 
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tungsgeschwindigkeit. Trotzdem sind 
der 8088 und der 8086 zueinander 
kompatibel, da sie über einen identi- 
schen Befehlssatz verfügen. Bei pas- 
sender Beschaltung des 8086 läuft auf 
diesem Prozessor die gleiche Software 
wie auf dem 8088. 

Da der Mikroprozessor des IBM-PC 
nur mit 4,77 MHz getaktet ist, der 
Schneider PC hingegen mit 8 MHz 
läuft, ergibt sich eine weitere 
Geschwindigkeitssteigerung zugun- 
sten des Schneider PC. Insgesamt hat 
die gegenüber dem IBM-PC veränderte 
Hardware des Schneider PC zur Folge, 
daß der Schneider PC gut doppelt so 
schnell wie sein Vorbild ist. 

Dies kann unter Umständen auch zu 
Kompatibilitätsproblemen führen. Ein 
Programm, das für seinen Ablauf wich- 
tige Zeiten nicht über die eingebaute 
Hardware-Uhr, sondern über Warte- 
schleifen bestimmt, verliert beim 
Schneider PC das Timing. Das kann 
Fehlfunktionen auslösen. Auf die Zeit- 
steuerung über Warteschleifen greifen 
jedoch nur einige wenige Programme 
zurück, da auch andere IBM-Kompatib- 
le mit höheren Taktfrequenzen als 4,77 
MHZ arbeiten. 

‚Störend wirkt sich die höhere Taktfre- 
quenz in der Regel bei Geschicklich- 
keitsspielen aus, die durch die höhere 
Geschwindigkeit nicht selten unspiel- 
bar werden. Das Problem mit Spielen, 


die auf das ROM zugreifen, wurde 
bereits erwähnt. 

Anwendungsprogramme ohne sol- 
che Tricks - und das sind die meisten - 
laufen jedoch einwandfrei auf dem 
Schneider PC (zum Beispiel Turbo Pas- 
cal, dBase, Word, Worstar, Lotus). 

Neben dem Prozessor 8086 besitzt 
der Schneider PC zusätzlich einen 
freien Sockel für den Arithmetik- 
Prozessor 8087. Dieser Prozessor 
beschleunigt die Rechenzeit des 8086 
erheblich und übt keinerlei störenden 
Einfluß auf die anderen Funktionen des 
Computersystems aus. Da der Baustein 
jedoch mehrere hundert Mark kostet, 
hätte sein Einbau den Kaufpreis des 
Computers entsprechend erhöht. Für 
Anwender, die häufig langwierige 
mathematische Operationen durchfüh- 
ren müssen, ist der Kauf des 8087 
durchaus zu empfehlen. Sie müssen 
den Baustein lediglich bei ausgeschal- 
tetem Computer in die Fassung 
stecken - fertig! 

Der Schneider PC enthält serienmä- 
Big 512 KByte RAM. Eine Erweiterung 
um zusätzlich 128 KByte auf 640 
KByte ist problemlos und geht genauso 
einfach vor sich wie das Einsetzen des 
Arithmetik-Prozessors. Nur 18 Spei- 
cher-Bausteine müssen Sie in die dafür 
vorgesehenen leeren Sockel stecken. 
Wenn Sie den Speicher darüber hinaus 
vergrößern möchten, wird allerdings 


der Einbau einer Speicher-Erweite- 
rungskarte notwendig. 

Eine Farbgrafikkarte, die bei vielen 
IBM-Kompatiblen erst dazugekauft 
werden muß, ist in der Grundausstat- 
tung des Schneider PC bereits enthal- 
ten. Das Gerät kann mit der vorhande- 
nen Hardware maximal 16 Farben in 
einer Auflösung von 640x200 Bild- 
punkten darstellen. Dies reicht zwar 
nicht an die Qualitäten einer EGA-Karte 
(der »gehobene Standard«) heran, ist 
jedoch mehr als für Kompatible üblich. 

Auch eine parallele (Centronics) und 
eine serielle Schnittstelle (RS232C), 
die nicht unbedingt zur Standard- 
Ausrüstung eines PCs zählen, sind im 
Schneider PC eingebaut. Die inte- 
grierte batteriegepufferte Uhr, der 
Mausanschluß (mit Maus), die Joystick- 
buchse und der leistungsstarke Laut- 
sprecher runden die elektronische 
Hardware des Computers sinnvoll ab. 

Der Schneider PC kommt wahlweise 
mit einem oder zwei eingebauten 
5"/4-Zoll-Laufwerken ins Haus. Die 
Schneider-Laufwerke arbeiten aus- 
schließlich im IBM-Format, so daß nur 
360 KByte Speicherplatz pro Diskette 
zur Verfügung stehen. Eine Abwei- 
chung vom Standard durch erhöhte 
Speicherkapazität wäre in diesem Fall 
begrüßenswert gewesen. 

Wer einen Schneider PC mit zwei 
Laufwerken besitzt und sein System um 


Sehr aufschlußreich: 
der Blick in den 
»Bauch« des neuen 
Schneider PC. Selbst 
die Farbgrafikkarte ist 
serienmäßig in der 
Grundausstattung 
vorhanden 


Schnittstellen 


Sockel für 
Custom- Arithmetik- 
Quartz Chip Prozessor 


Disketten- 


baustein | Controller 


512 Köyte- 
RAM 


Custom- 
Mikro- Chip 
Prozessor 


Steckplätze für 
128 KByte-RAM 


3 Steckplätze für 
Erweiterungs- 
karten 
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eine Schneider-Festplatte (10 oder 20 
MByte) erweitern möchte, muß ein 
Laufwerk wieder ausbauen und durch 
die Festplatte ersetzen. Besser ist in 
diesem Fall der Kauf einer Festplatten- 
Karte zum Einstecken, denn dadurch 
können Sie weiterhin beide Laufwerke 
‚ohne Einschränkungen benutzen. 

Negativ anzumerken ist, daß das 
Netzteil des Schneider PC schwach 
dimensioniert ist. Schneider hat bereits 
reagiert und einen kleinen Umbau vor- 
genommen, damit das Gerät nicht zu 
leicht abstürzt. Doch die Leistungsfä- 
higkeit des Netzteils verbessert sich 
dadurch nicht. Aus diesem Grund bietet 
Vortex für 298 Mark ein 100 Watt star- 
kes Schaltnetzteil für den PC an; eine 
Ausgabe, die jedem vorsichtigen 
Benutzer zu empfehlen ist. 

Schneider liefert zu seinem PC ein 
Softwarepaket, das zwei Betriebssy- 
steme, eine Programmiersprache und 
ein Malprogramm umfaßt. Dadurch ist 
der Anwender vom Start weg mit Soft- 
ware reichlich ausgestattet. Hätte 
‚Schneider auch noch ein Textverarbei- 
tungssystem beigefügt, wäre der Ser- 
ice vollkommen. 

Mit MS-DOS 3.2 von Microsoft erhal- 
ten Sie das Standard-Betriebssystem 
für PCs. Dieses Betriebssystem eröff- 
net den Zugriff auf das gewaltige An- 

t an MS-DOS-Software. Die Ver- 
on 3.2 bietet zusätzlich den Vorteil, 
izwerkfähig zu sein. Mehrere PCs, 
® mit MS-DOS 3.2 laufen, können 

reinander verbunden werden und 
jeinsam Programme und Daten ver- 
beiten. 

DOS Plus 1.2 ist eine noch relativ 

e Entwicklung von Digital Research. 
den ersten Blick unterscheidet sich 
Plus von MS-DOS durch eine Sta- 
le am unteren Bildschirmrand. 

5 Betriebssystem ist voll kompatibel 

CP/M 86 und teilkompatibel zu MS- 

Alle CP/M-Fans dürfen sich 
en, denn auch der PIP-Befehl ist 
er DOS Plus implementiert. 

‚Zu den Vorteilen von DOS Plus zählt 

Fähigkeit zum Multitasking, das 
dt, das Betriebssystem arbeitet 
ere Programme gleichzeitig 
-DOS soll diese Fähigkeit erstab 
Version 5.0 erhalten.) Näher 
fachtet erweisen sich allerdings die 
t ing-Talente von DOS Plus als 

bescheiden und unkomfortabel. 
Der Anwender hat die Möglichkeit, 
zu drei Programme im Hintergrund 

fen zu lassen, während er sich im 

gergrund mit dem Hauptprogramm 
ftigt. Für die Hintergrund- 
amme gelten jedoch mehrere Ein- 

L ingen, die den Anwendungs- 

ch des Multitasking stark begren- 


ive Programme (das heißt Pro- 


gramme, die vom Benutzer Eingaben 
anfordern und Ergebnisse ausdrucken) 
sind nicht lauffähig. 

- Der Zugriff aus einem Hintergrund- 
Programm in das Vordergrund- 
Programm ist nicht erlaubt. 

- Nur Programme mit der Extension 
CMD können im Hintergrund ablaufen. 
Dies hat zur Folge, daß MS-DOS- 
Programme mit den Extensions COM 
und EXE immer im Vordergrund laufen 
müssen. Da unter DOS Plus nur zwei 
Anwendungsprogramme mit.der Exten- 
sion CMD geliefert werden (das Termin- 
programm »Alarm« und der Drucker- 
Spooler »Print«), sind die Multitasking- 
Möglichkeiten ohne zugekaufte Soft- 
ware kaum nutzbar. 


Schwierigkeiten 
mit Multitasking 


Wenn im Multitasking-Betrieb aus- 
schließlich Programme mit der Exten- 
sion CMD ablaufen, gibt es keine Pro- 
bleme, da diese Programme Speicher- 
platz und Rechenzeit selbständig unter 
sich aufteilen. Sollen dagegen COM- 
oder EXE-Programme im Vordergrund 
arbeiten, muß der Anwender COM- 
Programmen mit dem Befehl COMSIZE 
einen Speicherbereich zuweisen, und 
EXE-Programmen mit ADDMEM 
zusätzlichen Speicherplatz für Pro- 
grammdaten reservieren. 

Wieviel Speicherplatz ein CMD- 
Programm im Hintergrund belegt, läßt 
sich mit dem Befehl BACKG abfragen. 
Den Speicherbedarf von COM- und 
EXE-Dateien muß man dagegen im 
Handbuch zu den Programmen nach- 
schlagen. Die Angaben in den Unterla- 
gen sind jedoch zum Teil sehr ungenau, 
und auch der Speicherbereich für Pro- 
grammdaten ist zu berücksichtigen. So 
bleibt oft nichts anderes übrig, als den 
tatsächlichen Speicherbedarf durch 
Ausprobieren herauszufinden. Unter 
Umständen kann es passieren, daß 
man meint, den wahren Speicherbedarf 
eines Programmes ermittelt zu haben. 
Bis es dann eines Tages abstürzt, mit 
einem 20-KByte-Textfile im Speicher, 
ungesichert ... 

Der Befehl SLICE bestimmt die Auf- 
teilung der Rechenzeit zwischen den 
einzelnen Programmen. Auch hier ist 
wieder geduldiges Probieren nötig, um 
die geeigneten Werte für bestimmte 
Anwendungen herauszufinden. 

Das interessanteste Produkt im Soft- 
warepaket des Schneider PCs ist GEM 
2.0 mit der grafischen Benutzeroberflä- 
che GEM-Desktop und dem Malpro- 
gramm GEM-Paint. GEM bietet gegen- 
über den beiden Betriebssystemen den 
Vorteil einer problemiosen Einführung 
in das System durch grafische Symbole 
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(Icons). Schon nach kurzer Zeit ist der 
Anwender in der Lage, einfache Arbei- 
ten wie Formatieren, Kopieren und 
Löschen durchzuführen. Die Befehls- 
eingabe erfolgt (fast) ausschließlich 
über die Maus. Dies verringert die 
Berührungsängste von Anfängern vor 
dem Computer ganz beträchtlich. 

GEM-Desktop stellt neben den 
grundlegenden Funktionen eine Uhr 
mit Datum, einen Taschenrechner und 
einen Drucker-Spooler für das Aus- 
drucken »nebenher« bereit. Durch die 
Art der grafischen Darstellung belegt 
GEM im Vergleich zu den beiden 
Betriebssystemen viel Speicherplatz. 
Dabei ist das fenster- und menüge- 
führte GEM in seinen Funktionen nicht 
so leistungsfähig wie die textorientier- 
ten Betriebssysteme. 

Basic 2 ist das bislang leistungsstärk- 
ste Basic von Locomotive Software und 
stellt nach den Basic-Versionen für die 
CPCs und dem Basic für den Joyce 
einen neuen Höhepunkt auf dem 
Gebiet der Basic-Interpreter dar. Basic 
2 verfügt über knapp 300 Befehle und 
kommt ohne Zeilennumerierung aus, da 
Sprünge und Unterprogrammaufrufe 
über Labels erfolgen. Die Unterpro- 
gramme gestatten die Verwendung von 
lokalen Variablen. 

Die Verarbeitung von Labels und loka- 
len Variablen in Unterprogrammen 
erlaubt dem Basic-Programmierer, eine 
Modulbibliothek aus häufig benötigten 
Unterprogrammen anzulegen, die sich 
problemlos in neue Programme einbin- 
den lassen. Wer mit dieser Methode 
bereits in Pascal arbeitete, weiß die Vor- 
teile zu schätzen. 


Basic 2 kontra GW-Basic 


‚Zwei Nachteile von Basic 2 wollen wir 
jedoch nicht verschweigen; Zum einen 
ist Basic 2 zu GW-Basic, das den Stan- 
dard unter den PC-Basic-Dialekten dar- 
stellt, nicht voll kompatibel, und zum 
anderen läuft Basic 2 nur unter GEM, so 
daß der PC-Besitzer beide Program- 
me besitzen muß, um unter Basic 2 
geschriebene Programme nutzen zu 
können. 

Unser kleiner Streifzug durch die 
Hard- und Software des Schneider PC 
vermitteltnur einen ersten Eindruck von 
den Fähigkeiten, die dieses Gerät sei- 
nem Anwender bietet. Nach einem Ver- 
gleich des Leistungsvermögens des 
Schneider PC mit dem seiner Konkur- 
renten gelangt man jedoch zu dem 
Schluß, daß der Schneider PC zur Zeit 
einer der preiswertesten und leistungs- 
fähigsten IBM-Kompatiblen ist. Eine 
Kombination, die den Schneider PC 
auch für Heimanwender sehr attraktiv 
macht. (ma) 
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MS-DOS auf dem CPC 


Machen Sie aus Ihrem CPC 
einen PC. Die neuesten Informa- 
tionen über zwei Emulatoren! 


erste MS-DOS-Emulator für die 

Schneider-CPC-Familie. Genau- 
genommen handelt es sich dabei eher 
um einen fast vollständigen, IBM-kom- 
patiblen Computer ohne Tastatur und 
Bildschirm. Die Funktionen der beiden 
letztgenannten Baugruppen übernimmt 
bei diesem PC-»Kern« des deutschen 
Herstellers Kersten&Partner eben ein 
CPC. Der Emulator besitzt ein eigenes 
Laufwerk im IBM-Format. Ein Gerät 
stand uns bereits zum Test zur Verfü- 


F ür Aufruhr sorgte vor kurzem der 


II 


gung. Es vereint einen 8088-Prozes- 
sor (mit 5 Megahertz getaktet), 512 
KByte Arbeitsspeicher, ein 5'/4-Zoll- 
Diskettenlaufwerk im IBM-Standardfor- 
mat und einen langen Steckplatz für 
Erweiterungen in sich. Die Kopplung an 
den CPC erfolgte mit einem Flachkabel 
zum Erweiterungsport. Der RSX-Befehl 
»PC« sorgte dann für Aufregung in der 
Redaktion. Keiner konnte zunächst 
glauben, was er dort sah: Wohlbekann- 
te MS-DOS-Software lief ohne jegliche 
Mühen auf dem »8-Bit-Computer« CPC 
464. Selbst von der Geschwindigkeit 
her gab es nichts an der neuen Kombi- 
nation auszusetzen. Sogar eine IBM- 
Grafikkarte emuliert sie auf dem ange- 
schlossenen CPC. Damit ist die Lauffä- 
higkeit der meisten Programmpakete 


Preiswerter 
Nachfolger 


sichergestellt. Aber zwei Kritikpunkte 
gab es dann doch. Der Lieferumfang 


umfaßt kein Betriebssystem. Man ist 
also darauf angewiesen, irgendwo 
zufällig eine Diskette zu »finden«, die 
das MS-DOS enthält. Während man mit 
diesem Umstand noch leben kann, 
wiegt der zweite um so schwerer. Mit 
einem Laufwerk kostete der Zusatz 
immerhin 1645 Mark. Also haben sich 
die Entwickler besonnen und inzwi- 
schen einen Nachfolger konzipiert, der 
sich in dieser Beziehung erheblich ver- 
braucherfreundlicher gibt. Leider war er 
jedoch zum Zeitpunkt der Drucklegung 
noch nicht fertiggestellt. Deshalb erhal- 
ten Sie hier Vorab-Informationen, die 
uns der Hersteller bekanntgab. Mit sei- 
nem V20-Prozessor (8088-kompati- 
bel) verwaltet der neue Emulator seinen 


Der erste 
MS-DOS-Emulator 
für CPCs 


eingebauten Arbeitsspeicher von 256 
KByte. Das Diskettenlaufwerk läßt sich 
vom CPC aus als normales Zweitlauf- 
werk benutzen. Gegen zirka 100 Mark 
läßt sich der Speicher auf 512 KByte 
aufstocken. Ein zweites Laufwerk gibt 
es für etwa 300 Mark. Für schnelle 
Berechnungen läßt sich ein 8087-Co- 
prozessor nachrüsten (zirka 450 
Mark). Der Preis des Grundgerätes des 
Emulators ist mit 1098 Mark im Preis 
drastisch gefallen. Die Erstauslieferung 
wird wahrscheinlich im Januar begin- 
nen, eine Joyce-Version soll im Februar 
folgen. 


Die Konkurrenz 
schläft nicht 


Jetzt wirklich kurz vor der Fertigstel- 
lung steht der Emulator der Firma Vor- 
tex. In einem Interview konnten wir 
auch hier schon im voraus die wichtig- 
sten Daten erfahren. Das Konzept der 
Vortex-Entwickler weicht vom vorher 


beschriebenen weitgehend ab. Zwar 
arbeitet dieser Emulator auchmiteinem 
8088-Prozessor, aber hier ist sein 
Arbeitstakt von 4,77 auf 8 Megahertz | 
umschaltbar und somit eine höhere 
Geschwindigkeit zu erzielen. Auf der 
Platine wurde ein Sockel freigelassen, 
der im Bedarfsfall den Arithmetik- 
Coprozessor 8087 aufnimmt. Im Liefer- 
umfang ist das Betriebssystem (MS- 
DOS 3.2) und der Interpreter GW-Basic 
mit kompletter deutscher Dokumenta- 
tion, aber kein Diskettenlaufwerk, ent- 
halten. Statt dessen beabsichtigt Vor- 
tex, die 5'/4-Zoll-Laufwerke aus dem 
eigenen Haus zu nutzen. Wer also 
bereits im Besitz einer solchen F1-oder 
M1-Station ist, benötigt keine weitere 
Peripherie. Den anderen Käufern stellt 
sich zur Anschaffung einer solchen 
Konfiguration als Alternative eine IBM- 
kompatible Controllerkarte nebst pas- 
sendem Laufwerk. Mit dem Schneider- 
Monitor steht ein Textbildschirm zur 
Verfügung. Wer viel mit Grafik arbeitet, 
kauft sich eine entsprechende Erweite- 
rungskarte und eventuell einen dazu 
passenden Monitor. Durch die Emula- 
tion der IBM-Laufwerke kann es beieeini- 
gen Programmen aber zu Kompatibili- 
täts-Problemen kommen, wenn deren 
Kopierschutz tief in den (hier ja nicht 
vorhandenen) IBM-Diskettencontroller 
eingreift, Auch in diesem Fall hilft als 
Hardwarelösung der Kauf einer Con- 
trollerkarte mit passendem Laufwerk. 
Von diesen zusätzlichen Karten finden 
in der Grundausführung drei Stück 
Platz. Die Zahl der Steckplätze läßt sich 
durch Anstecken weiterer Platinen 
erhöhen. Die beiden beschriebenen 
Karten, ein passender Monitor und eine 
IBM-Tastatur verschaffen Ihnen einen 
vollwertigen, unabhängig vom CPC 
arbeitenden, IBM-kompatiblen PC. 
Das Grundgerüst besteht aus einer 
vierteiligen Steckplatzerweiterung zum 
CPC. Sie steckt in einem Gehäuse, das 
unter dem Monitor Platz findet und 
beherbergt bereits eine Steckkarte: 
den Emulator. Bleibt abzuwarten, was 
auf diesem Stecksystem basierend in 
Zukunft noch an Erweiterungen auf uns 
CPC-Besitzer zukommt. Denkbar ist in 
dieser Richtung alles; vom IBM-AT bis 
zum 68000er-Computer. Interessant 
ist das System allemal. Der Preis für die 
Grundversion liegt voraussichtlich bei 
858 Mark. (a) 


Kersten 4Partner, Wildbacher Mühle 83, 8100 Aachen, 
Telefon 0241/1710867 
Vortex Computersysteme, Falterstraße 1-5, 7101 Flein, 
Telefon 07131/52061 
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- "Das Horten Computer-Center. '- 


Mehr als Sie erwarten - für weniger als Sie denken! i 


Im Computer-Center von Horten 
inden’Sie gengu das Zube- 

hör, mit dem es sich.noch leichter 
und sicherer, vielseitiger und. 
erfolgreicher arbeiten läßt. In einer 
Qualität, hinter der Horten steht! 


Compuker 
——Cenier 


Wir bieten Ihnen ein umfangreiches 

Sortiment an: 

- Farbbänder für alle gängigen Drucker 

- Verbindungskabel Computer/Peripherie 

- Peripheriegeräte für Commodore, Atari, 
Schneider 

- Großes Software-Angebot 

- Reichhaltige Auswahl an Joysticks 

- Breites Literatur-Sortiment 

- Druckerpapier und Computer-Etiketten 

- Marken-Disketten zu besonders günstigen 
Preisen. 

Zum Beispiel 


DISK-MASTER 
Wendediskette 5.25’, beidseitig nutzbar, 


mit 2 Schreibschutzkerben — 95 
2indexlöchern 
10-Stück-Packung nur o 


DISK-MASTER 
Color-Diskette 5.25", die Wendediskette in 


ö versch, Farben zur besse- 95 
ren Archivierung Ihrer Daten 
10-Stück-Packung nur, [} 


DISK-MASTER 
2D-Diskette mit 96 tpi, 5.25", 


für hochwertige 
Diskettenlaufwerke I 
10-Stück-Packung nur 


sol Horten-Haus In Ihrer Nähe sein, nutzen Sie, 
bitte diesen 


Bestellcoupon 


‚An Horten AG, EA 834 - Am Soostorn 1,4000 Düsseldorf 11 


Ich bestelle hiermit Stück 


Bundesrepublik, Sie zahlen lediglich die Zustell- und 
Rücküberweisungsgebühr 


Name — Vomame 


Straßen Az On 


Datım ———— Unterseha — 


Foo SoopatrCantr ide Sen: Achen- Baden-Bacen ern, Miisches Viertel Bieel-Baunschwag- Bremen Bremaharen Dortmund Düssldr, einer Alan Dlahurg 
Free Een. Getberg Guben Hape Hann, Möncebergstaß Hamburg -Wandbek Hannover Hamm Hldrg aan Halb «ash Ingo Kata [A van: Luowgarten 
Fun Zoran Wonnhaim- Mor, -Minster-Naus-Nümderg-Oitanburg- Osabric-Pozham-Prmasaı- Regensburg: ungen Schwert: Star Ier-Llm Veman-Watnschi Mitten > Worms 
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MS-Dos 


Sr 


MS-DOS für Umsteiger 


Der Befehisaufbau des Betriebs- 
systems MS-DOS ähnelt stark 
dem älteren CP/M. Wer die Struk- 
tur von CP/M kennt, dem wird der 
Umstieg leichtfallen. 


wir Ihnen den Aufbau und die Be- 
fehle von MS-DOS. 

Vom Aufbau und der Bedienung her 
sind sich MS-DOS und CP/M sehr ähn- 
lich. Das beginnt bereits beim Einschal- 
ten des Computers. Hierbei wird MS- 
DOS automatisch geladen (man spricht 
in diesem Zusammenhang auch vom 
»Booten«s) und der Computer meldet 
sich nach kurzer Zeit mit dem Prompt- 
Zeichen, das sozusagen die Frage des 
Computers »Na, was jetzt?« an den 
Anwender darstellt. Das Prompt ist 
zugleich die Laufwerkskennung. 

In der Regel wird unter MS-DOS mit 
mehreren Laufwerken gearbeitet, die 
durch Buchstaben gekennzeichnet 
sind. Beim IBM-PC und den meisten 
Kompatiblen - so auch beim Schneider 
PC - ist dem linken Floppylaufwerk der 
Buchstabe A, dem rechten (oder dem 
unteren) das B zugeordnet. Die Um- 
schaltung zwischen den Laufwerken 
erfolgt durch Eingabe des Buchsta- 
bens und eines Doppelpunktes. Das 
Prompt ändert sich dann entspre- 
chend. 

Eine Eigentümlichkeit des DOS sind 
die Korrekturmöglichkeiten. Haben Sie 
bei der Eingabe einen Fehler gemacht, 
so steht Ihnen zunächstals Hilfe nur die 
Backspace-Taste (Linkspfeil) zur Verfü- 
gung. Dabei wird jeweils das links vom 
Cursor stehende Zeichen gelöscht. 
Sind Sie auf diese Weise zur fehlerhaf- 
ten Stelle vorgedrungen und haben sie 
korrigiert, so müssen Sie die zuvor 
gelöschten Zeichen richtig eintippen. 
Bemerken Sie den Fehler erst nach- 
dem Sie <RETURN> gedrückt haben 
(und das Betriebssystem dann eine ent- 
sprechende Fehlermeldung ausgege- 
ben hat), so gibt es keine Möglichkeit 
mehr, mit dem Cursor in die weiter oben 
stehende fehlerhafte Zeile zu gelan- 
gen, um diese zu korrigieren. Eine 
gewisse Hilfestellung bieten Ihnen hier- 
bei allerdings die Funktionstasten Fi 
und F3. Durch Drücken der <RE- 
TURN>-Taste wird nämlich die 
gesamte Eingabezeile in einen Zwi- 
schenspeicher übernommen. In der 
neuen Zeile können Sie dann mit der 
Fi-Taste die zwischengespeicherte 
Zeile Zeichen für Zeichen wieder sicht- 
bar machen und sie entsprechend kor- 
rigieren. Hier nun ein Beispiel: Ange- 


: diesem Einführungskurs zeigen 


nommen, Sie wollen den Befehl »DISK- 
COPY A: B:« eingeben und tippen statt 
dessen aber »DISKCPY A: B:« ein. MS- 
DOS kann dieses Kommando jedoch 
nicht interpretieren und reagiert mit 
einer Fehlermeldung. Zur Korrektur 
drücken Sie nun fünfmal die <Fi1>- 
Taste, womit »DISKC« in der Eingabe- 
zeile steht. Hier muß nun das »O« (von 
COPY) eingefügt werden. Dazu drük- 
ken Sie die Insert-(<INS>-)Taste und 
geben den fehlenden Buchstaben ein. 
Jetzt steht »DISKCO« in der Eingabe- 
zeile. Den Rest des Befehls, der immer 
noch richtig zwischengespeichert ist, 
machen Sie wieder Zeichen für Zei- 
chenmit der F1-Taste sichtbar. Eine wei- 
tere Vereinfachung bringt hier noch die 
F3-Taste. Sie bringt den Inhalt des Zwi- 
schenspeichers auf einmal auf den 
Bildschirm. Drücken Sie jetzt statt acht- 
mal die <F1>-Taste einfach <F3>, 
so erscheint der Rest der Zeile. 


Umständliche 
Korrektur 


Dies alles klingt zugegebenermaßen 
recht kompliziert und umständlich, 
erweist sich aber nach kurzer Einarbei- 
tung als recht komfortabel. 

Worin liegt nun der eigentliche Sinn 
dieses Betriebssystems? Nun, MS- 
DOS kontrolliert unter anderem alle 
Disketten- und Festplatten-orientierten 
Vorgänge. Dies beginnt beim Auflisten 
des Directory (das Inhaltsverzeichnis 
einer Diskette oder Festplatte) oder 
dem Formatieren von Disketten und 
reicht bis zu komplizierten Vorgängen 
wie zum Beispiel dem Sichern einer 
Festplatte. Diese Operationen steuern 
über 50 Befehle. Eine Übersicht finden 
Sie in der Tabelle des 5. Schneider- 
Sonderhefts auf Seite 18. 

Man unterscheidet beim MS-DOS 
grundsätzlich zwischen zwei Befehls- 
arten. Da gibt es zum einen die soge- 
nannten internen (residenten) und zum 
anderen die externen (transienten) Be- 
fehle. Als Grundgedanke gilt dabei, daß 
man die wichtigen Befehle (wie zum 
Beispiel DIR, COPY und so weiter) im 
Speicher des PCs hält, um sie nicht 
jedesmal, wie beim CP/M, von Diskette 
nachladen zu müssen. 

Seltenere Kommandos wie zum Bei- 
spiel zum Formatieren oder zum Dupli- 
zieren eines Datenträgers, finden sich 
als kleine Routinen auf der MS-DOS- 
Diskette. Jeder Benutzer kann sich 
dann die externen Befehle, die er öfter 
benötigt, auf andere Disketten kopieren. 


Bild 1 zeigt das Verzeichnis solch einer 
typischen Diskette. Der Directory- 
Eintrag jeder Datei setzt sich aus meh- 
reren Komponenten zusammen. Da ist 
zum einen der Name der Datei oder des 
Programms, der aus bis zuacht Zeichen 
besteht. Dem Namen angegliedert ist 
noch die sogenannte Extension (bis zu 
drei Buchstaben), die den Dateityp 
kenntlich macht. Ein Programm- oder 
ein Dateiname besteht also immer aus 
zwei Teilen, die durch einen Punkt 
getrennt sind. 

So zeigt beispielsweise die Exten- 
sion ».COM« an, daß es sich bei dieser 
Datei um einen Befehl (COMmand) han- 
delt. Dies können, wie in unserem Bei- 
spiel (Bild 1), entweder externe Befehle 
des DOS oder normale eigenständige 
Programme sein. Beide behandelt das 
MS-DOS organisatorisch gleich. Pro- 
gramme können aber auch mit der 
Extension ».EXE« (EXEcutable File) im 
Diskettenverzeichnis stehen. Der Un- 
terschied zwischen beiden Endungen 
liegt in der Art, wie das DOS die Pro- 
gramme in den Speicher lädt, was für 
den normalen Benutzer allerdings 
nebensächlich ist. Eine weitere wich- 
tige Endung ist ».BAT« (BATch File, also 
eine Datei, die Befehlsfolgen enthält, 
nach denen der Computer ganze Ar- 
beitsabläufe steuert, die aber selbst 
kein eigenständiges Programm dar- 
stellt). 

Dateien mit diesen drei Extensions 
werden einfach durch deren Namen 
aufgerufen. Geben Sie zum Beispiel 
FORMAT ein, so startet das Betriebssy- 
stem das Formatierungsprogramm, wo- 
bei die Angabe der Extension (.COM) 
entfallen kann. 

Gerade bei DOS-Befehlen kommt es 
oft vor, daß bestimmte Parameter (zum 
Beispiel Laufwerksangaben oder Datei- 
namen) mit dem Befehl angegeben 
werden müssen. Diese werden dann, 
durch einen Leerschritt getrennt, an 
den Befehl angehängt. Ein gutes Bei- 
spiel ist der Befehl »COPY«, mit dem Sie 
Dateien kopieren. Eine komplette Ein- 
gabe sieht beispielsweise so aus: 
»COPY A:BEISPCOM Bi«. Hier wird 
das Programm »BEISP« mit der Exten- 
sion ».COMe« von Laufwerk A auf Lauf- 
werk B kopiert. Die Laufwerke werden 
dabei durch den entsprechenden 
Buchstaben zusammen mit einem Dop- 
pelpunkt angegeben. 

Die drei oben beschriebenen Datei- 
namen-Erweiterungen und die Exten- 
sion ».SYS« (auf die hier nicht näher ein- 
gegangen werden soll), sind die einzi- 
gen, die das DOS für eigene Zwecke 
reserviert hält. Andere Endungen, wie 
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dir 


DisKette/Platte, Laufwerk A, hat den 
Namen BEISPIEL 
Verzeichnis von A:\ 


CAD <DIR> 10.11.86 18.23 
DATEN <DIR> 10.11.86 18,23 
KALK <DIR> 10.11.86 18.23 
COMMAND COM 24380 28.05.86 12,00 
DISKCOPY COM 6346 28.05.86 12.00 
EDLIN COM 7639 28.05.86 12.00 
FORMAT COM 11474 28.05.86 12.00 
KEYBGR coM 3278 28.05.86 12.00 
CONFIG SYS 36 1.10.86 23.12 
AUTOEXEC BAT 135 10.11.86 18.25 

10 Datei(en) 301056 Byte frei 


Bild 1. Das Directory einer MS-DOS-Diskette enthält viele 
wichtige Informationen 


KEYBGR 

WTDATIM 

ECHO Bitte wählen Sie: 

A ET 
ECHO 1. Textverarbeitung 
ECHO 2. Tabellenkalkulation 


Bild 2. Dieses AUTOEXEC.BAT-File sorgt für das automatische 
Laden eines Programms nach dem Einschalten 


ECHO OFF 
CLS 


Verzeichnis einer Beispieldiskette 


\CAD 


\DATEN\TEXTE 


\DATEN\BRIEFE 


Bild 3. Die Baumstruktur einer Beispieldiskette 


1 ».DOC« und ».BAK«, kön- zum Beispiel sTXT« und »DOC« für Text- 

u frei vergeben werden. Hiervon dateien, »BAK« und »SIK« für Backup- 
viele Anwendungsprogramme Dateien, »PRN« für Drucker- und »PIC« 

‚Gebrauch. So erkennen Sie in für Bilddateien. 

isten Fällen schon anhand der Neben dem Dateinamen speichert 

son, welches Programm eine MS-DOS bei jeder Änderung einer 
anlegte. Dabei haben sich be- Dateidas aktuelle Datum und die Zeit im 

wie Endungen »eingebürgert«, Verzeichnis. Dies bringt besonders für 


Programmierer den Vorteil, daß Sie 
anhand des Directory feststellen kön- 
nen, welches die aktuellste Programm- 
version ist. Das setzt allerdings meist 
voraus, daß jeweils die aktuelle Zeit und 
das Datum nach jedem Einschalten 
oder jedem Reset eingegeben wird. 
Der Schneider PC gehört zu den weni- 
gen Kompatiblen, bei dem diese 
umständliche Prozedur entfällt: Er ver- 
fügt über eine batteriegepufferte Uhr, 
die Zeit und Datum auch nach dem 
Abschalten des Computers speichert. 


Bequemer Autostart 


Einen besonderen Status besitzen, 
wie schon erwähnt, in MS-DOS die 
sogenannten Batch-Dateien mit der 
Endung ».BAT«. Batchprocessing, zu 
Deutsch also Stapelverarbeitung, er- 
laubt - in gewissen Grenzen - eine Art 
Programmierung des DOS. Unter Pro- 
grammieren ist hierbei aber mehr das 
Festlegen gewisser Abläufe zu verste- 
hen. Ein solches Beispiel zeigt Bild 2. 
Dort ist ein Batch-File »AUTOEXEC. 
BAT« aufgelistet. Dieser Dateiname ist 
bei MS-DOS fest reserviert; der dort 
beschriebene Ablauf wird direkt nach 
dem Laden des Betriebssystems aus- 
geführt. Es empfiehlt sich jedem MS- 
DOS-Benutzer, von dieser Möglichkeit 
regen Gebrauch zu machen. 

Das in Bild 2 aufgelistete Batch-Pro- 
gramm baut ein kleines Auswahlmenü 
für zwei Anwendungsprogramme auf. 
Zunächst zum Dateiaufbau: Als erster 
Befehl steht»ECHO OFF«in der Stapel- 
datei. Normalerweise werden alle Kom- 
mandos des Stapelprogramms vor ihrer 
Ausführung auf dem Bildschirm ausge- 
geben. »ECHO OFF« schaltet diesen 
Vorgang ab, so daß die Verarbeitung 
ohne Bildschirmecho geschieht. 
»ECHO« erfüllt aber auch noch die 
Funktion eines Ausgabebefehls. So 
erscheint zum Beispiel mit »ECHO 
Guten Tag« diese Nachricht auf dem 
Bildschirm. Der Befehl dient in unserem 
Beispiel dazu, das kleine Auswahlmenü 
aufzubauen. Möchten Sie dann zum 
Beispiel die Textverarbeitung anwäh- 
len, so drücken Sie einfach <1> und 
<RETURN>. Damit starten Sie ein 
weiteres Batch-Programm mit dem 
Dateinamen »1.BAT«. Dieses ruft dann 
seinerseits das Textverarbeitungspro- 
gramm auf. 

Neben dem »ECHO«-Befehl enthält 
die aufgezeigte Batch-Dateinoch ande- 
re Befehle wie zum Beispiel »WTDA- 
TIM« und »KEYBGR«. Von besonderem 
Interesse für alle deutschen Computer- 
besitzer ist hierbei die Tastaturanpas- 
sung »KEYBGR«. 

Das im PC eingebaute ROM enthält 
neben dem sogenannten BIOS - das 
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sind die für den Computer »lebensnot- 
wendigen« Unterprogramme, die er 
nach dem Einschalten durchläuft - 
auch einen festgelegten Tastaturzei- 
chensatz. Die gespeicherte Tastaturbe- 
legung entspricht allerdings der ameri- 
kanischen Norm und stimmt daher nicht 
mit der zum PC gelieferten deutschen 
Tastatur überein. Das Programm »KEY- 
BGR.COM« übernimmt die Tastaturan- 
Ppassung. 

Eine weitere, sehr sinnvolle Einrich- 
tung bei MS-DOS sind die sogenannten 
Subdirectories (Dateizugriffspfade). 
Wie der Name bereits sagt, handelt es 
sich hierbei um Verzeichnisse im Ver- 
zeichnis. Wie in unserem Beispiel (Bild 
1) zu sehen, befinden sich auf der dar- 
gestellten Diskette zwei Unterverzeich- 
nisse, die jeweils der Anhang »DIR« 
kennzeichnet. Sie enthalten ihrerseits 
wieder Programme, die Sie wie ge- 
wohnt aufrufen. Mit dem Befehl »CD 
(Name des Subdirectory)« schalten Sie 
in das gewünschte Unterverzeichnis. 
Geben Sie nun »DIR« ein, so erscheint 
eine ganz gewöhnliche Auflistung der 
Dateien. Lediglich durch die Punkte am 
Anfang desDirectory erkennenSie, daß 
es sich hierbei um ein Unterverzeichnis 
handelt. 

Programmaufrufe und Befehlseinga- 
ben wirken immer nur auf das aktuelle 


Inhaltsverzeichnis. Ein Zugriff auf ein 
Programm in einem Subdirectory er- 
folgt, indem Sie mit »CD« in dieses 
Unterverzeichnis schalten und die An- 
wendung dann ganz normal mit ihrem 
Dateinamen aufrufen. 

Wichtig sind die Subdirectories erst 
für die Besitzer einer Festplatte. Denn 
gerade wenn das DOS sehr viele 
Dateien verwalten muß (bei einer 20- 
MByte-Platte sind dies immerhin 400 
bis 800), wirkt sich diese Organisa- 
tionsform sehr positiv auf die Übersicht- 
lichkeit des Inhaltsverzeichnisses aus. 
So »verschwinden« alle Programme mit 
ihren Hilfsdateien in den verschieden- 
sten Unterverzeichnissen. Am besten 
machen Sie sich die Organisation am 
Beispiel eines Baums klar. Bild 3 zeigt 
einen solchen Baum zum in Bild 1 dar- 
gestellten Directory. 

Bestimmte Befehle, wie zum Beispiel 
»COPY«, fordern unter Umständen 
auch die Angabe des jeweiligen Unter- 
verzeichnisses. Dies geschieht mitdem 
Backslash (Rückwärtsquerstrich) »\«, 
den Sie auf der Tastatur über die Tasten- 
folge »CTRL+ALT+<« erreichen. 
Angenommen, Sie möchten eine Datei 
von der Diskette in Laufwerk A mit dem 
Namen »ARTIKELTXT« auf eine Fest- 
platte in ein Unter-Unterverzeichnis 
kopieren. Der Befehl sieht dann wie 


folgt aus: »COPY A:ARTIKELTXT C:\ 
DATEN\TEXTE\*.*«. 

Angelegt wird ein solches Unterver- 
zeichnis mit dem »MD«-Befehl (smake 
directory«), wobei dem Befehlswort der 
entsprechende Name folgen muß. Zum 
Löschen verwendet man das »RD«- 
Kommando. Es muß allerdings sicher- 
gestellt sein, daß das gewünschte Ver- 
zeichnis keine Dateien mehr enthält. Ist 
dies nicht der Fall, so müssen Sie zuerst 
alle Daten mit dem Befehl »ERASE *,*« 
oder »DEL *.*« aus dem Verzeichnis 
löschen. 

Die Sternchen im obigen Befehl sind 
sogenannte Joker. Siegeben dem DOS 
zu verstehen, daß ein Befehl alle 
Dateien in diesem Unterverzeichnis be- 
trifft. In dem gezeigten Beispiel wird das 
komplette Verzeichnis gelöscht. Auch 
beim »COPY«-Befehl finden die Joker 
Anwendung. So läßt sich zum Beispiel 
eine ganze Dateigruppe (mit einer 
bestimmten Extension) auf einmal spe- 
zifizieren. »COPY A:*.BAT B:« kopiert 
alle Dateien mit der Endung ».BAT« von 
Laufwerk A nach Laufwerk B. 

Den kompletten Befehlssatz mit einer 
Kurzbeschreibung zu jedem internen 
beziehungsweise externen Befehl lie- 
fert Tabelle 1 im 5. Schneider-Sonder- 
heft auf Seite 18. 

(Christoph Sauer/Matthias Rosin/hg) 


C-Prog 


Jetzt gibt es Small-C, ein komplettes 
Entwicklungssystem im CP/M-Modus 
für die Schneider-CPM-Computer. Mit 
Editor, Compiler, Linker und vielen 
weiteren Utilities. 


Alle Programme sind in Small-C 
geschrieben, der Quellcode wird 
mitgeliefert. 

So können Sie das Entwicklungs- 
system nach eigenen Wünschen und 
Erfordernissen erweitern und 
modifizieren. 
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Der neue Checksummer für den Schneider CPC 
ist da! »Explora 2.0« macht die Eingabe von Pro- 
‚grammen noch einfacher. 


sen, was »Explora« ist: Wenn Sie dieses Programm 

gestartet und wieder gelöscht haben, überprüft der 
Computer automatisch Ihre Eingaben auf Richtigkeit. Sobald 
‚Sie die Eingabe einer Programmzeile abschließen, erscheint 
Eine vierstellige Hexadezimalzahl in eckigen Klammern auf 
dem Bildschirm. Das im Heft abgedruckte Listing enthält 
ebenfalls solche Zahlen. Stimmen die Prüfsummen auf dem 
Bildschirm und im Heft überein, haben Sie die Zeile korrekt 
abgetippt. Gibt es Unterschiede zwischen den Werten, soll- 
en Sie auf Fehlersuche gehen und die Zeile korrigieren. Das 
alles konnte »Explora 1.0« auch schon. Der Vorteil der neuen 
Version besteht darin, daß Sie jetzt größere Freiheit bei der 
Eingabe der Zeilen haben. So akzeptiert unser Prüfsummen- 
Brogramm die Basic-Schlüsselworte in Klein- oder Groß- 
Buchstaben (auch gemischt). »PRINT« läßt sich mit dem Fra- 
'Sezeichen abkürzen. »Explora 2.0« läßt zum Beispiel für die 

e »100 PRINT« folgende Eingaben zu: 


y4 uerst einmal Informationen für alle, die noch nicht wis- 


Die Zeilen müssen also nichtmehr schon beim Eintippen so 
ehen wie im Heft, sondern erst beim Auflisten. Außer- 
werden Prüfsummen nur noch für Programmzeilen aus- 

ben, nicht mehr - wie früher - auch bei Direktbefehlen. 
der Zeilennummer stehende Leerzeichen, Line-Feeds 
nd Tabulatorzeichen überliest Explora jetzt selbsttätig. Leer- 

Sichen innerhalb der Zeile wertet es aber weiterhin. Sie ver- 

dern also die Prüfsumme. Explora erlaubt auch die Verwen- 

9 des EDIT-Befehls. AUTO ist jetzt ohne Einschränkun- 

en zu benutzen - allerdings nur beim CPC 664 und CPC 
128. Explora 1.0 liegtim Speicher fest zwischen den Adres- 
A000 und A086 hex. Die neue Version verschiebt der 
asic-Lader automatisch im Speicher direkt unter HIMEM. 

o ist SYMBOL AFTER einwandfrei funktionsfähig. Eine 

Sine Einschränkung gibt es aber doch: Löschen Sie keines- 
Zeilen durch Eingabe der Zeilennummer und anschlie- 

e Drücken der ENTER-Taste! Die Zeile wird nämlich gar 

eht wirklich gelöscht, sondern erscheintals Duplikat der fol- 

enden Zeile. Verwenden Sie statt dessen DELETE. Statt 
schreiben Sie »DELETE 20«. Das Wichtigste nicht zu 
en: Explora 2.0 ist aufwärtskompatibel zur Version 
Das heißt, daß Sie sowohl mit Explora 2.0 frühere 
ings abtippen können, als auch mit Explora 1.0 alle 
xünftigen. Die Prüfsummen sind identisch. 
Aber bei den gedruckten Listings hat sich einiges geän- 
Die Neuerungen betreffen die Darstellung von Leer-und 
derzeichen. Statt ”[5 SPACE]” steht jetzt im Listing 
<5> für fünf Leerzeichen. Um dies eindeutig vom tat- 
lichen Programmcode zu unterscheiden, erscheint der 
unterstrichen. Die Steuerzeichen hießen bisher bei- 
eise »[CTRL A)«. Jetzt steht hier die übersichtlichere 
A. Finden Sie im Listing also einen unterstrichenen 
taben ohne Klammern, müssen Sie gleichzeitig die 


Sdierimmer noch darauf, auch die Grafikzeichen von 128 bis 
255 in Programme aufzunehmen. Solche Symbole stehen 
inftig in Klammern und sind als ASCII-Wert mit vorange- 
dem »G« für »Grafikzeichen« dargestellt. Das Zeichen 


Noch mehr Eingabekomfort 


223 hat dann im Listing die Form <G223>. Die Zeichen 
können nicht von der Tastatur aus direkt eingegeben werden. 
Simpler Trick: Ausgabe des Zeichens mit »PRINT 
CHR$(223)« und Übernahme mit dem Copy-Cursor. 
Sämtliche Listings sind im ASCIl-Zeichensatz gedruckt. 
Deutsche Sonderzeichen erscheinen daher im Druck als 
Klammern und andere amerikanische Zeichen. Verwenden 
Sie ruhig an Stelle dieser Zeichen die entsprechenden deut- 


schen. (Martin Kotulla/ja) 
100 7 MER EDFECI 
19: * * LFADAJ 
120 : * EXPLORA V2.0 * [761E3 
en * EDCDEI 
190 9 Mess EC3D43 
150 TE1BA] 
160 DEF FNIsb(x)=255 AND UNT(x) [39E0J 
170 DEF FNmsb (x)=255 AND INT (x/256) [8864] 
180 SYMBOL AFTER 256:MEMORY HIMEM-161 [948C1 
190 start=HINEM+1:SYMBOL AFTER 240 120923 
A000 TO &AOFD:READ as: sum=sum 
+VAL("&"+a$) zNEXT i 1B2C81 
210 IF sum‘ >19814 THEN PRINT "DATA-Fehle 
ri"sEND LFECEI 
220 RESTORE:FOR i=start TO start+&9D:REA 
Das L&0BEI 


230 POKE ne Sant) NEXT, L [24021 
240 FOR i=i1 TO EAD arasatstart CAC2AI 
250 wert=PEEK 5% een )*256-40960+sta 
127761 
260 FOkE a;FNl sh (wert :POKE ar .FNmaı (we 
rt) NEXT L01B2] 
270 IF PEEK(6)=%80 THEN ed=BBDSAPOKE &B 
ua LS6AB1 


ed=&BDSE:POKE &B 

L760C3 
ed=&BDSE:POKE &B 

L16FA] 
300 POKE &BF21,KAC:POKE &BF22,PEEK(ed)  [71DEI 
310 POKE &BF23,PEEK(ed+1):POKE &BF24,PEE 


Kted+2) 199843 
320 POKE ed,2C3:POKE ed+1,FNlsb (start):P 

OKE ed+2,FNmsb (start) LIAE6I 
330 IF PEEK(&)=&80 THEN END 160441 


540 FOR i=1 TO 7:READ a$,b$:a=VAL("&"+a$ 
)+start:b=VAL ("&"+b$) 13306] 
350 POKE a,FNIsb(b):POKE a+1,FNmsb (b) :NE 
AU: 103321 
360 DATA CD,22,BF,F5,C5,D5,E5,2A,20,BF,C 
D,61,DD,B7,28,62 ESBFCI 
570 DATA "E3,28,20,BF „CD,B8,A0,E1,30,58,C 


LSEF2] 
3,45, 20,BF,21,00,00,0 
LDBF6J 


LADSEI 


DATA "FE,00,2 Be, DD,2A,20,BF ,01,00,0 


‚16 
300 DATA ’00,19,04,F5,A8,47,F1,09,DD,23,F 
E,00,20,ED,3E,0D LESSCI 
210 DATA’CD)SA,BB,SE,OR,CD,SA,BB,SE,SB,C 


D,SA,BB,7C,CD,77 1259A1 
420 DATA’AO,7C,CD,7B,A0,7D,CD,77,A0,7D,C 
D,7B,A0,SE,SD,CD” L014A1 
430 DÄTA’SAJBB,E1,DL,C1,F1,C9,1F,1F,IF,1 
F,E6,0F ,C6,30,FE CA10A] 
440 DÄTA’3A,38,02,C6,07,C3,5A,BB,CD,61,D 
D,B7,37,C8,CD,04 L64ACI 
450 DAra EE}DO}7E,FE,20,20,01,23,CD,D2,E 
37,96 ,09 LOC36] 
a60 DATA” «15 ,&5F „u63,467 ,&6B 134221 
470 DATA OB,DES2,1B,EED4, 1E,E8649 [7B141 
480 DATA 21,E259,89,DES2,8F ‚EED4,99 ,E7AA 
105861 
490 DATA OB,DE4D,1B,EECF,1E,E864 L1F521 
500 DATA 21,E254,89,DE4D,8F ‚EECF ‚99,E7AS5 
[24941 
Sı0 END CAAIAI 


Listing. »Explora« macht Eingabefehler fast unmöglich 


Steckbrief 
Programm: Explora 2.0 
Computer: CPC 464/664/6128 


Checksummer: Explora 1.0 
Datenträger: Kassette/Diskette 
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Selbst ist der 
Programmierer 


Software selber schreiben ist 
gar nicht so schwer, wie viele 
denken. Besonders das Locomo- 
tive-Basic des Schneiders reicht 
Ihnen hierbei hilfreich die Hand. 
Es ist leicht zu erlernen, dabei 
aber trotzdem mit Befehlen für 
jeden Zweck ausgestattet. 


ction ist angesagt. »Starstrike«, 
A »Ghosts'n Goblins«, »Mission 

Elevator« - hinter jedem Namen 
steckt ein fesselndes Spiel. Doch jedes 
Programm kostet Geld. Viel mehr als 
zwei neue Abenteuer sind für 100 Mark 
nicht zu bekommen. Da ist sehr schnell 
Ebbe im Geldbeutel. Schreiben Sie Ihre 
Software doch einfach selbst. Man muß 
nicht in die tiefsten Tiefen komplizierter 
Assembler-Programmierung einstei- 
gen, um tolle Spiele (und nicht nur die) 
zu schreiben. Das eingebaute Loco- 
motive-Basic macht Ihren Schneider 
CPC zu einem idealen Programmier- 
werkzeug. 

»Breakoute ist ein immer wiederkeh- 
render beliebter Hit der Spieleszene. 
Mit einem Ball müssen Sie aus einer 
Mauer Steine herausschlagen. Dabei 
darf der Ball nur auf den Schläger tref- 
fen und nicht auf den Boden fallen. 

Jedes Programm muß als erstes den 
Computer auf seine Aufgabe vorberei- 
ten und dann das eigentliche Problem 
bearbeiten. Unterprogramme, die mit 
verschiedenen Programmteilen zusam- 
menarbeiten, stellt man an das Ende. 

In den Zeilen ab 1000 finden Sie die 
Definitionen verschiedener Variablen 
und Felder. Ab Zeile 2000 erfolgt der 
Bildschirmaufbau. Einzelne Bereiche 
fangen in unserem Programm immer mit 


einer REM-Zeile an. Die Zeichen in 
solch einer REM-Anweisung werden 
beim späteren Bearbeiten vom Compu- 
ter nicht berücksichtigt. Ihr Inhalt dient 
der Information des Programmierers. 

Als erstes bringen wir den Rand des 
Spielfelds auf den Bildschirm. Zeile 
1040 legt den Modus auf 1 fest. Für 
Spiele ist Modus 1 ein geeigneter Kom- 
promiß, da die Auflösung mit 40 Zei- 
chen pro Zeile akzeptabel ist und vier 
Farben gleichzeitig dargestellt werden. 
Als Beigabe wird mit MODE auch der 
Bildschirm gelöscht. Alte Eingaben stö- 
ren also nicht. Aus der Zeichensatz- 
tabelle des Handbuchs suchen wir uns 
die Zeichen 149, 150, 154 und 156 für 
den Rand heraus. Das erste Zeichen 
kommt gleich oben links in die Ecke. Die 
folgende Schleife (Zeilen 2080 bis 
2100) wird 38mal bearbeitet und setzt 
dabei jedesmal das Zeichen 154. 

Solch eine FOR-NEXT-Schleife ist 
einer der wichtigsten Basic-Befehle 
überhaupt. Zuerst wird der Hilfsvaria- 
blen »i« der Startwert (in unserem Pro- 
gramm die 2) zugeteilt. Am Ende der 
Schleife (das ist bei der Anweisung 
»NEXT i«) wird i um 1 erhöht, und das 
Programm arbeitet mit dem zweiten 
Schleifendurchgang weiter. Dieses 
Spiel geht so lange weiter, bis der vor- 
gegebene Endwert (bei uns 39) er- 
reichtist. Erst dann arbeitet der Compu- 
ter mit den dahinterstehenden Befeh- 
len weiter. In Ihrem Handbuch sehen 
Sie, daß durch die Option STEP die 
Schrittweite von 1 variiert werden darf. 
So darf Zeile 2080 auch 
FOR i=2 TO 78 STEP 2 
lauten. 

In der nächsten Schleife finden Sie 
einen neuen Befehl. Mit LOCATE wird 
ein bestimmter Platz auf dem Bild- 


Bild 1. 

»Breakout« 

- ein Actionspiel 
selbst programmiert 


schirm angesprochen. Dazu ist der 
‚Schirm im Modus 1 in ein Raster mit 25 
Zeilen zu je 40 Zeichen eingeteilt. Wie 
Sie eine einzelne Position berechnen, 
sehen Sie in Bild 2. Das Zeichen 149 in 
Zeile 2140 wird somit immer in die erste 
‚Spalte, allerdings mit steigender Zeilen- 
nummer, geschrieben. Die Zeilennum- 
mer ist dabei durch die Variable i der 
FOR-NEXT-Schleife gegeben. Die An- 
weisung »TAB(40)« in Zeile 2150 sagt 
dem Computer, daß er als nächstes die 
Spalte 40 in der gerade aktuellen Zeile 
beschreiben soll. TAB ist damit im Prin- 
zip nichts anderes als der Tabulator 
einer Schreibmaschine. 

Das »;« hinter jeder PRINT-Anweisung 
verhindert, daß bei der nächsten Aus- 
gabe auf dem Bildschirm automatisch 
eine neue Zeile begonnen wird. Der 
GOTO-Befehl in Zeile 2170 läßt den 
Computer in einer Endlos-Schleife ver- 
weilen, damit wir uns das Bild an- 
schauen können. Nun tippen Sie Listing 
1 ein und schauen sich an, was der 
Computer macht. Die Zahlen in den 
eckigen Klammern gehören zu unse- 
rem Prüfsummenprogramm »Explora«. 
Es überwacht Ihre Eingabe auf Fehler. 
Die Beschreibung dazu finden Sie auf 
Seite 41 in diesem Heft. 

Als nächstes bauen wir die Mauer 
(Listing 2). Um später immer wieder 
herauszufinden, wo ein Stein steht, 
definieren wir das Feld »feld$« (Zeile 
1020). Solche Felder sind verschie- 
dene Variablen mit dem gleichen 
Namen. Man spricht ein bestimmtes 
Element mit seiner Positionsnummer 
an. Ein zweidimensionales Feld ist mit 
einem Schachbrett zu vergleichen. So 
wie Sie eine bestimmte Position da- 
durch eindeutig bestimmen, daß Sie die 
Spalten- und Zeilennummern angeben, 
so machen Sie das auch in einem Feld. 
Felder dürfen aber theoretisch unend- 
lich viele Dimensionen haben. Aller- 
dings übersteigt dann die Vorstellung 
von solch einem Speicher für den Men- 
schen die Verständnisgrenze. »feld$« 
enthält für jede Bildschirm-Position ein 
Element - ist also zweidimensional. 

Als nächstes legen wir die Farben der 
Steine fest. Jedem Farbstift ordnen wir 
eine Farbe aus der Tabelle des Hand- 
buchs zu. 

Die Schleife aus Listing 2 malt in die 
Bildschirmzeilen 7 bis 13 jeweils einen 
Stein. Der LOCATE-Befehl hängt dies- 
mal von zwei ineinander verschachtel- 
ten Schleifen ab. Dies ist der einfachste 
Weg, einen Bildschirmbereich - oder 
ein Feld - zu beschreiben. Das Zeichen 
233 steht für unseren Mauerstein. 
Gleichzeitig setzen wir in das Feld an 
der Stelle eine 1 ein. Im späteren Spiel 
sieht man dann jederzeit, ob hier ein 
Stein steht oder nicht. 

In Zeile 2190 wird mit PEN der 
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Shreibstift ausgewählt. Uns stehen 
Ziffern 1 bis 3 (mit O istja der Hinter- 

d gezeichnet) zur Verfügung. Da i 
ereinen Wert von 7 bis 13 annimmt, 
die Rechenanweisung »(i/3)-1« 
einen Wert zwischen 1,33 und 

56. Mit INT wird davon nur der ganz- 
ge Werte genommen - also genau 
gesuchten Ziffern 1, 2 oder 3. 
Zeile 2260 wird noch der Stift auf 
kgesetzt, und schon ist der Bild- 
fertig aufgebaut. Geben Sie jetzt 

g 2 ein. Die Anweisungen aus 
g 1 müssen aber im Speicher ste- 
bleiben. Das gilt übrigens für alle 
'n Programmteile. Alles zuvor 
jene muß im Speicher bleiben. 
nächstes kommt unser Schläger 
die Reihe. Bild 3 zeigt, wie er aus- 
en soll - 5 Symbole breit, und in der 
steht die Zahl des Balls. Zum 
ieren eines Zeichens dient der 
SYMBOL. Der erste Wert be- 

et die Nummer des Zeichens. Er 
normalerweise größer als 239 
Es können damit ohne andere 
sungen maximal 16 Zeichen neu 

e werden. Jedes Zeichen be- 
St aus 8 Byte. Diese geben ver- 
üsselt die einzelnen Zeilen eines 
ols wieder. Die Spalte ganz links 

# Gabei den Wert 128, die zweite 64, 
te 32, die vierte 16, dann 8, 4, 2 

@ zum Schluß die Spalte ganz rechts 
‚Wert 1. Die Zeilen 2020 bis 2050 
Sönieren 4 Symbole. Falls Ihnen unser 
nicht gefällt, so ist es leicht, 
anderen Schläger zu program- 


= 4020 bringt den Schläger auf 


den Bildschirm. Dazu werden der Wert 
»ball« (Definition auf 1 in Zeile 1060) 
und die Position des Schlagers »posx« 
gebraucht. Alle Variablen, die von meh- 
reren Programmteilen aufgerufen wer- 
den, legen wirin das Unterprogramm ab 
Zeile 9000 ab. Solch eine Routine wird 
mit GOSUB (siehe Zeile 1080) aufge- 
rufen. Der Computer merkt sich, von wo 
der Aufruf erfolgt, und kehrt nach dem 
Ende der Unterroutine (das Kennzei- 
chen dafür ist »RETURN«) zu dem Auf- 
ruf zurück. GOSUB-Routinen sind 
immer dann nützlich, wenn man be- 
stimmte Anweisungen in den unter- 
schiedlichsten Programmteilen braucht. 
»LOCATE posx,25« weist schließlich 
dem Schläger seinen Platz in der unter- 
sten Bildschirmzeile zu. 

Im Hauptprogramm (Listing 4) wird 
zuerst nur der Schläger bewegt. Dieser 
muß immer in der Zeile 25 bleiben, darf 
aber zwischen den Spalten 1 und 34 
hin und her fahren. 34 deshalb, weil der 
Schläger mit Leerfeldern 7 Zeichen 
lang ist. Die Zeilen 4010 und 4020 
positionierten unseren Schläger kor- 
rekt. Für die Bewegung muß sich des- 
halb nur »posx« verändern. 

INKEY heißt der Befehl, mit dem jede 
Taste des Computers abgefragt werden 
kann. Wird eine Taste gedrückt, so ist 
der Wert, der zurückgegeben wird, O. 
Bei -1 ist die Taste nicht gedrückt. 
Tabelle 1 zeigtalle Werte, diemanin den 
verschiedenen Kombinationen mit der 
SHIFT- und der CTRL-Taste bekommt. 

Allen Tasten Ihres Schneiders ist 
dabei eine Nummer zugeordnet (siehe 
Handbuch). Die Cursortaste nach links 


hat die Ziffer 8 und die Cursortaste 
nach rechts die Ziffer 1. Zeile 4030 
wertet die Tastaturabfrage aus. Die bei- 
den Ausdrücke in den Klammern sind 
immer dann O, wenn die Taste nicht 
gedrückt ist (1+(-1)). Bei gedrückter 
Taste wird die Abfrage O und der Aus- 
druck in der Klammer 1. Die 1 wird zu 
»posx« hinzugezählt beziehungsweise 
abgezogen und gleichzeitig der Varia- 
blen wieder zugeordnet. Zeile 4040 
paßt auf, daß der Schläger nicht rechts 
oder links aus dem Bildschirm heraus- 
fährt. 

In der booleschen Algebra ist ein 
Wert wahr (und damit gleich 1) wenn er 
richtig ist. Gilt also »posx=0« oder 
»posx=35«, so wird der Ausdruck in 
den Klammern »1«. Da der erlaubte 
Bereich für den Schläger zwischen 1 
und 34 liegt, muß genau in diesem 
Augenblick eine 1 addiert (beziehungs- 
weise abgezogen) werden. Zeile 4040 
sorgt also für den richtigen Wertebe- 
reich. Der GOTO-Befehl ist dafür 
zuständig, daß das Hauptprogramm 
permanent bearbeitet wird. 

Zu einem Spiel wird unser Programm 
erst, wenn auch der Ball eingebaut ist. 
Dazu benutzen wir eine Besonderheit 
des Schneider-Basics - den Interrupt. 
Zuerst definieren wir in Zeile 1050 die 
Spielstufe. Davon hängt die Geschwin- 
digkeit des Balls ab. In den Zeilen 9010 
bis 9040 stehen die Startposition und 
die Verschiebung. Zuerst soll dieser 
nach unten rechts fallen. Wir müssen 
also einfach den Zeilen- und den Spal- 
tenwert um eins erhöhen. 

Das Unterprogramm in Zeile 3010 
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808201 


WordStar 3.0 mit MailMerge 

Ein Bestseller unter den Textverarbei- 
tungsprogrammen, der Ihnen bild- 
schirmorientierte Formatierung, 
deutschen Zeichensatz und DIN-Tasta- 
tur sowie integrierte Hilfstexte bietet. Mit 
MailMerge können Sie Serienbriefe mit 
persönlicher Anrede an eine beliebige 
Anzahl von Adressen schreiben und 
auch die Adreßaufkleber drucken. 
dBASE Il, Version 2.41 

dBASE Il, das meistverkaufte Programm 
unter den Datenbanksystemen, eröffnet 
Ihnen optimale Möglichkeiten der 
Daten- und Dateihandhabung. Einfach 
und schnell können Datenstrukturen 
definiert, benutzt und geändert werden. 
Der Datenzugriff erfolgt sequentiell oder 
nach frei wählbaren Kriterien, die inte- 
grierte Kommandosprache ermöglicht 
den Aufbau kompletter Anwendungen 
wie Finanzbuchhaltung, Lagerver- 
waltung, Betriebsabrechnung usw. 


Spitzen-Software von Markt& 
WordSkar, dBASE Il, 


„AASHTON TATE MICRSSOF 


MULTIPLAN, Version 1.06 

Wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen 
mit Bleistift, Radiergummi und Rechen- 
maschine satt haben, dann ist MULTI- 
PLAN, das System zur Bearbeitung 
»elektronischer Datenblätter«, genau 
das Richtige für Sie! Das benutzer- 
freundliche und leistungsfähige Tabel- 
lenkalkulationsprogramm kann bei allen 
Analyse- und Planungsberechnungen 
eingesetzt werden. 


Sie erhalten jedes WordStar-, 

dBASE Il- und MULTIPLAN- 
Programm für Ihren Schneider-Com- 
puter oder Commodore 128 PC fertig 
angepaßt (Bildschirmsteuerung). 
Jeweils Originalprodukte! Jedes Pro- 
grammpaket enthält außerdem ein 
ausführliches Handbuch mit kompakter 
Befehlsübersicht. 


Für Atari St: 
WordStar 3.0 (MS 106, DM 199.°), dBase I (MS 306. DM 348 


Diese Markt& Technik-Softwareprodukte erhalten 
in den Computer-Abteilungen der Kaufhäuser, bei Ihrem Computerhändia 
im Buchhandel oder direkt beim Verlag gegen Vorauskas: 


Jedes Buch kostet 
DM 49,- 


(sFr. 45,10/6S 382,20) 
Erhältlich bei Ihrem Buchhändler. 


- Markt&fechnik 


die weiterführende Literatur: 
WordStar für den Schneider CPC 
Best.-Nr. MT 779, ISBN 3-89090-180-8 
WordStar für den Commodore 128 PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 
dBASE Il für den Commodore 128 PC 
Best.-Nr. MT 838, ISBN 3-89090-189-1 
dBASE Il für den Schneider CPC 
Best.-Nr. MT 90188, ISBN 3-89090-188-8 
MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für Commodore 128 PC 
Best.-Nr. MT 836, ISBN 3-89090-189-1 


Hardware-Anforderung für 
Schneider-Computer: 

Schneider CPC 464, CPC 664, 

CPC 6128, Joyce, beliebiger Drucker 
mit Centronics-Schnittstelle. 
Hardware-Anforderung für 
Commodore 128 PC: 

Commodore 128/128 D, Disketten- 
laufwerk, 80-Zeichen-Monitor, 
Commodore-Drucker oder Drucker mit 
Centronics-Schnittstelle (ohne 
zwischengeschaltetes Interface). 
Übrigens gibt es WordStar, dBase 
und Multiplan auch für NDR- 
Computer. Zu beziehen bei Graf 
Elektronik Systeme GmbH, 
Magnusstr. 13, 8960 Kempten. 


Zeitschriften - Bücher Bestellungen im Ausland bitte an untenstehende Adressen. 
Schweiz: Markt& Technik Vertriebs AG, Kollerstr. 3, CH-6300 Zug, Tel. (042) 415656 
- Software - Schulung. Osterreich; Ueberreuter Media Handels- und Verlagsges. mbH. Alser Str. 24, A-1091 Wien, Tel. (0222) 4815380 


Markt&Technik Verlag Aktiengesellschaft 
Fens-Pinsel-Str. 2, 8013 Haar bei München 
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Bild 3. Der Schläger 


(Listing 5) ist Dreh- und Angelpunkt des 
Programms. Mit EVERY wird eine Zeit- 
einheit definiert, nach der das Unter- 
programm ab Zeile 7000 aufgerufen 
werden soll. Wir ziehen vom Wert 10 die 
Spielstufe (zu Anfang 1) ab und rufen 
mit diesem Wert die Ballroutine auf. Der 
hier angegebene Wert sagt, alle wieviel 
Fünfzigstel-Sekunden der Interrupt 
behandelt werden soll. Unabhängig von 
der Programmzeile wird die Ballroutine 
zu Anfang alle (10-1)-Fünfzigstel- 
Sekunden aufgerufen. Die »0« hinter 
dem Komma bezeichnet dem Compu- 
ter die Uhr (eine von vier), die benutzt 
wird. Ab Zeile 7000 wird nun die Bewe- 
gung des Balles per Interrupt gesteu- 
ert. Zuerst wird die alte Position 


berechnet (Zeile 7030 und 7040) und 
zum Schluß das Zeichen 231 als Ball 
gesetzt. 

Am Rand unseres Bildschirms muß 
der Ballseine Richtungändern, damiter 
diesen nicht verläßt. Dazu dienen die IF- 
‚Abfragen. Sie sagen nichts anderes, als 
»Wenn eine bestimmte Position erreicht 
ist, dann ändere die Laufrichtung«. Das 
erreicht man am einfachsten, indem 
man vor die entsprechende Variable ein 
Minuszeichen setzt. »verschiebungy« 
kennzeichnet dabei die Bewegung 
nach oben und unten - »verschie- 
bungx« die nach rechts oder links. 
Damit der Aufprall auch zu hören ist, 
steht in der Zeile noch der Befehl 
»PRINT CHR$(7); (gibt einen Piepston 


Befehle an schon geschriebene Zeilen 
anhängen. Unsere IF-Anweisung erwei- 
tertsich also um: »Wenn du an den Rand 
stößt, dann ändere die Richtung und gib 
einen Ton aus«. 

Der LOCATE-Befehl setzt die Aus- 
gabe-Position für den Schläger wieder 
auf den alten Wert. Ohne Zeile 7110 
kann es passieren, daß der Schläger an 
der Ballposition erscheint. Der Inter- 
rupt muß nur unpassend »zuschlagen«. 
RETURN in Zeile 7120 sagt dem Com- 
puter, daß der Interrupt zu Ende ist. 

So langsam bekommt unser Pro- 
gramm Gesicht. Allerdings wandert der 
Ball noch ohne Rückschlag durch die 
Mauer. Zeile 7070 ausListing 6 fragtim 
Feld nach, ob an der aktuellen Ballposi- 


gelöscht, dann die neue Position aus)«. Mit einem »:« darf man jederzeit tion ein Stein sitzt und verändert gege- 

1208 REM Vorbereitung L61C2] 4080 REM Hauptprogramm LB49E1 

10848 MODE ı 679361 4250 Pposx=posx+(1+INKEY(1))-(1+INKEY(B 

2060 REM Rand 152E21 » L3C6R1 

2078 PRINT CHR$(150); [55F2] 4048  Posx=posx- (posx=®) + (posx=35) [A132] 

2080 FOR i=2 TO 39 [FBBB1 4270 GOTO 4008 £D31@1 

a NETT Een Listing 4. Das Hauptprogramm ist kurz 

21a PRINT Surs us, Eogea1 

20 FOR i=2 TO 2 tic i 
z 1850  spielstufe=i L7EB@J 

En PEN oslkiueen, ae 30@® REM Interrupt initialisieren 63501 

Z18 PRINT TABtAB) TEHRS (149) IS2se1 s@ia Ei 1B-spielstufe,® GOSUB 7000 La7BB1 

2160 NEXT ’ 3 LADE2I 7808 REM Ballsteuerung ueber Interrupt [37081 

= 79010 LOCATE ballposx,ballposy ESFEE] 

217@ 6010 2178 1921A1 JOB PRINT en 116741 

Listing 1. Modus 1 ist unser Modus 7050 ballposx=ballposx+verschiebungs IECB21 

7940 ballposy=ballposy+tverschiebungy  L26BA1 

10828 DIM feld(40,25) LB4901 Ben PRINT anna 1poeN sballpoay aan 

1058 R INK @,@: INK 1,262 INK 2,2@: INK 3,1 70808 IF ballposx=2 ballposx=39 THEN 

217@ REM Bausteine [821C1 EaRs en ungx=-verschiebungs 3 PRINT L9DsEI 

2188 FOR i=7 10 13 LESACI 70898 IF ballpasy=2 THEN verschiebungy= 

2170 BEN (INT(i/32-1) C5DAA] -verschiebungy: PRINT CHR$ (7); LF4683 

2200 FOR j=2 TO 39 109261 7198 IF ballposy=24 THEN verschiebungy 

2228 BAT NT HRS (233) 5 iDere 3 EHER aBLngY, EADSel 

228 san 308} 7118 LOCATE posx- (posx=®) + (posx=35) „25 en 

NEXT 3 128 712® RETURN CB694] 

BER NERT 1 LOAEZI 921® ballposx=9 1570A3 

2260 PEN 1 LıcBcı 9020 ballposy=14 LSF661 

Listing 2. Der Bildschirm ist vierfarbig 3030 verschiebungx=1 L2C2E] 

7048  verschiebungy=i 197321 

1860 ball=i [3A68] Listing 5. Crame de la crame - der Interrupt 

1288 GosuB saaa 193241 

2@01@ REM Aussehen des Schlaegers 1B4491 

2020 SYMBOL 255,21,21,21,21,20,23,16,3 1878 stein-@ ca77a1 
1 [7A68] 7870 IF feld(ballposx,ballposy)=1 THEN 

2030 __SYMBOL 254,67,126, 12,248,8,252,6, = 5 feld(ballposx ‚ballposy)=@:stein=st 

AED: +1: hiebungy= hieb 

204® SYMBOL 253,194,126,48,31,16,63,96 z, PRINT me 7 Verschäebungys 187A21 
’ LEFF@] & 

205@ SYMBOL 252,168,168,168,168,48,232 Listing 6. Die Mauer fällt 
8, 175661 

4210 ° LOCATE posx,25 C6BB4] 

4220 PRINT CHR$ (32) ;CHR$ (255) ;CHRS (254 7108 IF ballposy>=24 THEN GOSUB BOB LESER] 
I; CHR$ (ball+48) ;CHRS$ (253) ; CHR$ (252) SO00 REM Untere Zeile C46FQ1 
;CHR$ (32); LAC28] 8918 IF posx+1<=ballposx AND posx+5>=b 

4070 G0T0 4070 EBEIEI allposx_THEN verschiebungy=-verschi 

J0O0Q REM Startwerte 18844] ebungy:PRINT CHR$(7); ELSE flag=i L&BD41 

9050  Pposx=16 120381 823Q@ RETURN [8796] 

9878 RETURN TCBABI FOR Flag=B T9BECH 

Listing 3. Bis auf den Ball ist alles zu sehen Listing 7. Treffer - oder nicht? 


4050 IF flag=i THEN GOTO 5208 LA9Daı 4860 IF stein-26& THEN SOTO s208 tancaı | 

5800 REM Neuer Ball EBFB6] $6@6Q@ REM Naechste PRERASENNE [99B2] 

SOIR Äi=REMAIN (@) 143521 &E!® i=REMAIN (@ 159541 

5@2@ LOCATE ballposx,ballposy LEIECI 028 IF spielstufe=S THEN MODE 2:PRINT 

sasa PRINT " "5 [36E8] "Ende '":END £73D81 

5040 LOCATE ballposx,25 ES1F23 6838  spielstufesspielstufe+1 (58941 

S@S@ PRINT CHRE(231)5 C63FAJ 4248 stein=B 170741 

S@6@ LOCATE ballposx,25 LASF6) 605B GOSUB 7200 ca5281 

5278 PRINT " "; [BEF@J 606@ IF INKEY$<>" " THEN GOTO 6048 [EAE2] 

S@8@ LOCATE posx,25 159041 687@ G0T0 2178 170201 

507@ PRINT SPACEF(7); LEBSCI 

Sıaa GÜSUB F92Q [7@1E] Listing 9. - die nä I: 

re Besen ing 9. Geschafft - die nächste Spielstufe ist fällig 

512@ IF ball=1@ THEN CLS:PRINT "Ende ! 

"END LFAB41 

5138 LOCATE posx „25 [&8BC] 

SiA@ FRINT CHR$ (32) ;CHR$ (255) ;CHR$ (254 1B18 DEFINT a-z LBOBBI 
) 5CHR# (bal 1+48) ; CHR$ (253) ;EHR$ (252) 2080 REM Bildaufbau TaBARı 
FEHRS (32); LF9381 8020 IF (flag=® AND (INTRND+ZI=@)) TH 

S1S@ ° IF INKEY$<>" " THEN GOTO 5158 ES@DE1 EN LOCATE ballposx ,‚ballposy:PRINT " 

5160 60T 3208 [7E1@1 3:ballposy=25 EcSB8] 

Listing 8. Der Ball ist weg Listing 10. Feinheiten machen das Programm perfekt 


benenfalls die Flugrichtung. Gleichzei- 
tig wird das Element des Feldes auf O 
gesetzt (der Stein ist ja weg), die Zahl 
der Steine um 1 hochgezählt und der 
Ton für den Aufprall ausgegeben. Die 
Variable »stein« wird in Zeile 1070 defi- 
niert. Mit ihrer Hilfe stellen wir später 
fest, ob die ganze Mauer abgeräumt ist. 

Der Ball bewegt sich und der Schlä- 
ger bewegt sich. Allerdings prallt der 
Ball auf dem Boden unabhängig vom 
Schläger zurück. Ändern wir 7100 in 
einen Unterprogrammaufruf zur Zeile 
8000 (Listing 7), so können wir dort 
auswerten, ob der Schläger getroffen 
wurde oder nicht. Dazu definieren wir in 
Zeile 9060 ein Flag, das immer dann 
den Wert 1 hat, wenn der Ball nicht auf 
den Schläger trifft. Zuerstist es deshalb 
natürlich 0. Wenn die Schlägerposition 
»posx-+1« kleiner als die Ballposition 
»ballposx« oder »posx+5« größer als 
»ballposx« ist, dann trifft der Ballauf den 
Schläger, die Richtung wird verändert 
und der Ton ausgegeben. Andernfalls 
trifft die Anweisung nach dem Befehl 
ELSE zu: »flag« wird auf 1 gesetzt. Daß 
der Wert »posx+1« ausschlaggebend 
ist, liegt daran, daß rechts und links 
neben den Schläger immer ein Leerzei- 
chen zum Übermalen der alten Position 
gezeichnet wird. Damit übermalt der 
Computer die alte Position des Schlä- 
gers. 

Das Flag, das den »Nichttreffer« 
kennzeichnet, wird in dem Programm- 
teil ab Zeile 5000 (Listing 8) ausgewer- 
tet. Fügen Sie Zeile 4050 in den Haupt- 
teil ein, und schon ruft der Interpreter 
immer, wenn das Flag gesetzt ist, das 
Unterprogramm auf. Zuerst wird. der 
Interrupt gelöscht (der Ball darf ja nicht 
»dazwischenfunken«). Der Befehl in 
Zeile 5010 ist eine Hilfskonstruktion. 
Immer dann, wenn mit REMAIN der 
Restwert der Interrupt-Uhr (das ist die 
Zeit, die bis zum nächsten Interrupt- 
aufruf noch vergeht) ausgegeben wird, 
wird diese auch gelöscht. 

Der Ball fliegt nun nicht mehr. Als 
nächstes wird er in die Zeile 25 
geschrieben (er fällt ja auf die Erde). 


u Honscanrutzawon.s, 


Natürlich wurde er zuvor in Zeile 24 
gelöscht. Auch der Schläger ist im 
Moment überflüssig. Mit »PRINT 
SPACE$(7);« werden an der Stelle des 
Schlägers 7 Leerzeichen ausgegeben. 
Die Werte aus der Routine in Zeile 
9000 müssen wieder restauriert wer- 
den (»GOSUB 9000«) bevor der Com- 
puter den Spieler fragen kann, ob er mit 
dem nächsten Ball fortfahren soll. Vor- 
her muß der Wert »ball« um 1 heraufge- 
setzt und, falls dieser dann 10 erreicht, 
das Spiel abgebrochen werden. 


Zur nächsten Runde malt das Pro- 
gramm den Schläger auf die Ausgangs- 
position, bevor es in der Zeile 5150 dar- 
auf wartet, daß Sie die Leertaste 
drücken. Diesmal benutzten wir zur 
Tastaturabfrage den Befehle INKEY$. 
Dieser liest nämlich das Zeichen, das 
auf einer Taste liegt, direkt ein. 
»INKEY$= " A” «istalso nur aktiv, wenn 
das große A gedrückt ist. Solange 
INKEYS$ kein Leerzeichen findet, bleibt 
das Programm in Zeile 5150 hängen. 
Ansonsten wird mit Zeile 3000 weiter- 
gemacht. 


Was passiert nun, wenn die Mauer 
abgeräumt ist? Die Spielstufe muß 
erhöht und die Mauer wieder aufgebaut 
werden. Die Mauer hat genau 266 
(=7x38) Steine; in der Variablen 


‚gedrückte Taste Rückgabewert 
Taste nicht gedrückt -1 
Taste allein o 


Taste mit <SHIFT> 32 
Taste mit <CTRL> 128 
Taste mit <SHIFT> und <CTRL> 160 


Tabelle 1. Mit diesen Informationen 
werten Sie die Tastatur aus 


»stein« zählt der Computer die Treffer. 
Fügen Sie nun Zeile 4060 (aus Listing 
9) in das Hauptprogramm ein, dann 
behandelt die Routine ab 6000 das 
Ende einer Spielstufe. Das Unterpro- 
gramm ähnelt etwas dem ab Zeile 
5000. Zuerst wird der Interrupt 


gelöscht, dann die Spielstufe auf ihren 
Maximalwert getestet (größer als 5 darf 
sie nicht werden, da sonst der Interrupt 
so schnell zuschlägt, daß Sie keine 
Chance haben, den Ball zu treffen) und 
gegebenenfalls das Spiel beendet. 
Falls das Programm in der nächsten 
Spielstufe weiterarbeitet, setzen wir 
»spielstufe« hoch und die Ausgangs- 
werte mit »GOSUB 9000« ein. In Zeile 
6050 wartet der Computer wieder auf 
den Druck der Leertaste. 

Mit »GOTO 2170« kehrt das Pro- 
gramm an den Anfang zurück - und 
zwar dorthin, wo der Computer die 
Mauer »baut«. 

Listing 10 fügt nur noch letzte Ver- 
besserungen ein. Wenn Sie die Varia- 
blen mit DEFINT auf Integerwerte fest- 
legen, beschleunigt dies die Bearbei- 
tungsgeschwindigkeit enorm. Das in- 
terne Format von Ganzzahlen ist 
nämlich für den Interpreter leichter - 
und damit auch schneller - zumanagen 
als das der reellen Zahlen. Sicher ist 
Ihnen auch aufgefallen, daß unsere 
Mauer nur rasterförmig eingerissen 
wird, Die Symmetrie des Programms 
ändern wir, indem wir per Zufall gesteu- 
ert beim Treffen auf den Schläger den 
Ball eine Bildschirmzeile senkrecht 
nach oben steuern. Dazu dienen die 
Anweisungen in 8020. 

Falls der Ball nicht auf den Boden fällt, 
gilt (sflag=0«) und »INT(RND*2)= 
O«. In diesem Fall löscht der Computer 
die alte Ballposition und setzt »ball- 
Pposy« auf 23. Mit der Anweisung rufen 
Sie eine Zahl zwischen einschließlich O 
und ausschließlich 1 auf. Welche, das 
hängt von der Zeit ab, die vergangen ist, 
seitdem der Computer eingeschaltet 
wurde. Und dieser Wert ist wirklich 
nahezu unberechenbar und damit zufäl- 
lig. Multiplizieren Sie den Wert mit 2, so 
bekommen Sie immer eine Ziffer zwi- 
schen O und 2. Der Vorkommawert da- 
von ist entweder O oder 1. Der Wahr- 
scheinlichkeit nach sind beide Möglich- 
keiten gleich häufig. Die Chance, daß 
der Ball um eine Zeile verschoben wird, 
beträgt also 50 Prozent. (hg) 
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Der CPC als Tor zur Welt 


ie ein unsichtbares Spinnen- 
netz haben sich seit Mitte 
der siebziger Jahre die elek- 


tronischen Datennetze über die Erde 
gespannt. Fertigungsdaten für Indu- 
strieroboter werden darüber genauso 
ausgetauscht wie aktuelle Wetterinfor- 
mationen, Aktienkurse, politische Sen- 
sationen, Smalltalk, Halbwertzeiten 
beim radioaktiven Zerfall und Kochre- 
zepte. Für einen Anwender, der mit sei- 
nem Computer schnell große Mengen 
an Daten verarbeiten will und auch den 
Zugang auf externe Informationen 
braucht, ist die Datenfernübertragung 
die logische Erweiterung von Textverar- 
beitung, Datenbank und Spreadsheet. 

Eine Datenbank funktioniert ähnlich 
der Adreßverwaltung auf dem Heim- 
computer: Der Computer kann eine 
große Menge von Datensätzen in relativ. 
kurzer Zeit durchsuchen, sortieren und 
nach bestimmten Kriterien geordnet 
wieder ausgeben. 

Der wesentliche Unterschied zwi- 
schen Datenbank und Heimcomputer 
liegt einmalin der Größe der Datei (meh- 
rere zehn- oder gar hunderttausend 
Einträge sind keine Seltenheit) undzum 
anderen darin, daß die Arbeit mit einer 
Datenbanküber die Telefonleitung (»on- 
lines) vor sich geht. 

Rund fünftausend Datenbanken und 
mehrere zehntausend Mailboxen kön- 
nen Sie mit Ihrem CPC weltweit errei- 
chen. Datenbanken gibt es zu fast 
Jedem denkbaren Themenkomplex: Ju- 
ristische, betriebswirtschaftliche, medi- 
zinische, chemische, sozialwissen- 
schaftliche und technische Daten- 
sammlungen mit oft mehreren hundert 
Megabyte können Sie zu Hause am 
Schreibtisch durchstöbern. Sofernman 
das nötige Kleingeld hat. Etwa tausend 
Mark je Stunde Benutzungszeit kosten 
beispielsweise amerikanische Daten- 
banken, die sich auf aktuelle Boden- 
schatzfunde spezialisiert haben, 

Für den Hobbyanwender erschwing- 
lich sind Mailboxen, elektronische 
Briefkästen, die ausgesprochene En- 
thusiasten betreiben und die in der 
Regel nichts kosten. Allein in der BRD 
gibt es mittlerweile rund vierhundert 
solche nichtkommerzielle Systeme. 
Das technische Prinzip ist einfach: Ein 
Computer hängt an einem öffentlich 
zugänglichen Netz (entweder am Tele- 
fonnetz oder an DATEX-P). Jeder ein- 
getragene Benutzer kann ihn anrufen 
und hat (unterschiedlichen) Zugriff auf 
verschiedene dort gespeicherte Files. 
Er kann auch Daten hineinschreiben, 
die andere Benutzer wieder lesen kön- 
nen. Jenachdem, ob diese geschriebe- 
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Alles Wissen dieser Welt auf 
dem Terminal Ihres Schneider- 
Computers: Ein Akustikkoppler, 
eine serielle Schnittstelle und 
unser Terminalprogramm ist 
alles, was Sie dazu brauchen. 


nen Dateien allen zugänglich sind 
oder nur einem bestimmten Benutzer, 
spricht man im übertragenen Sinne von 
elektronischen »Schwarzen Brettern« 
oder von »privaten Postfächern«, In der 
Regel sind diese verschiedenen Funk- 
tionen aus einem Menü auszuwählen, 
das die Mailbox nach dem Einloggen 
(der erfolgreichen Eingabe von Benut- 
zername und Paßwort) anbietet. 

Wie sinnvoll und arbeitssparend eine 
Mailbox auch für den Privatmann und 
die Privatfrau seinkann, zeigt folgendes 
Beispiel: Michael braucht dringend die 
technische Beschreibung eines elek- 
tronischen Bauteils für eine Seminar- 
arbeit. Diese Beschreibung will ihm 
Peter liefern. Peter ist nur unglückli- 
cherweise gerade zu Besuch bei seiner 
Großmutter und die Sache ist dringend, 
so daß ein Brief zu spät ankäme. Hat 
Peter bei seiner Großmutter »zufälliger- 
weise« seinen Computer und einen 
Akustikkoppler dabei, dannistalleskein 
Problem: Er ruft Michael an und schickt 
ihm den Text, den er vorher geschrie- 
ben hat, direkt in seinen Computer. Das 
hat im Gegensatz zum Brief den Vorteil, 
daß Michael den Text nicht mehr eintip- 
pen braucht, sondern ihn direkt am Bild- 
schirm mit Hilfe eines Textverarbei- 
tungsprogramms editieren kann. 


Der Brief übers 
Telefon 


Was aber tun, wenn aus irgendeinem 
Grund keine direkte Verbindung zwi- 
schen Michael und Peter möglich ist? 
Wenn Michael beispielsweise durch 
seine Arbeitszeit nur sehr schlecht zu 
erreichen ist? Dann benützt Peter eine 
Mailbox, in der beide eingetragene 
Benutzer sind. Er ruft an, gibt seinen 
Usernamen und sein Paßwort ein und 
wählt den Menüpunkt »Private Post«. 
Auf die Frage des Mailboxcomputers, 
an wen die Nachricht gehen soll, gibt 
Peter den Systemnamen von Michael 
ein, und hat nun die Möglichkeit, den 
Bericht, den Michael so dringend 
braucht, in dessen persönliches Post- 
fach zu laden. Abholen kann Michael 
sich den Artikel wann er will, ob um vier 
Uhrfrüh.oder neun Uhr abends (oder zu 
irgendeiner anderen nachtschlafenden 


Zeit). Texte versenden via Mailbox geht 
nicht nur wesentlich schneller als Eil- 
brief, Kurier oder Telex, es ist außerdem 
Jamöglich, die Texte sofort weiterzuver- 
arbeiten. Doch der wichtigste Vorteilist 
der zeitunabhängige Versand. Sowohl 
Absender als auch Empfänger können 
den Nachrichtenverkehr dann aufneh- 
men, wann es ihnen in den Kram paßt - 
in Sekunden- oder Wochenabstand 
voneinander, ganz wie es beliebt. 

Parallel dazu, wie die lokalen Netz- 
werke (LAN) in den Betrieben an Boden 
gewinnen, steigt auch die Bedeutung 
der Datenfernübertragung. Die niedri- 
gen Kosten für die nötige Hardware und 
die unübersehbare Flut an preiswerter 
bis kostenloser DFÜ-Software bereiten 
den Weg zu einer Datenfernübertra- 
gungals Massenkommunikationsmittel. 
Die Hacker machen es vor: Neben kom- 
merziellen Aspekten ist es auch ein 
potentielles Mittel zur Völkerverständi- 
gung. Wenn man sich für dreiundzwan- 
zig Pfenniganschauen kann, wasin den 
USA, in England oder in Nicaragua und 
der UdSSR gedacht wird, und mit den 
Menschen dort über die Netze reden 
und Nachrichten austauschen kann, 
wird dieses Verständnis anderer Völker 
Kriege unwahrscheinlicher machen. 

Wie bekannt, kann man den Schnei- 
der nur schwer dazu bewegen die 
Daten seriell, das heißt Bit für Bit, zu 
übertragen. Da der Schneider nur TTL- 
Pegel ( O Volt und 5 Volt) von sich gibt, 
wird man sich schwertun, das Modem 
(oder den Akustikkoppler) davon zu 
überzeugen, die gesandten Informatio- 
nen zu verstehen. Beide verlangen 
nämlich die Daten nach RS232C-Norm 
(+/-12 Volt). 

Eine serielle Schnittstelle, wie sie bei- 
spielsweise Vortex anbietet, wandelt 
die unterschiedlichen Pegel um, genau- 
so wie Akustikkoppler und Modem die 
Signale des CPC für das Telefon aufbe- 
reiten. 

Stecken Sie die Schnittstelle in den 
Erweiterungsanschluß Ihres Schnei- 
ders, danach das Verbindungskabel in 
die Schnittstelle und in das Modem, 

Wie alle kommerzielle Software sind 
auch Terminalprogramme relativ teuer. 
Für alle die, die nicht auf die kostenlo- 
sen Public-Domain-Programme unter 
CPI/M zugreifen können, stellen wir hier 
ein Terminalprogramm vor, das sich 
auch nicht vor kommerziellen Produk- 
ten zu verstecken braucht. 

Zur Zeit gibt es rund ein halbes Dut- 
zend serielle Schnittstellen für den 
Schneider CPC. Von den selbstge- 
strickten ganz zu schweigen. Daher ist 
unser Programm so geschrieben, daß 


4 zahl R Pen 


man es sehr leicht anpassen kann. Je 
nach Schnittstelle reicht es, lediglich 
einige Zeilen auszutauschen. 


Folgende Programmteile müssen 

Sie abtippen: 

Vortex: 
Basicprogramm »Main« (Listing 1) 
Basicprogramm »vortex« (Listing 2) 
Maschinenprogramm »mcain« (Listing 5) 
Maschinenprogramm »mcO« (Listing 6) 

Schneider: 
Basicprogramm »Main« (Listing 1) 
Basicprogramm »schneider« (Listing 3) 
Maschinenprogramm »mcain« (Listing 5) 
Maschinenprogramm »mc2« (Listing 7) 

eigene: 
Basicprogramm »Main« (Listing 1) 
Basicprogramm »eigene« (Listing 4) 
Maschinenprogramm »mcain« (Listing 5) 
Maschinenprogramm »mc1« (Listing 8) 


Die beiden Basicprogramme und die 
beiden DATA-Lader müssen jeweils als 
ein Programm eingegeben werden. 


Mailboxen mit Informationen für 
Schneider-Computer 


Eigene Mailboxbretter für den CPC mit Tips 
und Tricks, Informationen und Anfragen 
haben beispielsweise folgende Mailboxen: 
Toelleturm-Box Tel: 0202/559350 


Vollrath-Box Tel: 0209/27 1666 
Datenmühle Tel.: 030/321 9768 
ACM-Box Tel.: 089/8120338 
Hitech Tel.: 089/392289 
‚Schweiz: 

Hobby-Box Tel.: 0041/1741/3314 


Wenn Sie das Programm richtigabge- 
tippt haben, gehen Sie beim Aufbau 
einer Verbindung folgendermaßen vor: 

Sie wählen beispielsweise eine der 
obenstehenden Nummern. Den Mail- 
boxcomputer am anderen Ende der Lei- 
tung erkennen Sie an dem charakteristi- 
schen hohen Pfeifton aus dem Telefon- 
hörer. Nun legen Sie den Telefonhörer 
in den Koppler. Danach drücken Sie 
<D> und ein paarmal <ENTER>, 
damit der andere Computer weiß, daß 
jemand in der Leitung ist. Darauf meldet 
dieser sich mit seiner Einschaltmel- 
dung. Wenn er sich nicht rührt, so über- 
prüfen Sie, ob Ihr Koppler einen Ton von 
sich gibt. Falls nicht, überprüfen Sie die 
‚Stromversorgung und Verbindung zum 
Koppler. Falls alles funktioniert und der 
angerufene Computer sich trotzdem 
nicht meldet, kann es sein, daß das 
Telefonsignal zu schwach ist (noch mal 
anrufen) oder der Telefonhörer- ver- 
kehrtherum im Koppler liegt. 

Das Programm ist kommandogesteu- 
ert. Mit »h« gelangt man beispielsweise 
in den Hilfsmodus, in dem alle Komman- 
dos erklärt werden. 

Bei Modems mit Selbstwahl gibt man 
die Nummer einfach über die Tastatur 
ein. Nach dem Drücken der ENTER- 
Taste schickt der CPC die entspre- 
chenden Impulse an das Modem, und 
dieses stellt die Verbindung her. 


Anschluß besetzt? Einfach noch mal 
<ENTER>, und der Computer legt auf 
und wählt von neuem. Wenn Sie Tele- 
fonnummern oft brauchen, dann kön- 
nen Sie diese in Zeile 490 eingeben 
und brauchen dann statt der ganzen 
Nummer nur die gespeicherte Kurzwahl 
einzutasten. 

Folgende Befehle versteht unser Ter- 
minalprogramm: 

»d« (Dialogbetrieb) Geht in den Dia- 
logmodus und teilt dem anderen Com- 
puter mit, daß er mit dem Senden anfan- 
gen kann. (Sendet »XON«.) XON wird 
gesendet, damit der andere Computer 
nach einem etwaigen XOFF zu senden 
beginnt. 

»TAB« (Unterbrechung) Rückkehr in 
die Befehlsebene und Senden von 
»XOFF«, so daß der Mailboxcomputer 
aufhört zu senden. 

»s« (speichern) Alle Ein- und Ausga- 
ben der beiden beteiligten Computer 
werden in einen Puffer gespeichert. 

»dl« (Dialogbetrieb mit Download) Es 
wird ein Protokoll auf Diskette mitge- 
speichert. 

»l« (laden) Daten von Diskette in den 
Puffer laden. Falls schon Daten im Puf- 
fer waren, werden die neuen hinten an- 
gehängt. 

»C« gibt das Inhaltsverzeichnis der 
Diskette aus. 

»td« sendet einen Text direkt von der 
Diskette an den anderen Computer. 

»type« Inhalt eines Files auf der Dis- 
kette auf den Bildschirm ausgeben. 

»w« (Warmstart) Bildschirm löschen 
und Farben zurücksetzen. 

»r« (read) Pufferinhalt auf den Bild- 
schirm ausgeben. Auf Tastendruck wird 
die Ausgabe gestoppt und wieder fort- 
gesetzt. 

»n« (Nummer) Mit »n1« wird die erste 
Nummer der Telefonliste gewählt (nur 
mit Modem). 

»p« (Parameter ändern) Damit sich 
die zwei Computer verstehen, wird ein 
sogenanntes Übertragungsprotokoll 
vereinbart, das die Anzahl der Daten- 
bits, die Parität und die Stopbits fest- 
legt. Hier sollte man herumprobieren, 
wenn man statt einer vernünftigen Ver- 
bindung nur sinnlosen Schrott auf den 
Schirm bekommt. Im Menüpunkt »p« 
kann man mit »?« andere Übertra- 
gungsprotokolle einstellen und mit 
»?p« den Schnittstellenbaustein direkt 
programmieren. Es können zum Bei- 
spiel unterschiedliche Sende- und 
Empfangsbaudzahlen eingestellt wer- 
den, so daß der GPC mit 1200/75 Baud 
auch BTX-fähig -wird. Gibt man nur 
<Return> ein, so bleiben die einge- 
stellten Parameter unverändert. 

»voll« und »halb« stellen auf Voll- und 
Halbduplex um. 

»e« beendet das Programm. 

(Klaus Bell/ig) 


Philosoft® 


Pariser Platz 2 
8000 München 80 
Telefon 089-4482601 


TEXTVERARBEITUNG 

+ MODEM 

Darstellung von Fettschrift, Kur- 
sivschrift, Unterstreichen, Indi- 
zes und hochgestellte Schrift 
auf dem Bildschirm! Blockbe- 
fehle, Absatz/Seitenumbruch, 
Suchen/Ersetzen, horizontales 
Scrollen, Druckeranpassung, 
perfekt, superschnelll Mailbox- 
betrieb, Textspeicher, Senden 
und Empfangen mit und ohne 
Prüfprotokoll (MODEM7 kom- 
patibel)! 
CPC-Diskette 89,- 


ASSEMBLER + TESTER 
Sehr schneller Assembler für 
Z80-, 8080-, 8085- und 8048- 
Opcodes, 26 Pseudo-Opcodes! 
Symbolischer Tester mit 26 
Funktionen inkl. Multi-BP, Da- 
tentransfer, EPROM progr.! 


CPC-Diskette 129,- 
Komplette Software wie o. a. im 


EPROM auf Erweiterungskar- 
ten für alle CPCs: 
279,- 


Komplett 
dazu als Option: 
RS232-Schnittstelle 119,- 
EPROM-Progr-Gerät 119,- 
für 2716 bis 27256 

Info anfordern! 


Helmut Distl 
089)4613-398 
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12 "DFUE Programm von Bell Klaus 2818271 358 NEXT E&BEEI 
267 L75F61 348 OUT &F6FF,B:° Bit 4=lom: 
29 'x#ke00eeee Initialisierung 1757A] Relai schliessen L32BAJ 
21 MEMORY &3@@0: OPENQUT "dummy" MEMORY H 37@ IF INKEY$<>"" THEN OUT &F6FF,8:60T0 
IMEM-1:CLOSEOUT:DEFINT h LA@Fc] 90: "Relai schliessen und nach Befehl 
23 WINDOW#1,1@,8@,1,25 [9484] sebene LEBEBI 
24 ON BREAK'G0SUB’ 428 Cazaaı 38@ NEXT L7FF4] 
25 ON ERROR G0T0 ıa28 tcsı@1 398 FOR 1=1 TO 4B@:NEXT [55181 
26 FOR a=1 TO S:READ par$(a) ‚stbits(a):N 395 RETURN [99421 
EXT LC148] 400 'aunnnennareneneeee Type [82621 
27 DATA keine ,i,ungerade,1 1/2,gerade,2 [67481 421 WHILE NOT EOF [55721 
74 POKE base+&10F ‚&24: adr=base+&&: by=&38 428 LINE INPUT #9,t$:PRINT ts [3@7A1 
@2: GOSUB 17@@:POKE base+&62,8 19116] 430 a$=INKEY$: IF a$="" THEN GOTO 438 ELS 
75 PRINT"<2@>DFUE-Programm<28>th-Help) [9680] E_IF a$=" " THEN CLOSEIN:G0TO 98 641421 
76 PRINT"19>-————— LEAZEI 435 IF as="w" THEN PEN 1:PAPER 8: BÜRDER 
77 PRINT LAA36] @: INK 1,24:INK 2,8 145381 
92 G0TO soo £37EC] 440 WEND E2FCCI 
81 ee - 458 PRINT [64801 
[6616] 468 CLOSEIN C1DBEI 
HAUPTTEIL LAsc21 478 G0TD 98 EBBFAI 
m. — Zu — 480 "una Telefonliste 
tac1aı Format: Name ‚Nummer L3DA&I 
ehl: " ‚a$:a$=LOWER$ (a5) [699AJ 481 DATA Hitech ,‚889/392289 [Ea121 
100 IF as="" THEN as=bs [953AJ 470 DATA Datex P,289/228730 EC41EI 
185 b$=a$ tBircı S@@ da=2:DIM nam$(da):DIM tel$(da):RESTO 
11@ IF a$="e" THEN MODE 2:END [5D86] RE 488:FOR a=i1 TO da:READ nam$ (a) ‚te 
115 IF a$="info"THEN G0TO 7a@ L26AEI 1$(a) :NEXT:60T0 98 114881 
12@ IF ASC(a$)=11@ THEN a=VAL (RIGHT$(as, 51@ FOR a=1 TO darPRINT USING"##"3a;:PRI 
LEN(a$)-1))za$=tel$(a) 122DA1 NT") "inam$(a) ‚tel$(a) :NEXT:G0T0 90 LCEBEI 
125 IF a$="io" THEN PRINT"Ein/Ausgabedat 522 "seen Help — Funktion 
ei bestimmen":60T0 1200 . 150923 CCAACI 
13@ IF a$="era" THEN INPUT"filename ";na 521 CLS:CLS #1:WINDOW SWAP 1,8: LA7FC1 
m$: |ERA, @nam$:G0TO 98 [SB6C3 525 PRINT"<Z>FUNKTIONEN 196981 
135 IF ABS(ÄSC(a$)-53)<& THEN 225 LFD92] 53@ PRINT:PRINT"Enter<&>Wahlwiederholung 
148 IF a$="c"THEN CAT:SOTO 98 [7EEBI LEIBAI 
144 IF a$="puffer" THEN INPUT "Wieviele 534 PRINT"d<7>Dialog [DSFEI 
Bytes ";by:by=by+pa: adr=base+4: G0SUB 536 PRINT"dI<#>Dialog mit Down Load t8S1E] 
17@0:G0T0 98 L7ABEI 548 PRINT"s<15>Daten saven EDB481 
145 IF a$="w" THEN CALL &BB4E:MODE 2:607 545 PRINT"ESEI2 Text abschicken von Disc 
0 98 t45021 [2556] 
158 IF a$="s" THEN INPUT"filename ";nans 55@ PRINT"1<13)Daten laden [DcBAI 
:OPENOUT nam$:CALL base+&21:CLOSEQUT 551 PRINT"halb<12>Halbduplex [52941 
:POKE base+&4,8:POKE base+&5,8:60T0 552 PRINT"voll<1@>Vollduplex L1EZEI 
9a L7DEAI 553 PRINT"1fon/lfoff<4>linefeed nach CR< 
155 IF a$="p" THEN INPUT "Parameter eing 2>ja oder nein 197821 
eben: ";par$:50T0 1388 L3EE81 555 PRINT"r<13>Puffer lesen [C93E1 
156 IF a$=®r" THEN INPUT "Puffer lesen. S&@ PRINT"telX5>Telefon: -Verzeichnis LF&Sa] 
Ab Eyte ";by$:G070 1508 12B7A1 565 PRINT":<1&>-abschalten (=auflegen) LICE®I 
157 IF a$="voll" THEN dus=" Fullduplex": 378 PRINT"n{1&>-Id fuer Nummer eingeben L[B4ECI 
POKE base+&1QF ‚&24:60T0 98 161621 576 PRINT"i0212>Ein/Ausgabeeinheit defin 
158 IF as="halb" THEN dus=" Halfduplex": ieren L46D61 
POKE base+&1@F,&21:60T0 98 133621 588 PRINT"info<1@>Informationen [BF&2] 
159 IF a$="filter" THEN INPUT "Mit welch 585 PRINT"puffer; #ferzeiger verbiege 
em Byte soll gefiltert werden ";by:P n L117C] 
OKE base+&57,by:G0T0 98 LF&6821 587 ERINTIHSISBHELP £794C1 
168 IF a$="zeig"'THEN INPUT"filename "zn 598 PRINT"CZ1S>CAT CBC9@] 
ans: PRINT"Searching for ";namsDPERT 595 PRINT"p<13>Parameter aendern LaF491 
N_nam$:G0T0 488 TC6BA1 596 PRINT"w<13>Warmstart LZAFEI 
161 IF a$="lfon" THEN 1f=1B:POKE base+&6 &0® PRINT"e<13>Ende E2DCCI 
2,18:6070 9@ TBaC21 61@ WINDOW SWAP 1,@:LOCATE 1,25:80T0 98 L[D&D21 
162 IF as="1foff" THEN 1=B:POKE base+ks 620 OUT &F&FF ‚@:G0T0 98 CBsACI 
2,2:60T0 98 L&BBCI TBB "sunnunnniucueeeneene INFO 187741 
165 IF a$="]" THEN INPUT"filename ";nams 7@1 frei=PEEK (base+&4) +256*PEEK (base+&5) 
:PRINT"Searching for ";nam$:POKE bas -pa L4E7@1 
S+&CQ,&CF:OPENIN nam$:CALL base+&D&: 782 PRINT:PRINT" Informationen: ":PRINT [9656] 
CLOSEIN:POKE base+&C9,&C6:6070 98  LDEEAI 71@ PRINT"Bytes im Puffer: ";frei 141921 
178 IF a$="tel"THEN G0T0 518 [13E@] 71& PRINT"Bytes frei: "pg-frei LAFBB] 
175 IF a$="i" THEN GOTO 988 217783 717 PRINT"Himem: ";HIMEM CC4aA] 
188 IF a$="h" THEN G0TO 528 LAlsAaı 718 PRINT"Puffergroesse "jpg [92461 
189 IF a$="td" THEN 'INPUT"filename ";nam 719 PRINT"Parameter:" LE2DAI 
$:PRINT"Searching for ";nam$:G60T0 87 72® PRINT bd3" baud Senderate [79881 
® LFD@21 721 PRINT bd2;" baud Empfangsrate L14EA] 
198 IF a$="d" THEN POKE base+&09,&C4:G05 723 PRINT dat;" Datenbits [E97A1 
UB 14@@:PRINT:GOTO 98 L7B3A1 724 PRINT " "zpar$(par+1)3" Paritaet LAS2EI 
195 IF a$="dl" THEN POKE base+&C®,ECF: IN 725 PRINT " "jstbit$(stbit+1)5" Stopbit( 
PUT "Filename";nam$:OPENOUT nams: adr =) LF@IAI 
=base+4:by=pa:GOSUB 17@2:G0SUB 1408: 726 PRINT DUs Laa52] 
CALL base+&21:CLOSEOQUT:PRINT:G0TO 98 738 60T0 98 LE@FBI 
LiDec3 87@ OPENIN nam$:POKE base+&17,@:CALL bas 
220 G0T0 98 [DDEBI S+28:POKE base+&17 ,&F@: CLÖSEIN:GOTO 
205 "em  Auflegen, Abheben 92 [88861 
LBA9B] 1882 PRINT"GFehlerG" ‚ERR,ERL:RESUME 98 [70901 
286 QUT &F6FF,1&:FOR 1=1 TO S@@:NEXT [76363 1208 'xasserannaneneter Ein / Ausgabe be 
287 OUT SFAFF,@:FOR 1=1 TO 1200: NEXT 137201 stimmen LE7361 
207 'xuunurekeeees  Waehlen [B4E4] 12@1 PRINT:PRINT"1-Drive A [96261 
21@ PRINT CHRS(1S)5CHRS(11); "Nummer: "3a 121® PRINT"Z-Drive B LAEICI 
83 "C27>" 149821 122@ PRINT"S-Tape speedwrite 1 164561 
220 FÜR z=1 TO LEN (a$):c=ASC(MIDS(a$,z, 1258 PRINT"4-Tape speedwrite 2 647503 
19) LEB6S1 124@ INPUT a:IF a=1 THEN !DISC:!A ELSE I 
230 IF c<48 OR c>57 THEN GOTO 268 eSF7AI F a=2_THEN !DISC:!B ELSE IF a=3 THE 
248 c=c-48: IF c=@ THEN c=18 LE@F6] N !TAPE:speedwrite 1 ELSE IF a=4 TH 
25@ GOSUB sa@ [53041 EN_!TAPE:POKE &B3D1,2:POKE %B8D2,%1 
26@ NEXT [64ER] 7 ELSE PRINT"Nichts veraendert 123143 
278 G0T0 98 LAAF&I 125@ 60T0 9@ 127541 
280 GOSUB 1498:60T0 90 LAC361 1308 'runuskaeneeneee Parameter eingeb 
300 "sau Nummer Waehlen CIABCI en L44BE] 
385 FOR a=i TO c EC6ABI 1581 IF par$="&ni" THEN dat=B:par=@:stbi 
312 FOR 1=1 TO 49 COCCAI t=8:60T0 1588 1548C1 
32@ NEXT [73E8] 131@ IF par$="8n2" THEN dat=B:par=@:stbi 
338 QUT &FAFF,16:° Port c von t=2:6070 1388 C1B121 
8255 Bit 4=high (Relai oeffnen) £DFDCI 132@ IF par$="7n1" THEN dat=7:par=@:stbi 
Ha FORTI=1 70738 le Listing 1. DFÜ mit einem eigenen Programm 


WU HONERSHELTERWORLD COM 


um Organisations-Dia- 

ime, Flußdiagramme, 
Zogos, technische Zeich- 
ungen, Schaubilder, 
Satinenentwürfe und jede nur erdenkliche Art von Linien- und 
"Formgrafiken zu entwerfen. Jeder Bestandteil Ihrer Zeichnung 
enn auf vielfältige Weise durch Farben und Schraffuren 
Bervorgehoben werden. 


‚Die Fähigkeiten auf einen Blick: 
Erstellung beliebiger Zeichnungen 
 vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, 
Kreisbögen, Polygone und Linien 
freie Wahl der Gestaltungselemente wie Farben, Muster und 
Schriftarten 
Vergrößerungen und Ausschnittdarstellungen 
Teile einer Zeichnung können kopiert, verschoben oder 
gelöscht werden 
% Grafiken können gespeichert, geplottet oder gedruckt werden 
% einfache Bedienung durch Menüauswahl 


‚Hardwarevoraussetzungen: 

DR Draw läuft auf Jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem 
Ser zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder 
Bioter ausgegeben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen 
‚Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 74704. 


(Diese Markt & Technik-Software-Produkte 
rallten Sie in den Computer-Abteilungen 
Se Warenhäuser, bei Ihrem 
Domputerfachhändler, im Buchhandel oder 
‚Srekt beim Verlag gegen Vorauskasse. 


oe. 
Schneider 


Professionelle Grafikprogramme 
für Schneider CPC 6128 + Joyce 


DR Graph: 
Präsentationsgrafiken 
mit professionellem 
Niveau. 

DR Graph ist ein interakti- 
ves Softwarepaket, mit 
dem Sie Ihren Mikro- 
computer zur Erstellung 
von Geschäftsgrafiken und Text-Charts verwenden können. 


Die Fähigkeiten auf einen Blick: 

@ Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Gra- 
fiken, Strich-Histogramme, Punkte-Grafiken und Text-Grafiken 

@ freie Wahl der Gestaltungselemente wie Beschriftungen, Titel- 
zeilen, Legenden, Farben, Schriftarten und Ränder 

@ frei wählbare Skalierung 

@ variable Linien- und Balkenbreite 
Schnittstelle zu anderen Programmen 

® beliebig positionierbare Anmerkungen 

@ Grafiken können gespeichert, geplottet oder gedruckt werden 

® einfache Bedienung durch Menüauswahl 


Hardwarevoraussetzungen: 

DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit 
einem oder zwei Diskettenlaufwerken, Die Grafiken können auf jedem Drucker 
‚oder Plotter ausgegeben werden, für den ein GSX-Treiber verfügbar ist, Dazu 
zählen Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 7470A. 
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a HOMEcomPUTERWORLD. COM 


— Zee  — 
— = — 
t=2:60T0 1388 tEFQA1 33 FOR b=1 TO 9:READ a CBaABı 
1322 IF_par$="7n2" THEN dat=7:par=@:stbi 34 OUT csio,a [5DB41 
t=2:60T0 1388 [F114J 35 NEXT [B6BEI 
1324 IF par$="?" THEN GOTO 1688 LE19EI 36 DATA &18,4,&c4,3,&01,5,&68,1,8 14074] 
1526 IF par$<>"?e" THEN PRINT "Nichts ge 20 'aunnneeekne ETE Init sr [6161 
andert":60T0 98 1F226] 41 RESTORE 45 L@D&4] 
1338 PRINT"Parameter selber eingeben'<2> 42 FOR b=1 TO @:READ ctc,a L795AJ 
Zurueck mit ENTER" L714A1 43 OUT ctc, L76CC1 
1334 INPUT"Welchen Offset";a$:IF a T 44 NEXT [CSBEI 
HEN GOTO 9@ ELSE !BASE,2,@h: adr=h+V 45 DATA [BA46] 
ALta$) 13338] 7@ LOAD"mc.bin" ‚base+&@ [86043 
1336 INPUT"Daten";a$ C9BDAI 1388 OUT csio,4:0UT csio,&4@+par- (par>1) 
1348 IF a$="" THEN GOTO_ 98 L489C3 +(stbit+1)#4 1D2841 
1345 by=VAL(a$): IF d>255 THEN GOSUB 1798 1381 QUT csio,5:QUT csio, (dat-5)x32+48 L[A6SCH 
6070 1334 13D341 1382 OUT csio,3:QUT csio, (dat-5)#64+1 EDC36] 
135@ POKE adr ,by:G0T0 1334 L72A83 1383 OUT cte,?:0UT etc ,Axdb#13 [4174] 
1480 CALL base+&EB:CALL baset&8:CALL bas 1384 OUT ctc+1,7:0UT ctc+1,4"xdb2#13:G0T 
S+&F1:RETURN [13421 0 90 12F421 
1508 IF by$="" THEN by=PEEK (base+&6) +25& 1688 INPUT "Sendebaudrate ,1,2<2>(1208 
*PEEK (base+&7) ELSE by=VAL(by$)+pa L2CDEI 3@@, 75)"jassIF asch"" Fi IF ABS 
1518 CALL base+&SB ‚by:PRINT"Angehalten b (ASCIa$)-49)<2 THEN a=VAL (a$) ıxbd=( 
X$ (PEEK (base+&6) +25 a*2)+1ıbd=4" (2-a)*75:ELSE BOTO 168 
ase+&7)-pa,4):G0TO 98 Lar6@J ® ceD18J 
1630 jatenbits (5-8) "jasıIF ascp" 1618 INPUT _"Empfangsrate B,1,2<2>(1208, 
" THEN a=ASC(a$)-48: IF a>4 AND a<9 SO, 75)"jası IF ascy"" IF ABS( 
THEN dat=a ELSE S0T0 1638 taB7AI ASCla$)-49)<2 THEN a=VAL (a$) ıxbd2=( 
1648 INPUT "Paritaet<3>®,1,2<2>(keine, u a*2)+1:bd2=4" (2-a)*75:ELSE GOTO 16 
ngerade, gerad zIF a$<>"" THEN 18 137381 
F ABS(ASC(a$)-49)<2 THEN par=VALt Listing 4. 
a$) ELSE G0T0 1648 LaFCEI 
TH ERSR IR a80r HHER Ir ABSTAS una Enaranenenassee (A284 
* . - ader von ° GE 
Clas) -49)<2 THEN stbit=VAL (as) ELSE 1Z Aka [1C88] 
1660 6010 10 a 105 ° EDEB&] 
184 DATA 4800,00,30,FF,7B,00,30,00,00,1A9@ L99CE] 
1708 POKE adr+1,INT(by/256) :POKE adr ‚by- 1@5 DATA 4888,CD,297,BB,30,06,FE,@7,C8,73B2 L49A4] 
INT (by/256) #256: RETURN 162221 106 DATA SBIBSCDSEBSSCHCD,ED.9C,10,F0,4248 L6Si6ı 
rd „19, 7,18, 4 CDBI 
Listing 1. DFÜ mit einem eigenen Programm 108 DATA 4020,E7,24,80,9C,CD,98,9C,CD,7531 LS7CAI 
BR Bern Maar FE 
15 "4 TEX, AMSTI -Schni +84 ,9C, »2B,EE,7D,B9, BBCA] 
Ban TED ze u K1aEzı 111 DATA 4038,28,EA,C9,DD,6E,00,DD)66,SCDC L2F@@) 
22 MODE 2:b$="h":bd=300: bd2=3@B:dat e 112 DATA 4840,01,CD,89,BB,30,07,CD,06,3968 LACS4] 
radıhfcelıstbite@sesinsurnDDsdeieeebA 115 DATA 4848, BB,FE,@9,22,86,9C,C8,CD,621D [35D8@] 
3 . 114 DATA 4858,98,9C,23,CD,58,7C,1B,E9,6259 LEF9CI 
DE: bane-u9CBBı h-Or Nonsuchre (1 7) unuffs 115 DATA 4058,E6,FF,FE,@D,2@,05,CD,5A,5384 L[7AC8] 
=CHR$ (19) :DIM par$(3):DIM stbit$(3):d 116 DATA AB6B,BBSE/BA!FE,20.D2!SABRISEE7 ERBIGI 
use" Fullduplax":pa=&Sa0ßı pg=2>1ötban 117 DATA 4868,E5,21,73,9C,85,6F ,7E,E1,78E9 L[79BB] 
«-i-paı1lf=® f 13558) 118 DATA 4870,C3,54,BB,20,91,00,03,00,4086E [82001 
31 !SETSIO,bd,bd2,hfc,dat,par,stbit EFFEBI 119 DATA 4978,00,06,87,08,29,0A,0B,8C,B19A [8896] 
78 _LOAD"mc.bin",ba: [29023 128 DATA 4069,2D0,20,20,12,00,00,00,00,0780 [49521 
722 PRINT " Hardware Flow Control "j:IF 121 DATA 4888,00,00,00,00,00,00,00,00,088® LEEICI 
hfc=@ THEN PRINT"aus" ELSE PRINT"an" 122 DATA 4990,00,00,00,02,20,00,00,00,0008 [23181 
EDFAEI 123 DATA 4998,@0,00,0®,E5,CD,F7,9C,7E,@AA2 [1196] 
1388 !SETSIO,bd,bd2,hfc,dat,par,stbit:GO 124 DATA 4BAB,CD,F9,9C,E1,C9,F5,C5,E5,41A3 [86181 
To 98 casAası 125 DATA 4BAB,2A,84,9C,CD,F7,9C,77,CD,@EBB LCFSB] 
1608 INPUT "Sendebaudrate "zjas:IF asc)"" 126 DATA 48B0,F9,9C,23,22,84,9C,3F ,ED,SF@3 L[C@B2] 
THEN bd=VAL (as) (B4921 127 DATA 40B8,48,82,9C,ED,42,7C,BS,CC,3A1& LSBE6) 
1618 INPUT "Ei fangsrate<2>";as: IF ascy" 128 DATA 48C8,C6,9C,E1,C1,F1,C9,CD,F1,51F7 [iF16] 
" THEN bapzynP (as) LaF841 129 DATA 42C8,9C,CD,21,9C,CD,EB,9C,2A,7476 [E33] 
Listing 2 130 DATA 40D8,00,9C,22,84,9C,C9,24,04,2494 [BAS®] 
g2. 151 DATA 48D8,9C,CD,8@,BC,30,09,CD,AS,&61B [F&E6] 
= | Sees 
. i au i ,84,9C,C9,3E,11,CD,FB,9C LOcFA] 
22 MoDE zusgnchrsbdesagebazengrdmtzerna | 134 DATA ABFBIEB/SE ISJCH-FB.0C/CH 9.8145 EDIBZ] 
& p 135 DATA 4@F8,00,C9,00,18,@2,18,13,F5,3363 L2AFEI 
r=B: stbit=B:dsio=&FBEF: base=%9C98: h=® 148 DATA 4120,9C,CD,58,9C,C9,08,00,88,77CB L?D6A] 
:xon$=CHR$ (17) 1xoff$=CHR$ (19) :DIM par 1A1 DATA MENDER "2° ...* 22 nu t89C@1 
$(5):DIM stbit#(5)sdus=" Fullduplex 142 adr=&40@0:zeile=184:MEMORY adr-i [B9@4] 
pa=&3Q00: pg=2"16+base-1-pa:1f=® L[@O2EB] 143 READ d$: IF d$="#ENDE«"THEN 154 [248E] 
1 "wm SID Init ae [67383 CAB1@] 
32 RESTORE 36 [E1641 [0266] 
33 FOR b=1_ TO 12:READ CSIO,A [18681 = VAL ("Er ta) 12944] 
34 OUT WFB@@+cSio,a [81121 147 POKE adr ‚aradr=adr +1 (D62@3 
35 NEXT [BABEI 148 pr=pr#2: IF pr>65535 THEN pr=pr-65535___ [SBABI 
36 DATA keB,6,&e0,3,&e1,255,%88,1,%&20,26 149 pr=UNT(pr)XDR asIF pr<® THEN pr=pr+6553 
„&e8,2,%00,26,%08,7,%00,%33,Lec ‚LBB,% & 152881 
ed,1’kee,i tccss1 15@ NEXT i L7BFCI 
78 LOAD me.bi + (8604) 151 READ pr$:pr2=VAL("&"+pr&):1IF pr2<® THEN 
138@ OUT &F8E8,7:0UT &FBEB,xbd+xbd2#16:0 & ee Ds CBD8B1 
UT &FBEC, (par+1)*2+ (stbit+1)*8+(B-d 2 1 B Den PR! = Pruefsummenfehler 
at) *32+128: 6070 9@ 133941 ER TE, en 
160® INPUT "Sendebaudrate ®,1,2<2>(1208, ER Be 
300, 75)"ja$: IF asc>"" THEN IF ABS 5 ae ’ 
(ASCla$)-49)<2 THEN a=VAL (a$) ıxbd=( Listing 5. 
a*2)+1:bd=4"(2-a)*75:ELSE GOTO 168 
@ \ 18018] 136 DATA 4108,01,DD,FA,ED,78,E6,84,28,2628 LAE9®1 
161® INPUT "Empfangsrate 8,1,2<2>(120@ 137 DATA 4188,FA,BE,DC,F1,ED,79,CD,21,60D27 L9FiC9 
300, 75)";a: F asc>" IF ABS C 158 DATA 4118,9D,C9,@1,DD,FA,ED,78,E6,7542 L9FECI 
ASC(a$)-49)<2 THEN a=VAL (a$) ıxbd2=( 139 DATA 4118,81,C8,BE,DC,ED,78,CD,A5,3937 [1iBEB1 
a*2)+1:bd2=4* (2-a)*75:ELSE GOTO 16 Listing 6 
18 137381 = 
ii " 156 DATA 4180,81,E5,F8,ED,78,E6,84,28,2848 LEDsEI 
in eng a ze 137 DATA 41@8,FA,GE,F4,F1,ED,79,CD,21,6827 LSBEAI 
158 DATA 4118,9D,C9,81,E5,F8,ED,78,E5,76D2 [DAEBI 
15 "fuer gene RS232C-Schnittstellen [81181 139 DATA 4118,01,C8,@E,F4,ED,78,CD,A5,3BB7 L&@FEI 
22 MODE 2:b$="h":bd=3@0:bd2=3@8: dat=B:pa Listing 7. 
r=B: stbit=@: dsio-&FBE4:csio=&FBES:cte 
rec ECLOrIDIN Hans {Sy aDın aeitst 136 DATA 4188,01,EE,F8,ED,78,E4,88,28,2BAB LE: 3 
$=CHR$ (19) :DIM par$(3):DIM stbit$( „@1,EE,F8,ED,78,E6,88,28, -6B0 
3 ju$: Fullduplek":pa=& 5008: pg=2"16 137 DATA 4188,FA,BE,EF,F1,ED,79,CD,21,6B47 [BC241 
*base-1-pa:lf=® LF&SESI 138 DATA 4118,9D,C9,21,ED,F8,ED,78,E6,7652 L[6EEB1 
31 'auuneaunenaneeeee SIO Init rer 167381 139 DATA 4118,8@,C8,@E,EF,ED,78,CD,A5,7A87 [19201 
32 RESTORE 36 TE1641 Listing 8. 
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orsicht - Feind von rechts! Das 
kleine Männchen rast mit unge- ritzj e@ 
heuerlicher Geschwindigkeit 


auf unsern Held in der Mitte des Bild- 
schirms zu. Und dabei nähern sich von 
oben noch zwei fliegende Untertassen 
- ganz zu schweigen von den Wogen 
des turkistanischen Meers auf Xylon. 

Je mehr Bewegung auf dem Bild- 
schirm, desto besser ist ein Spiel. Soft- 
ware wirkt um Längen professioneller, 
wenn die Bildausgabe nur Bruchteile 
einer Sekunde dauert. Bei den 
Schneider-Computern der CPC-Serie 
wird der Bildschirm bei der Zeichenaus- 
gabe mitsehr komplexen undlleistungs- 
fähigen Betriebssystemroutinen ange- 
sprochen. Diese sind dadurch natürlich 
sehrlang - und dementsprechendlang- 
sam. Die meisten Konkurrenzprodukte 
unterscheiden zwischen einem Text- 
und einem Grafikmodus. Bei Schneider 
gibt es nur den Grafikmodus. Jeder ein- 
zelne Buchstabe und jedes Grafikzei- 
chen wird als Punktmuster in den Bild- 
schirm geschrieben. Dabei wird unter 
anderem auf Windows und Farben 
geachtet, zwischen zu druckenden und 
Steuerzeichen unterschieden und was 
der Dinge mehr sind. Ferner sind alle 
Routinen so geschrieben, daß sie in 
allen Bildschirmmodi gleichermaßen 
arbeiten. 

Alle Programme, die eine direkte An- 
steuerung des Bildschirms verlangen, 
laufen deshalb auf einem Schneider- 
Computer sehr langsam ab. Wer sich 
bereits einmal daran versucht hat, ein 
Spiel mit viel Bewegung auf dem 
Schneider zu realisieren, der weiß da- 
von ein Lied zu singen. Ganz schlimm 
wird es, wenn Sie versuchen, Zeichen 
direkt vom Bildschirm zu lesen 
(beispielsweise beim 664/6128 mit 
COPYCHRS$). Mit den hier vorgestell- 
ten Sprite-Routinen lösen sich viele 
Programmierprobleme wie von selbst. 

Zunächst wird das verwendete 
Sprite-Konzept vorgestellt. Ein Sprite 
istein 8x8 Punkte großer Bildschirmbe- 
reich und entspricht damit im Modus 1 
genau einem Zeichen. Da in diesem 
Modus jeder Punkt auf dem Bildschirm 
durch zwei Bit dargestellt wird, braucht 
man für ein Sprite 128 (=8x8x2) Bit 
Speicherplatz (Bild 1). Die gleiche 
Struktur haben alle Buchstaben, die im 
Modus 1 auf den Bildschirm gebracht 
werden. Das Betriebssystem geht da- 
bei von einer 8x8-Schablone für jedes 
Zeichen aus. Diese Schablone wird je 
nach Schriftfarbe in das entsprechende 
Bit-Muster für die Bildschirmausga- 
be umgerechnet. Zudem wird aber 
jedesmal auch noch die effektive 
Adresse des Zeichens im Video-RAM 
aus der X- und Y-Position des Cursors 
bestimmt. Das kostet ebenfalls viel 
Rechenzeit. 


Sprites 


Nur wenige Bytes Maschinen- 
code erlauben extrem schnelle 
Bildschirmausgaben. Da haben 
sogar die Sprites des Commo- 
dore 64 das Nachsehen. 


Bei unseren Sprite-Routinen verzich- 
ten wir auf alle diese rechenintensiven 
Vorgänge. Die Anweisung erwartet das 
fertige Bitmuster aus 16 Byte. Diese 
werden mit einer sehr kurzen und daher 
extrem schnellen Routine direkt in den 
Bildspeicher geschrieben. 

Im Modus 1 gibtes 1000 Zeichen auf 
dem Bildschirm (40x25), somit auch 
1000 erlaubte Sprite-Positionen. 
‚Sprites können also nur an solche Posi- 
tionen geschrieben werden, an denen 
beidernormalen Textausgabe Buchsta- 
ben erscheinen. Inder Praxisist das nur 
ein kleiner Nachteil. 

Die Steuerung der Sprites erfolgt mit 
den zwei Kommandos PUT und GET. 
Beide sind sehr ähnlich aufgebaut. 
Listing 1 zeigt den Assembler-Quell- 
code der beiden Routinen. Listing 2 ist 
das gleiche Programm als Basic-Lader. 
Das Maschinencode-Programm ist voll 
relokatibel, das heißt, es darf unverän- 
dert an jede beliebige RAM-Adresse 
gestellt werden. Bewußt wurden PUT 
und GET nicht als RSX-Anweisungen 
konzipiert. RSX-Aufrufe sind ver- 
gleichsweise langsam, da das Basic bei 
jedem RSX zuerst alle angeschlosse- 
nen ROMs nach dem Befehl durch- 


1.Byie 2 Bye 
inke Häfte des Zeichens _ rechte Häfte des Zeichens 
io [-ToT T T To T ai 
T T al ai 
mc (lol I Ill | Elze 
1 jalmetalel | 
imk2 | 17 ° el get 
| 1 1 EB 
ma | fı 1] | [ein] 
Farben T5 LI] 
asdem [1 
Büsschim | 111 | 
[1 | 
2 1 | 
I | 
EI! | 
I 
Bild 1. So ist ein Zeichen 
im Modus 1 aufgebaut 


ORG 


#A000 
;voll relokatibel ! 
;Sprungvektoren 
IR PUT 
IR GET 
;Sprite von Bildschirm lesen 
;Aufruf: CALL GET,SereenAdr, @Sprite$ 
GET:CP 2;zwei Parameter? 
RET  NZ;nein, zurueck 
ıD H,(IX+1) ;Stringdeser. 
ıD 1,(1X+0) 
ıD A,(HL) ;Laenge 
cp 16 ;kein Sprite? 
RET NZ;dann zurueck 
mc HL 
ı E,(HL) ;Spriteadresse 
m HL 
ıD D,(HL) 
ıD H, (IX+3) ;SereenAdr 
1D 1, (1%62) 
ADD ;effektive Adr. 
ıD 
AMD 7% ktur 
OR #C0;Video-RaM 
ıD HA 
ıD BC, #800;Zeilendif?. 
ıD A,8;Zaehler 
GET1:1DI ;zwei Byte 
ıDı ;holen 
ADD  HL,BC;naechste Zeile 
INC  BC;BC korrigieren 
Inc BC 
DEC _ A;Zeichen fertig 
IR NZ,GET1;nein, noch nicht 
RET saber jetzt 


;Sprite auf Bildschirm ausgeben 


‚Aufruf: 


PUT:CP 
RET 


;sch 


CALL PUT,SereenAdr, @Sprite$ 


2;zwei Parameter? 
NZ;nein 

H,(IX#1) 
1,(IX+0) 

A,(HL) ;Laenge 

16 ;Sprite? 
NZ;nein, zurueck 


;Stringdeser. 


;Spriteadr. 


;ScreenAdr 


HL,HL;effektive 
A,H;Videoadresse 
7;berechnen 
#C0;Video-RAM 

HA 

BC, #800; Zeilendiff. 


‚hreiben 
DE,HL 
HL,BO;naechste Zeile 
BC;BC korrigieren 
BC 
A;fertig? 
NZ,PUT1;noch nicht 

;0K 


Listing 1. Der Assemblercode 


für GET und PUT 


Me, Jomecomeut 


53 


sucht. Unser Aufruf soll aber möglichst 
wenig Zeit brauchen. Der Aufruf über 
CALL ist genauso komfortabel - voraus- 
gesetzt, man definiert gleich zu Anfang 
die Variablen PUT und GET als Start- 
adresse beziehungsweise Start- 
adresse plus 2. 

Um vom Basic-Programm aus be- 
quem mit den Sprites zu arbeiten, holen 
sich die Maschinencode-Programme 
PUT und GET die Sprite-Daten aus dem 
Speicherbereich der Stringvariablen. 
Mit anderen Worten: Sprites werden in 
Strings gespeichert. Jeder Sprite-String 
muß exakt eine Länge von 16 Byte 
haben. Solch ein String muß deshalb 
von dem Programm definiert werden, 
bevor es zum Aufruf der Sprite-Routi- 
nen kommt. Da die Information für die 
Sprites reine Bit-Muster sind, lassen 
sich solche Sprite-Strings mit der 
PRINT-Anweisung nicht auf dem Bild- 
schirm ausgeben. 

Beim Aufruf von PUT und GET müs- 
sen die Ausgabeadresse und die 
Adresse des Sprite-Strings angegeben 
werden. Die Ausgabeadresse ist ein- 
fach die Nummer des Zeichens auf dem 
Bildschirm im Modus 1 (Bild 2). Die 
Adresse des Sprite-Strings wird durch 
den Operator »@« gewonnen. Um bei- 
spielsweise das Sprite X$ an den 
Anfang der zweiten Bildschirmzeile 
(also an Position 40) zu schreiben, 
müssen Sie in Ihr Programm »CALL 
PUT,40,@X$« schreiben. Um das erste 
Zeichen der letzten Zeile aus dem Bild- 
schirm in einen Sprite-String mit dem 
Namen HILF$ zu lesen, geben Sie 
»CALL GET,960,@HILF$« ein. 

Ein paar Dinge beachten Sie bitte bei 
der Arbeit mit den Sprites: 


DRHEDMEIRIEIE 


EIEJEIEIEIEIEIEIEZEIEN 


IE 


ENERERIEMENENEN 


sw 


T 1 


Il I I 
Ialaz pafzal I I 


[sa aa aa rar aaa ers lera 


eegeen 


Bild 2. 1000 Bildschirmplätze für unsere Sprites 


- Der Bildschirm darf nicht gescrollt 
werden 

- Wenn die PUT- oder GET-Befehle feh- 
lerhaft sind, wird die Sprite-Routine 
‚ohne irgendwelche Aktionen beendet. 
- Die Sprite-Routinen sind für den Bild- 
schirmmodus 1 ausgelegt. 

Im Listing 3 finden Sie ein Unterpro- 
gramm in Basic, das Sprites aus DATA- 
Zeilen erzeugt. Die ersten Zeilen zeigen 
dabei gleich ein Demonstrationspro- 
gramm zum Einsatz von Sprites. Der 
Sprite-Generator wird mit »GOSUB 
60000« aufgerufen, nachdem der 
DATA-Zeiger mittels »RESTORE« auf die 
gewünschte Zeile gesetzt wurde. 
Jeweils 8 DATA-Zeilen zu je 8 Zeichen 
definieren ein Sprite. Die Ziffern 0, 1, 2 


und 3 innerhalb einer solchen Zeile ste- 
hen für die vier im Modus 1 erlaubten 
Farben. Statt der Null ist auch ein Leer- 
zeichen (Space) zulässig. Die Basic- 
Routine erzeugt aus den DATA-Anga- 
ben die Sprite-Binärwerte und spei- 
chert den entsprechenden Sprite in der 
Variablen SPRITE$. 

Da sich mit GET nicht nur Original- 
Sprites, sondern beliebige Zeichen aus 
dem Bildschirm in einen Sprite-String 
einlesen lassen, ist es sehr einfach, 
jedes Zeichen des Schneider-Zeichen- 
satzes in ein Sprite zu verwandeln. 
Hierzu dient beispielsweise das Pro- 
gramm aus Listing 4. 


(Anne Everts/hg) 


1909 "nn [S1D4] 100 REM Sprite-Deme LESBCI 
181 '* SPRITE.DAT - DATA-Lader von 'CPC’ * L@FSCI 119 REM ——— [72441 
192 LASDEI 120 ren [Sc2E1 
103 ' EDEB&I 138 IF PEEK(&ABBB) <>24, THEN MEMORY LAFFF 
184 DATA Er er. Enass, :LOAD"Sj ABaD [F@18] 
@1,DD,6E,00, 7E,FE,1 5921 148 DEFINT DR SLADOR: get =LABB2: MODE 
3,56,23,56,DD,66,03,603B [53461 1:2$="bitte warten !":PRINT z# c214C1 
eseeze | | m En 
7, 1 a 
10 DATA Aasarraich era ea marährantgers came) | | 128 line migroomune veseı 
5319 [4996] 
111 DATA AQS8,DD,&E,00,7E,FE,10,C0,23,74F5 L[BEBBI N en 
112 DATA AB40,5E,23,56,DD,66,83,DD,6E,2238 [C2841 : ES | Dad 
113 DATA AQ48,02,29,7C,E6,87,F6,00,67,0847 LFE7AI 198 RESTORE 1120: GOSUB 60890: x2%=sprites 
114 DATA AQSQ,Q1,00,08,.3E,@8,EB,ED,AB,G@F6 LEE7@I »PRINT TAB(1@)3;z B ESFB6] 
115 DATA AQ58,ED,AB)EB}29,03,@3,3D,20,433E 208 RESTORE 1230:G0SUB 60R@B:x3$=sprites 
11& DATA AQ&Q,FA,C9,00,53,50,20,20,20,4F10 L[BIF2I PRINT TAB(1S) 32% LBSB6] 
117 DATA »ENDE« [74061 210 REM [652E1 
118 adr=&AB@®: zeile=104:MEMORY adr-i [4124] 228 REM Hilfs-Strings zum Lesen des Hint 
119 READ d$: IF d$="#ENDE#"THEN 138 LE2881 ergrundes in Sprites definieren 15781 
128 pr=®. C5F@41 230 [63321 
121 FOR i=1 TO 8 L2ESAI 2480 h1$=SPACE$ (16) :h2$=h1$:h3s=h2$:delay 
123 Pole adr ‚aradrmadret. Eoaıa3 2uu ca Krane 
adr „as adr=adr+ 
124 pr=pr®2: IF pr>65535 THEN pr=pr-65535___ [DF941 N ee a LT 
ER RLIELIRETTRETEN RE SB ETHEN pe pes60nS 27@ REM Sprite nach rechts bewegen [92281 
en en 280 REM [783C1 
BEER SERE rue LIE Pe SCHIEN = a a nei Wr SsCALL put,i+1,@xS$:RE es: 
pr2=pr 24. Er ir 
zo ee “ ent M Sprite schreiben 1c0321 
In Zeilenpzuilerstep > “T esa1sı sı@ CALL get,it2,@hss:FOR kei TO delayıN 
129 zeileszeile+1:6070 119 L1AsAI TEcAaı 
138 SAVE"SPRITE.BIN" ‚B,&AQ@0,%61 LCBFEI 328 ALL put ,i „@hi$:hi$=h2$:h2$=h3$ £[54DC] 
131 PRINT d$zEND [73F61 33@ NEXT [57EAJ 
Listing 2. Der Basic-Lader für unsere Sprites Listing 3. Eine Demonstration der Sprites 


348 CALL get,i-2,eh3$ [BSA4] 599791 REM — Er [79481 
35@ REM [&D38] 59972 REM Unterprogramm zum erzeugen von 
360 REM Sprite nach links bewegen [12583 Sprites aus Datazeilen LF4621 
37@ REM [SF3CI 59993 REM Aufruf: RESTORE nn:GOSUB 2800 
388 FOR i=158 TO 128 STEP-1 T6B6C1 L9FDa2 
390 CALL put,i,@x3$:CALL put,i+1,@x2$:RE 59974 REM kehrt zurueck mit Spritedaten 
M Sprite schreiben [#17 751 in Sprites L7F7C1 
488 CALL get,i-1,@h3$:FOR TO delay:N 59995 REM intern benutzte Variablen: EF2981 
EXT T68A6] 5997976 REM x#,r$,b1#,b2#,ch$,i,j,k LCAF8] 
418 CALL put,i+i1 ,@hi$:hi$=h2$:h2$=h3$ 17294] 599797 REM [BES6] 
420 NEXT [DZEAI &QG0@ sprite$="":FOR k=1 TO B:READ r$ıx$ 
430 G0T0 29@ [6656] =BIN$ (8,16) LF6921 
1000 REM [288A) sauın =MID$(r$,i,1)zIF ec 
1910 REM Sprite x1$ CAS741 “ar TeBaRı 
1020 REM L1ABEI 68028 IF ch$<"@" OR ch$>"3" THEN ERROR 5 
103@ DATA "1KZ>11< C1D2A] 11721 
1048 DATA ICFAEI saasa BIN$ (VAL (ch$) „2) :b2$=RIGHT& (b1 
19058 DATA [8098] bi$=LEFT$(b1$,1) L[4BE8] 
1960 DATA [25E23 60040 MID$(x$,5,1)=b1$:MID$ (x$, j+4,1)=b2 
1078 DATA [2CE41 +17 IF THEN j=7 L9E261 
1888 DATA TABFEI saa5a sprite: prite$s+CHR$ (VAL ("&X" 
1890 DATA {DESB] +LEFT$ (x$,8) ) ) +CHR$ (VAL ("EX HRIGHT 
1100 DATA "1<3>1 L1C26] &{x#,B))) NEXT [DB1EI 
1118 REM L198E] 60B6B RETURN L[SCFB1 
112@ REM Sprite x2# LIFFAI 
ee Ben Listing 3. Eine Demonstration der Sprites (Schluß) 
1158 DATA 112251 [6452] 
116@ DATA 11 3 tBC7AI 
1178 DATA 11 [DAE&] 
118@ DATA 11 sareeı 
2 na an [674A3 18 IF PEEK(&98@@) <> 24 THEN MEMORY &BFF 
1218 DATA 11 [882A] F:LOAD"SPRITE.BIN“ ‚29000 [74081 
1220 REM [3E921 2@ DEFINT A-Z: PUT=%9B80: GET=PUT+2 [D36@1 
1238 REM Spı [87aBı 3@ INPUT "Zeichen-Nummer: " ‚ZN EFDDBI 
1248 REM [10961 40 MODE 1:PRINT CHR$(ZN);}:REM Zeichen ob 
125@ DATA epzecı en links einschreiben CDascı 
1240 DATA 119561 5® SPR$=SPACE$(16):REM 16 Bytes langen S 
127@ DATA [78901 tring erzeugen CCD4@1 
128@ DATA [C1E2I &@ CALL GET,@,@SPR$:REM Sprite einlesen L[F656] 
1298 DATA [4BE4] 78 FOR I=1 TO 999:REM Beispiel... LF79@] 
1308 DATA L7A9B1 8@ CALL PUT,I,@SPR& [2661 
1318 DATA TIB4E] 70 NEXT LC59@1 
132@ DATA CD&CBJ 
BITTE REN Lzar6] Listing 4. Jedes Zeichen ist ein Sprite 
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puterbereich, 
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DO$3.2 und DOS Plus 
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Der ewige Wettstreit 


Ob Sie den Schriftverkehr Ihrer 
Firma abwickeln wollen, oder 
nur gelegentlich einen privaten 
Brief schreiben, stellt ganz 
unterschiedliche Anforderun- 
gen an eine Textverarbeitung. 
Wir sagen Ihnen was die wich- 
tigsten Programme leisten. 


ie Be- und Verarbeitung von 

Texten ist eine klassische An- 

wendung für Computer. So ist 
es kein Wunder, daß die Softwarehäu- 
ser viel Zeit und Geld in dieses Gebiet 
investieren, um leistungsfähige Text- 
verarbeitungsprogramme zu entwik- 
keln. Wir vergleichen für Sie aus diesem 
Angebot fünf Programme, die eine 
bedeutende Marktstellung erreicht 
haben. Hier die Kandidaten kurz vorge- 
stellt: 

»Wordstar« erreichte einst auf Perso- 
nal Computern (damals noch 8-Bit- 
Maschinen) die weiteste Verbreitung. 
Es ist berühmt für seine hohe Lei- 
stungsfähigkeit und berüchtigtfür seine 
komplizierte Bedienung. 

»Tasword« von Tasman ist das Word- 
star des kleinen Mannes mit Heimcom- 
puter. In der Bedienungähneltes Word- 
star, eine Befehlskompatibilität besteht 
allerdings nicht. 

Das Textverarbeitungssystem »Star- 
Texter« des Sybex-Verlags verwendet 
eine Mischung aus Menüs und Tasten- 
befehlen. Es tut sich durch einige prak- 
tische Besonderheiten hervor. 

»Star-Writere stammt von Star- 
Division und versucht, Pull-down- 
Menüs und Fenster in die Textverarbei- 
tung zu integrieren. Der Versuch ist 
zwar lobenswert, kränkelt jedoch an 
der Verarbeitungsgeschwindigkeit des 
CPC. 

Das Programm »Textomat« von Data- 
Becker setzt konsequent auf Menü- 
steuerung. Dies hat zwar für Neulinge 
den Vorteil einer einfachen Bedienung, 
»alte Hasen« hingegen hält es auf. 


Wordstar 
antiquiert? 


Wordstar ist der Oldie unter den Text- 
verarbeitungsprogrammen. Es ist 
schon seit einigen Jahren auf dem 
Markt. Es stellt sich die Frage, ob es mit 
modernen Systemen noch mithalten 
kann. 

Den amerikanischen Hersteller Mi- 


cro-Pro stellen jedoch die Verkaufszah- 
len von Wordstar immer noch zufrieden. 
Mehr als eine Million Exemplare wurden 
insgesamt verkauft. Ein Vielfaches die- 
ser Zahl ist zudem als Raubkopie unter- 
wegs, da Wordstar keinen Kopier- 
schutz besitzt. 

Vor 11/2 Jahren kostete Wordstar 
noch über 1000 Mark. Jetzt wird es in 
Versionen für die Schneider CPOs, 
schon für 199 Mark angeboten. Diese 
(überfällige) Preiskorrektur ist natürlich 
für den Käufer sehr angenehm und ver- 
hilft dem Programm auch unter den 
Heimanwendern zu einer beachtlichen 
Popularität. 

Wordstar arbeitet unter CP/M. Dieses 
Betriebssystem erlebt seit einiger Zeit 
eine neue Blüte, denn Schneider liefert 
es kostenlos zum ersten Laufwerk für 
denCPC 464, undim Lieferumfang des 
CPC 664/6128 ist es sogar mit enthal- 
ten. CP/M ist weitgehendgenormt. Dies 
bezieht sich jedoch nicht auf das Dis- 
kettenformat und die Wege zur Bild- 
schirmansteuerung. So muß sich der 
Käufer bei Wordstar zwischen der 
Anpassung auf CP/M 2.2 für den CPC 
464/664 und auf CP/M Plus für den 
CPC 6128 entscheiden. Außerdem 
wird Wordstar auf 3-Zoll-Disketten und 
im Vortex-Format (5 1/4 Zoll) zu jeweils 
199 Mark geliefert. 

Was läßt sich nun konkret mit Word- 
star anstellen? Die Antwort von 
Wordstar-Fans: Praktisch alles! Es gibt 
kein anderes Textverarbeitungssystem 
für 8-Bit-Computer, das in der Lei- 
stungsfähigkeit auch nur annähernd an 
Wordstar heranreicht. 

Neben der Cursorsteuerung über die 
Pfeiltasten können Sie mit 
<CTRL+W> und <CTRL+Z> den 
Bildschirminhalt unter dem Cursor 
durchlaufen lassen. Seitenweises Blät- 
tern ist ebenso möglich wie der Sprung 
an Dateianfang und Dateiende. Weitere 
Zielpunkte des Cursors sind Blockan- 
fang, Blockende, Zeilenanfang und Zei- 
lenende, die oberste und unterste Bild- 
schirmzeile, der nächste Tabulatorstop 
sowie das Wort links und rechts des 
Cursors. 

Die Eigenschaften, die alle Textverar- 
beitungsprogramme beherrschen, zum 
Beispiel das Einfügen und Löschen von 
Zeilen, Block- und Dateibefehle, sind für 
Wordstar selbstverständlich. Interes- 
sant sind Funktionen wie Wortumbruch 
am Zeilenende (auf Wunsch abschalt- 
bar), wählbarer Blocksatz, der auch auf 
dem Bildschirm dargestellt wird, und 
die automatische Trennhilfe für Wörter 
am Zeilenende. Diese Trennhilfe funk- 


tioniert trotz des amerikanischen Algo- 
rithmus erstaunlich gut - Treffsicherheit 
bis zu 90 Prozent! 

Sobald es ans Ausdrucken von Tex- 
ten geht, zeigt Wordstar auch in diesem 
Bereich seine Fähigkeiten. Es kennt 
Druckerbefehle, die direkt in den Text 
geschrieben werden. So legt ».PL« die 
Seitenlänge fest, und ».PA« bewirkt 
einen neuen Seitenanfang. Die Druck- 
routine läßt am oberen und unteren 
Rand eines Blattes drei Zeilen frei. Mit 
den Punktbefehlen ».MT« (Margin At 
Top) und ».MB« (Margin At Bottom) kön- 
nen Sie die Größe des Randes verän- 
dern. 


Mit dem Drucker 
per Du 


Tippen Sie größere Texte wie 
Berichte, Doktorarbeiten oder lange 
Briefe ein, werden Sie auf eine Seiten- 
numerierung nicht verzichten wollen. 
Wordstar bietet Kopf- oder Fußzeilen 
mit blanken Seitennummern oder Num- 
mern in Texte eingebettet (beispiels- 
weise »- Seite 23-«). Wenn Sie ein Buch 
schreiben wollen, druckt Wordstar die 
Seitenzahlen abwechselnd an den lin- 
ken oder rechten Rand, 

Über die Leistungsfähigkeit von 
Wordstar ließe sich noch vielschreiben, 
doch es stellt sich die Frage, ob Word- 
star bei dieser Funktionsvielfalt noch 
einfach zu bedienen ist. Und hier zeigt 
sich die andere Seite der Medaille: 
Wordstar hat den zweifelhaften Ruf, 
eines der schwierigsten Textpro- 
gramme auf dem Markt zu sein. Auch 
wenn das etwas übertrieben ist, steckt 
darin doch ein wahrer Kern. Viele Funk- 
tionen bedeutet natürlich viele Tasten- 
kombinationen, um diese Funktionen 
aufzurufen. Viele der Tastenkombina- 
tionen sind aber einfach kryptisch. 
Warum rückt zum Beispiel 
<CTRL+0> + <G> einen Absatz 
ein? So liegen viele Funktionen von 
Wordstar brach, weil der Benutzer nicht 
weiß, wie er sie aufrufen soll, und im 
Handbuch will man natürlich auch nicht 
dauernd blättern. 

MicroPro ist sich dieses Problems 
durchaus bewußt. Deshalb bietet Word- 
star Hilfsbildschirme an, die in die obere 
Bildschirmhälfte eingeblendet werden 
und über die einzelnen Kommandos 
einer Befehlsgruppe Auskunft geben. 
Beim Programmstart nimmt das Hilfs- 
menü etwa die Hälfte des Bildschirms 
ein. Weil dadurch aber der Editierbild- 
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schirm recht klein ist, werden die mei- 
sten Anwender nach einer kurzen Ein- 
arbeitungszeit dieses Hauptmenü aus- 
blenden. In der zweiten Hilfsstufe zeigt 
Wordstar nur noch Menüs zu den 
Unterfunktionen an, und dies auch nur, 
wenn der Benutzer bei der Befehlsein- 
gabe zu lange wartet. So paßt sich 
Wordstar automatisch dem Wissens- 
stand an. 

Bei den Wordstar-Versionen für die 
drei CPC-Modelle ist die CP/M-Plus- 
Version besser gelungen. So greift bei- 
spielsweise das Scrolling auf die lei- 
stungsfähigen Bildschirm-Steuerzei- 
chen zurück, die wiederum direkt das 
Betriebssystem aufrufen. Natürlich 
kann man auch mit der CP/M-2.2-Ver- 
sion sinnvoll arbeiten, nur geht eben 
alles deutlich langsamer. 

Wenn man die enorme Leistungsfä- 
higkeit von Wordstar betrachtet, stellt 
sich unweigerlich die Frage, wie ein so 
riesiges Programm im Speicher des 
CPC untergebracht werden kann und 
gleichzeitig noch genügend Platz für 
den Text bleibt. 

Wordstar besteht aus drei Programm- 
teilen, die zusammen eine Länge von 
75 KByte haben. Eigentlich dürfte da 
kein einziges Byte für den zu bearbei- 
tenden Text frei bleiben. Doch hier 
kommt das Disketten-Laufwerk ins 
Spiel. Wordstar arbeitet nämlich mit 
Overlays. Das sind Programmteile, die 
nur bei Bedarf von der Diskette in den 
Speicher geladen werden. Im Speicher 
verbleibt nur ein »Rumpfprogramm« mit 
16 KByte Länge. Wenn Sie eine Pro- 
grammfunktion aufrufen, die selten 
benutzt wird, lädt Wordstar ein Overlay 
und führt die Funktion aus. 


Speichertricks 
mit Overlay 


So bleibt ein großer Teil des Spei- 
chers frei. Allerdings ist der freie Spei- 
cherplatz (TPA) unter CP/M 2.2 aufdem 
CPC mit rund 39 KByte recht knapp 
bemessen. Allzu lange Texte ließen sich 
damit nicht bearbeiten, wenn Wordstar 
nicht noch eine weitere Finesse besit- 
zen würde: Das Programm legt die ein- 
gegebenen Texte nur vorübergehend 
im Arbeitsspeicher ab. Sobald der Spei- 
cher voll ist, sichert Wordstar automa- 
tisch den Text auf Diskette und leert den 
Hauptspeicher. Wenn Sie den Cursor 
durch den Text bewegen, lädt das Pro- 
gramm die jeweils benötigten Teile des 
Textes nach. Aufgrund dieser Technik 
wird die Textlänge nur durch die Disket- 
tenkapazität begrenzt. Bei der 61KByte- 
TPA unter CP/M Plus ist der durch das 
Speichern entstehende Geschwindig- 
keitsverlust geringer, da hier im Haupt- 


speicher mehr Platz für den Text übrig 
bleibt. 

Zwei Einschränkungen betreffen die 
CP/M-2.2-Version von Wordstar: Auf- 
grund des kleinen Speichers sind 
Blockverschiebe-Operationen nur bis 
zu einer Länge von einer Textzeile mög- 
lich. Ein notdürftiger Ausweg besteht 
darin, den Block auf die Diskette zu 
schreiben und an der Zielstelle wieder 
einzulesen. 

Die zweite Beschränkung betrifft das 
Ausdrucken von Dateien während der 
Bearbeitung von Texten. Diese sehr 
nützliche Eigenschaft kann der Benut- 
zer bei der kleinen TPA nicht aufrufen. 
Sobald der CPC jedoch mit einer Spei- 
chererweiterungskarte von Vortex auf- 
gerüstet wird, fallen diese beiden Ein- 
schränkungen weg, und Wordstar 
schwingt sich zu ungeahnten Ge- 
schwindigkeiten auf. 

Weil sämtliche Programmteile von 
Wordstar ständig auf der Arbeitsdis- 
kette stehen müssen, bleiben unter 
AMSDOS nur noch 94 KByte Disket- 
tenkapazität frei. Wordstar legt zusätz- 
lich eine Arbeitskopie und eine 
EDBACKUP-Datei an, so daß die 
94KByte noch durch 3 geteilt werden 
müssen. Bei Verwendung von 3-Zoll- 
Disketten mit 360 KByte Speicherka- 
pazität ist die Textlänge folglich auf 
30000 Zeichen beschränkt. Ändern 
können Sie die Situation durch Benut- 
zung eines zweiten Laufwerks, einer 
RAM-Disk oder über Laufwerke mit 
erhöhter Speicherkapazität. 

Für wen ist Wordstar geeignet? 
Bestimmt nicht für denjenigen, der auf 
großen Bedienungskomfort Wert legt. 
Aber garantiert für jeden, der lange 
Texte bearbeiten muß und eine Vielzahl 
von Editiermöglichkeiten zur Textge- 
staltung benötigt. 

Der britischen Firma Tasman-Soft- 
ware muß man bescheinigen, daß sie 
den richtigen »Riecher« besitzt. Die 
erste Version von Tasword lief noch auf 
dem Sinclair ZX81 (Stichwort: Folienta- 
statur). Erst später wurde das Pro- 
gramm an andere Computer angepaßt, 
die mitdem 8086/88 von Inteloder der 
Z80 von Zilog arbeiten. Sinclair-Spec- 
trum, Memotech MTX, Schneider CPC, 
Joyce und neuerdings sogar IBM-PC 
lautet die Reihenfolge. Tasword ist 
damit das einzige Textverarbeitungs- 
programm, das sowohl auf dem ZX81 
als auch auf dem IBM-PC läuft! 

Neben der englischen Originalver- 
sion für den CPC (69,90 Mark) ist das 
deutsche Tasword-D (99,90 Mark) und 
Tasword-6128 (99 Mark) erhältlich. 
Tasword-6128 läuft ausschließlich auf 
dem CPC-6128 und ist eines der Pro- 
gramme, die auf den erweiterten Spei- 
cher von 128 KByte unter dem 
Betriebssystem Amsdos zugreifen. 


Das Aussehen und die Leistungsfä- 
higkeit von Tasword hat sich von Ver- 
sion zu Version geändert, doch das 
grundsätzliche Konzept ist gleich- 
geblieben. Tasword ist im Editiermodus 
hauptsächlich tastengesteuert. Hier 
ähnelt es in der Arbeitsweise Wordstar. 
Die Tasten sind jedoch anders belegt. 
So formatieren Sie zum Beispiel mit 
<CTRL+J> einen Absatz neu, wäh- 
rend <CTRL+K> eine einzelne Zeile 
umbricht. 

Im Gegensatz zu Wordstar werden 
die Sondertasten des Computers auch 
ohne gesonderte Anpassung in die 
Bedienung integriert. Mit den vier Pfeil- 
tasten bewegen Sie den Cursor. Kom- 
biniert man die Cursortasten mit der 
<Shift>-Taste, so springt der Cursor 
eine Bildschirmseite vor- oder rück- 
wärts, beziehungsweise an den Zei- 
lenanfang oder das Zeilenende. 
<CTRL+1> bewegt den Cursor an 
den Textanfang, und <CTRL+1> an 
das Ende des Textes. 


Komfortabel 
mit Hilfsmenüs 


Ähnlich wie bei Wordstar, ist in der 
oberen Bildschirmhälfte ein Hilfsmenü 
eingeblendet. Es zeigt die wichtigsten 
Tastenkombinationen für Formatieren, 
Löschen, Einfügen und Steuerung des 
Cursors an. Da sich durch das große 
Menü die Arbeitsfläche auf dem Bild- 
schirm stark verkleinert, empfiehlt es 
sich, möglichst bald nach der Einge- 
wöhnung das Menü auszublenden, um 
das Textfenster zu vergrößern. Wenn 
Sie in Schwierigkeiten geraten, können 
‚Sie das Hilfsmenü jederzeit wieder ein- 
schalten. Außerdem erscheint nach 
Drücken von <ESC> ein großes 
Menü, das den gesamten Bildschirm 
einnimmt und durch <ENTER> wie- 
der verschwindet, 

Insgesamt lassen sich fünf verschie- 
dene Hilfsmenüs zusammen mit dem 
Text darstellen. Dabeiistsehr praktisch, 
daß der Benutzer mit den Tasten 
<CTRL+1> und <CTRL+1> inden 
Menütexten nach oben und unten 
scrollen kann. So steht immer der 
gerade benötigte Hilfstext auf dem Bild- 
schirm. Die weiteren Funktionen von 
Tasword entsprechen weitgehend dem 
Standard, der auch von anderen Text- 
verarbeitungsprogrammen eingehalten 
wird. 

Jede Textzeile kann unter Tasword bis 
zu 128 Zeichen umfassen. Da der CPC 
jedoch maximal 80 Zeichen pro Bild- 
schirmzeile darstellt, scrollt Tasword 
den Bildschirm nach links oder rechts. 
Dies geht - besonders im Vergleich zu 
Wordstar - erstaunlich schnell und läßt 
die Tatsache vergessen, daß ein großer 
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Teil von Tasword in Basic geschrieben 
wurde. 

Der Druck auf die <TAB> Taste führt 
dazu, daß der Computer den nächsten 


Tabulatorstop anspringt. <SHIFT+ 
TAB> erlaubt das Setzen und <CTRL+ 
TAB> das Löschen von Tabulatormar- 
ken. <CTRL+X> setztdie Tabulatoren 
auf die Standard-Einstellung zurück. 


Tabulatoren total 


Die jeweils ausgewählten Tabulator- 
stops erscheinen am unteren Rand des 
Bildschirms. In dieser Statuszeile kön- 
nen Sie auch den linken und rechten 
Rand ablesen sowie erkennen, ob der 
Randausgleich, der Wortumbruch, der 
Einfüge-Modus und die Darstellung des 
Seitenumbruchs ein- oder ausgeschal- 
tet sind. Zusätzlich wird die aktuelle 
Position des Cursors in Zeile und Spalte 
angegeben. 

Tasword kann Kopf- und Fußzeilen 
verwalten. Kontrollzeichen für den 
Drucker lassen sich vor dem Aus- 
drucken eingeben. Hier gewinnt Tas- 
word ganz eindeutig gegenüber Word- 
star. Während Wordstar universell an 
alle nur erdenklichen Druckertypen 
anpaßbar ist, und deshalb nur die not- 
dürftigsten Funktionen standardmäßig 
bereithält, arbeitet Tasword bewußt nur 
mit Epson-kompatiblen Druckern. 

Dazu gehören auch Schneider 
NLQ-401, der baugleiche Brother 
M-1009 und das Nachfolgemodell 
Schneider DMP-2000. Hervorhebun- 
gen, Unterstreichungen, Kursivschrift, 
Hoch- und Tiefstellung von Zeichen, 
Schmalschrift, Doppeldruck, Zeilenab- 
stand und eine Vielzahl weiterer 
Druckerfunktionen werden von Tas- 
word unterstützt. 

Ein besonderes Plus ist die Fähigkeit, 
Grafiksymbole aus dem erweiterten 
Zeichensatz desCPC in den Texteinzu- 
binden. So lassen sich auch diejenigen 
Zeichen, deren ASCIl-Code zwischen 
128 und 255 liegt, auf Drucker ausge- 
ben. 

Tasword besitzt eine Software- 
Schnittstelle zum Programm Tasprint, 
das ebenfalls von Tasman-Software 
geschrieben wurde. Tasprint gibt 
Schriftzeichen aus verschiedenen 
Schriftarten als hochauflösende Grafik 
auf den Drucker aus. Die Herstellung 
von Briefen und Einladungen in grafisch 
aufwendigen Schriftarten (zum Beispiel 
Fraktur) ist damit eine leichte Übung. 

Ist ein Text fertig bearbeitet, wird der 
Texteditor verlassen, und zwar mit 
<CTRL+ENTER>. Tasword zeigt 
dann ein Menü an, das Optionen zum 
Drucken des Textes, zum Zugriff auf die 
Diskette und zur Beendigung des Pro- 
gramms anbietet. 
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Will man den Text auf den Drucker 
ausgeben, muß man eine Reihe von 
Fragen zur Formatierung beantworten. 
Dazu zählt die Angabe des gewünsch- 
ten Textausschnitts, des Zeilenab- 
stands und der Anzahl der zu drucken- 
den Kopien. Sie müssen sich entschei- 
den, ob Sie Endlospapier oder einzelne 
Blätter verwenden wollen, ob Kopf- und 
Fußzeilen nötig sind und ob die Seiten 
durchnumeriert werden sollen. 

Um die vorgegebenen Werte der 
Reihe nach zu übernehmen, reicht es 
aus, die <ENTER> Taste zu betätigen. 
Man kann aber auch alle voreingestell- 
ten Angaben auf einmal übernehmen, 
indem man die <COPY >-Taste drückt. 

Alles in allem ist Tasword ein Pro- 
gramm, das eine Vielzahl von Befehlen 
und Funktionen zur Textbearbeitung 
besitzt. Weil der Textbuffer von 13 
KByte in der 64-KByte-Version des 
CPC recht klein ist, lassen sich jedoch 
keine längeren Texte schreiben. (Diese 
Einschränkung gilt natürlich nicht für 
Tasword-6128.) 

Aufgrund des niedrigen Preises ist 
Tasword für alle Anwender ausrei- 
chend, die primär ihre private Korre- 
spondenz mit dem Computer erledigen. 
Für Geschäftsanwendungen ist Tas- 
word jedoch eine Nummer zu klein. 


Star oder 
Sternchen? 


Das Programm »Star-Texter« aus dem 
Sybex-Verlag versteht sich nicht aus- 
schließlich als Textverarbeitungssy- 
stem, sondern erhebt bei einem Preis 
von 85 Mark auch den Anspruch, ein 
Trainingsprogramm zu sein. 

Star-Texter bietet eine neue Form der 
Tastensteuerung an. Es wird nicht wie 
Wordstar und Tasword ausschließlich 
über umständliche Control-Kombina- 
tionen bedient (wenngleich sie vorhan- 
den sind), sondern ist in seiner Bedie- 
nung an das Textverarbeitungspro- 
gramm Word angelehnt. Aus diesem 
Grund sind keine umfangreichen Hilfs- 
bildschirme notwendig. Statt dessen ist 
die wichtigste Taste bei Star-Texter 
<ESC>. Sobald diese Taste gedrückt 
wird, erscheint in der oberen Hälfte des 
Bildschirms das Hauptmenü, das eine 
Bildschirmzeile umfaßt und die Funktio- 
nen »Formate, »Block«, »Suchen«, »Gra- 
fik«, »Drucken«, »Archiv« und »Parame- 
ter« auflistet. 

Die einzelnen Menüpunkte wählen 
Sie durch Angabe des Anfangsbuch- 
stabens. Dabei kann durchaus ein wei- 
teres Menü erscheinen. Dieses Unter- 
menü ist vom Prinzip her genauso auf- 
gebaut und stellt Unterfunktionen zum 
oberen Menüpunkt zu Verfügung. 


In der Editor-Betriebsart erfolgt die 
Cursorsteuerung über die Pfeiltasten. 
Im Gegensatz zu Wordstar läßt sich der 
Cursor über den gesamten Bildschirm 
bewegen, auch auf diejenigen Stellen, 
die noch nicht beschrieben sind - folg- 
lich ein vollwertiger Full-Screen-Editor. 
In Kombination mit der <SHIFT >-Taste 
bewegen die Pfeiltasten den Cursor an 
Anfang oder Ende des Textes bezie- 
hungsweise der Zeile. 

Die <CTRL>-Taste hatin Verbindung 
mit den Pfeiltasten eine ungewöhliche 
Funktion. Mit <CTRL+1>) wird eine 
Zeile gelöscht, und mit <CTRL+!> 
eine Leerzeile eingefügt. z 

Angenehm fällt die hohe Geschwin- 
digkeit auf, mit der Star-Texter die Cur- 
sorbewegungen durchführt. Da macht 
sich bemerkbar, daß Star-Texter voll- 
ständig iin Maschinensprache geschrie- 
ben wurde. 


Öfter mal was Neues 


Die obere Bildschirmzeile: zeigt ein 
Zeilenlineal, das den rechten Rand und 
die vorgewählten Tabulatorpositionen 
markiert. Etwas ungewöhnlich ist die 
Tatsache, daß die Einstellung des rech- 
ten Randes fest ist, die des linken Ran- 
des jedoch nur bis zum nächsten 
Absatz gilt. 

Positiv anzumerken ist eine Markie- 
rung im Zeilenlineal, die auf Höhe des 
Textcursors mitläuft. Dies erleichtert 
das Ablesen der aktuellen Spaltenposi- 
tion. Einen mitlaufenden Cursor istman 
sonst nur von speziellen Textcompu- 
tern her gewöhnt. Die Zeilenposition 
des Cursor wird jedoch inkonsequen- 
terweise als Zahlenwert am unteren 
Bildschirmrand angezeigt. 

Ansonsten offeriert Star-Texter die 
üblichen Befehle zur Textverarbeitung, 
wie Blocksatz, Zeilenumbruch, Trennen 
von Wörtern sowie Suchen und Erset- 
zen von Zeichenfolgen. Daß man auch 
bei der Suche nach einer Zeichenfolge 
eine Ersatz-Zeichenfolge angeben 
muß, macht sich störend bemerkbar. 

Das Druckmenü bietet dem Benutzer 
die Auswahl zwischen »Drucken«, »Lay- 
out« und »Daten mischen«. Unter dem 
letztgenannten Punkt ist eine 
Serienbrief-Option integriert, die Sie 
allerdings nur in Verbindung mit dem 
Programm Star-Datei (ebenfalls von 
Sybex) nutzen können. 

Die Funktion »Layout« ist bei Textver- 
arbeitungsprogrammen für CPCs eine 
lobenswerte Neuheit. Normalerweise 
ist es recht schwierig herauszufinden, 
wie ein Text nach der Ausgabe auf den 
Drucker wirklich aussieht. Dazu kann 
der CPC zu wenige Zeilen auf dem Bild- 
schirm darstellen. Ein Probeausdruck 
istin den meisten Fällen unumgänglich. 
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Das umfassende Microsoft-BASIC- und 
Assembler-Entwicklungspaket enthält: 
© BASIC-Compiler 5.4 (BASCOM) 
BASIC-Interpreter 4.51 (OBASIC) und 
5.21 (MBASIC) 
@ MACRO Assembler (M80) 
LINK Linking Loader (180) 
© CREF Cross-Reference Facility 
(CUEF 80) 
®@LIB Library Manager 
für den effizienten Einsatz kaufmännischer 
und technisch-wissenschaftlicher 
Anwendungen. 


Hardware-Anforderungen für 
Commodore 128/128D: 
Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
‚Schneider-Computt 
CPC 464, 664, 6128 oder Joyce, ein Diskettenlauf 
werk, Betriebssystem CP/M 2.2 oder CP/M Plus. 
Der Interpreter erfordert mindestens 
32 K Speicher, der Compiler 
und der Makroassembler 
mindestens 


rc 
Software 


Pascal 
MIT+ 
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Pascal/MT+ 


Pascal/MT+ ist ein volles ISO-Standard- 
Pascal, das um eine leistungsfähige 
Programmierumgebung für Industrie-, 
Geschäfts- und Ausbildungseinsatz sowie 
Möglichkeiten zur Systemprogrammierung 
erweitert wurde. 


Hardware-Anforderungen für 
Commodore 128/128D: 

ein Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
Schneider-Computer: 

CPC 464 und CPC 664 (mit Speichererweiterung), 
dem CPC 6128 und dem PCW 8256 (Joyce) unter 
CPIM und CP/M Plus. Kompilierte Programme sind 
bei entsprechender Größe, auch auf dem CPC 464 
und CPC 664 ohne Speichererweiterung lauffähig. 
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CBASIC-Compiler 
Der Hochleistungs-BASIC-Compiler für 
Softwareprofis zur Erstellur mmerzieller 
Anwendungen. 

Der CBASIC-Compiler ist ein Compiler, der 
Maschinencode erzeugt und die Program- 
mierung und den Test separater Module 
erlaubt, die später ein komplettes Pro- 
gramm ergeben sollen. Die integrierten 
Grafikmöglichkeiten des CBASIC-Compi- 
lers erlauben die Programmierung viel- 
seitiger Grafikprogramme für eine Vielzahl 
von Anwendungen (nur auf Computern 
mit GSX-Software). 


Hardware-Anforderungen für 

Commodore 128 PC: 

ein Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
Schneider-Computer: 

Der CBASIC-Compiler läuft auf Schneider CPC 464 
mit Diskettenlaufwerk DDI-1, dem CPC 664, dem 
CPC 6128 und dem PCW 8256 (Joyce). Für Grafik- 
Programme wird die GSX-Software benötigt, die nur 
mit dem CPC 6128 und PCW 8256 (Joyce) aus- 
geliefert wird, 
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»Layout« zeigt hingegen ein symboli- 
sches Blatt Papier auf dem Bildschirm. 
Darauf wird jeder Buchstabe durch 
einen Grafikpunkt repräsentiert. So 
wird sehr gut der Eindruck vermittelt, 
wie der Text auf dem Papier aussehen 
wird. 

Das Verhalten von Star-Texter in 
bestimmten Situationen und die 
Standard-Einstellungen legt der Benut- 
zer im Menü über »Parameter«fest. Hier 
werden Werte, wie Zahl der Leerzei- 
chen bei Einrückungen, gewünschter 
Zeichensatz, Zahl der Zeilen pro Seite, 
Zeilenabstand auf dem Drucker sowie 
Abstand der Kopf- und Fußzeilen vom 
übrigen Text eingestellt. Auch die Bild- 
schirmfarben lassen sich den eigenen 
Wünschen anpassen. 

Die einzelnen Werte werden im 
Parameter-Teil nicht durch Eingabe von 
Zahlenwert eingetragen. Statt dessen 
drücken Sie die rechte oder linke Pfeil- 
taste, je nachdem, ob Sie den Wert ver- 
mindern oder erhöhen wollen. Dabei ist 
für alle Eingaben ein Wertebereich von 
0 bis 255 vorgesehen - auch in sol- 
chen Fällen, in denen es nicht sinnvoll 
ist. So ist zum Beispiel die Farbe 64 
genauso schwarz wie die Farbe 0. Und 
was bei der Frage nach Einzelblatt oder 
Endlospapier statt »ja« und »nein« ein 
Zahlenwert zwischen O und 255 
bedeuten soll, mag Geheimnis der Pro- 
grammautoren bleiben. 

Dafür lassen sich die Parameter dau- 
erhaft auf Diskette speichern, so daß 
der Anwender sie nicht nach jedem Pro- 
grammstart neu eingeben muß. Selbst 
Wordstar bietet diese Fähigkeit nicht. 

Nur wenige Textverarbeitungspro- 
gramme können mehrspaltigen Text 
erzeugen. Der Text, den Sie gerade 
lesen, ist zum Beispiel dreispaltig. Star- 
Texter kann immerhin zweispaltigen 
Text bearbeiten. Dieser wird sogar auf 
dem Bildschirm angezeigt. Das Einge- 
ben beziehungsweise Formatieren von 
zweispaltigen Texten mit Star-Texter ist 
jedoch ziemlich aufwendig. 


Grafik im Text 


Star-Texter erlaubt es, Grafiken in 
Texte einzubinden. Allerdings dürfen 
Sie kein komfortables Zeichen- 
Unterprogramm erwarten, mit dem der 
Anwender aufwendige Bilder zeichnen 
undin den Text einfügen kann. Vielmehr 
müssen Sie jedes Grafikzeichen ein- 
zeln als Blockgrafik definieren und 
anschließend die Zeichen zum 
gewünschten Bild zusammensetzen. 

Da Star-Texter umfangreiche Funktio- 
nen zur Druckersteuerung integriert 
hat, müssen Sie das Programm an Ihren 
Drucker anpassen. Dazu befindet sich 


auf der gelieferten Diskette das (unge- 
schützte) Basic-Programm »drucker. 
bas«. Es hat eine ansprechende Bild- 
schirmgestaltung und gestattet dem 
Benutzer, für jede Druckerfunktion eine 
bis zu acht Byte lange Escape-Se- 
quenz anzugeben. 

Bei der Gesamtbeurteilung von Star- 
Texter ist das Urteiletwas gemischt. Auf 
der einen Seite heben sich die hohe 
Arbeitsgeschwindigkeit, die Fähigkeit 
zur Darstellung von Grafiken und zwei- 
spaltigem Text sowie andere kleine 
Annehmlichkeiten hervor. Auf derande- 
ren Seite muß jedoch die teilweise 
inkonsequente Ausführung des Pro- 
gramms (Anzeige der Cursorposition in 
der Zeile, Suchen mit Ersatzwort, 
Parameter-Menü) bemängelt werden. 
Zudem sind verschiedene Funktionen 
so gutauf den Control-Tasten versteckt, 
daß man sie nur mit Mühe wiederfindet. 
Vielleicht fehlte hier etwas Zeit bei der 
Programmentwicklung? Denn daß der 
gute Wille da war, beweist die Pro- 
grammgestaltung eindeutig. 


... und noch 
ein Sternchen 


Das Programm Star-Writer der Firma 
Star-Division ist mit 198 Mark - ebenso 
wie Wordstar - in der gehobenen Preis- 
klasse angesiedelt, was eine gewisse 
Erwartungshaltung beim Testen hervor- 
ruft. Um es gleich vorwegzunehmen, 
die Erwartungen erfüllten sich keines- 
wegs. 

Star-Writer ist in Tüurbo-Pascal 
geschrieben. Das ist an sich kein Nach- 
teil, da das Programm jedoch sehr 
umfangreich ist, müssen ständig 
Overlay-Dateien von der Diskette nach- 
geladen werden. Das kostet Zeit und 
zwingt bei Benutzung eines einzelnen 
Laufwerks zu ständigem Disketten- 
wechsel. 

'Star-Writer geht bei der Benutzerfüh- 
rung einen anderen Weg, als die bisher 
besprochenen Programme. Nach dem 
Start des Programms erscheinen auf 
dem Bildschirm mehrere große Pikto- 
gramme, die die einzelnen Programm- 
teile symbolisieren. 

Eine Schreibmaschine repräsentiert 
den Texteditor, ein Bleistift den inte- 
grierten Grafikeditor und ein Kartei- 
kasten die Adressenverwaltung. Der 
Zeicheneditor wird durch einige um- 
definierte Buchstaben dargestellt, und 
die DFÜ-Routine zur Datenfernübertra- 
gung durch einen Akustikkoppler, der 
an einen schematisierten Rechner 
angeschlossen ist. 

Mit den Pfeiltasten steuern Sie nun 
eine Linie, die vom Mittelpunkt des Bild- 
schirms ausgeht, zum jeweils 


gewünschten Programmteil. Die Wahl 


wird durch Drücken der kleinen 
ENTER-Taste bestätigt. Das Verfahren 
ist zwar etwas verspielt, zeigt sich aber 
als recht zweckmäßig. 

Nach Aufruf des Programmteils Text- 
verarbeitung« wird dieser von Diskette 
nachgeladen. Er listet das Inhaltsver- 
zeichnis der eingelegten Datendiskette 
auf. Die obere Bildschirmzeile zeigt 
ständig den Programmnamen an - eine 
unnötige Platzverschwendung. Ein Zei- 
lenlineal an dieser Stelle wäre wesent- 
lich sinnvoller gewesen. 

In der zweiten Bildschirmzeile stellt 
der Computer eine Menüleiste dar, die 
entfernt an die Leisten von GEM auf 
Atari ST und Schneider PC erinnert. 
Allerdings wird hier mangels Hardware 
kein Pfeil mit einer Maus über den Bild- 
schirm gesteuert. Die Auswahl eines 
Unterprogramms aus der Menüleiste 
erfolgt vielmehr durch Drücken einer 
der Funktionstasten. So ruft beispiels- 
weise die Taste Fi das »Bearbeiten« 
einer Textdatei auf. Hier fällt unange- 
nehm auf, daß man jede Angabe noch 
einmal bestätigen muß. Dadurch lassen 
sich zwar Fehlbedienungen vermeiden, 
doch in der Regel ist die erste Eingabe 
korrekt, so daß das ewige Bestätigen 
den Anwender auf die Dauer nervt und 
zu ärgerlichen Verzögerungen führt. 

Und dann geht es wieder ans Disket- 
tenwechseln. Mehrmals müssen Sie die 
Programmdiskette gegen Datendisket- 
te austauschen, bevor Sie in die eigent- 
liche Textverarbeitung einsteigen. 

Sobald man mit dem Schreiben 
beginnt, zeigt sich ein weiteres Ärger- 
nis: Beischneller Eingabe von Buchsta- 
ben »hängt« die Bildschirmanzeige oft 
bis zu zwanzig Zeichen nach. Hier 
machtsich deutlich bemerkbar, daß das 
Programm nicht in Maschinensprache, 
sondern in einer Hochsprache ge- 
schrieben wurde. Gemächlicheren 
Schreibern fällt dies freilich kaum auf. 

Wenn Sie mit der Funktionstaste 1 
den Menüpunkt »Layout« aufrufen, fin- 
den Sie die Einstellungen für linken und 
rechten Rand, Blocksatz, Zahl der Zei- 
len pro Blatt und Abstand der Kopf- und 
Fußzeilen vom übrigen Text. Seltsam 
ist, daß die untere Bildschirmzeile beim 
Bewegen des Menübalkens in diesem 
Pull-down-Menü entsetzlich flimmert, 
während sie dies bei allen anderen Pull- 
down-Menüs nicht macht. 

Der Befehlsumfang von Star-Writer ist 
recht groß. Alle wichtigen Funktionen 
wie Festlegen von Tabulatoren und Rän- 
dern, Blocksatz, Trennhilfen, Rechnen 
im Text, Kopieren und Löschen von 
Textblöcken sowie Suchen und Erset- 
zen sind vorhanden. Da Star-Writer 
jedoch ausschließlich mit Pull-down- 
Menüs arbeitet, geht die Arbeit an 
einem Text für geübte Schreiber erheb- 
lich langsamer vonstatten als bei einem 


herkömmlichen Textverarbeitungspro- 
‚gramm mit Tastatursteuerung wie Word- 
star, Tasword oder Star-Texter. 

Star-Writer ist das einzige getestete 
Programm, das seitenorientiert arbei- 
tet. Seitenorientiert heißt, sobald Sie 
am Ende einer Textseite angekommen 
sind, wird der bisher eingegebene Text 
gespeichert. Das erfordert wieder 
einen mehrmaligen Diskettenwechsel. 
Wenn dieser Vorgang abgeschlossen 
ist, können Sie die nächste Textseite 
bearbeiten. 

Für Textänderungen am Ende einer 
Seite ist das Konzept der seitenorien- 
tierten Verarbeitung schlichtweg als 
katastrophal zu bezeichnen. Sobald Sie 
mit dem Cursor auf die nächste Seite 
kommen, wird der alte Text gespeichert 
und die nächste Textseite von der Dis- 
kette geladen. Bemerken Sie jetzt erst 
einen Fehler und wollen mit dem Cursor 
auf die alte Seite zurückgehen, muß die 
Seite erst wieder zeitaufwendig gela- 
den werden. Welch ein modernes Text- 
verarbeitungsprogramm arbeitet so 
umständlich? 

Die anderen mitgelieferten Hilfspro- 
gramme, die Sie ebenfalls im Haupt- 
menü von Star-Writer auswählen, sind 
brauchbar, aber keineswegs überra- 
gend. Die Funktion »Grafik« stellt einen 
Briefkopf-Editor bereit, »Zeichen« 
einen Symbol-Editor, und »Adreßver- 
waltung« sowie »DFÜ« sprechen für 
sich. 

Kleinere Schönheitsfehler, die in 
einer neuen Version des Programms 
korrigiert werden sollten, betreffen die 


Die wichtigsten 


Rechtschreibung in einzelnen Pro- 
grammteilen (»Star-Writer«, »Starwri- 
ter«, »Star Writer«e) und die Inkonse- 
quenz, daß manchmal das Drücken 
einer beliebigen Taste akzeptiert wird, 
dann aber wieder nur die kleine Enter- 
Taste erlaubt ist. 

Der Käufer bekommt mit der Pro- 
grammdiskette nicht ein einzelnes 
Handbuch, sondern deren zwei! Dabei 
handelt es sich um das Handbuch für 
die Version 3.0 sowie das Manual zur 
vorigen Programmversion. Das Vorwort 
des neuen Handbuchs begründet die 
doppelte Lieferung lapidar damit, daß 
das neue Handbuch nicht so ausführ- 
lich wie das alte sei. Wenn beim Benut- 
zer noch Fragen offen sind, soller doch 
im alten Handbuch nachschlagen! 


Kein Kopieren 
bei Textomat 


Zusammenfassend gesagt ist es 
positiv zu werten, daß ein Software- 
Hersteller versucht, die Ergebnisse 
moderner Software-Ergonomie (zum 
Beispiel Pull-down-Menüs) in sein Text- 
programm zu integrieren. Da jedoch 
Mängel wie langsame Arbeitsgeschwin- 
digkeit und seitenorientierte Textverar- 
beitung überwiegen, fällt es schwer, für 
dieses Programm eine Empfehlung aus- 
zusprechen. 

sTextomat« von Data-Becker (99 
Mark) ist das einzige Programm im Test, 
das mit Kopierschutz vertrieben wird. 


Das ist bedauerlich, weil dem ehrlichen 
Käufer die Möglichkeit genommen wird, 
Sicherheitskopien der wertvollen Origi- 
naldiskette anzulegen. Für. einen 
Betrag von 20 Mark kann man aller- 
dings von Data-Becker eine Sicher- 
heitskopie - wiederum mit Kopier- 
schutz - anfordern. 

Nach dem Programmstart fordert Tex- 
tomat die Eingabe mehrerer Parameter. 
Der Benutzer muß die gewünschten 
Bildschirmfarben, deutsche oder ame- 
rikanische Tastaturbelegung und den 
Namen für die Druckerparameter-Datei 
wählen. Die Eingabe des aktuellen 
Datums ist nicht zwingend. 

Danach gelangt der Anwender in den 
Schreib-Modus. Im Gegensatz zu den 
anderen getesteten Programmen be- 
legt Textomat die noch nicht beschrie- 
benen Bildschirmpositionen mit Punk- 
ten. Was man nun bevorzugt, ist reine 
Geschmackssache. 

Textomat wurde auf Geschwindigkeit 
getrimmt. Die Zeichenausgabe ist so 
flink, daß selbst Schnellst-Schreiber 
keine Chance haben, die Eingaberou- 
tine zu »überholen«. Besonders im Ver- 
gleich zu Star-Writer fällt die hohe Verar- 
beitungsgeschwindigkeit positiv auf. 
Immerhin handelt es sich bei Textomat 
um eine 24 KByte große Binärdatei, 
also reinen Maschinencode. 

Doch die Programmautoren haben es 
in ihrem Bemühen um hohe Arbeitsge- 
schwindigkeit teilweise auch übertrie- 
ben. So wurden neue Scroll-Routinen 
programmiert, die Textomat anstelle der 
Routinen des Betriebssystems verwen- 


Textverarbeitun ramme 
im Überblick —. 


Programmname bei 464/664 Anbieter | Besonderheiten 
Speicher- 
erweiterung 
erforderlich 
Easy Topword x x 79- | Schneider | = 
Protext x x x x x 79,- | Denisoft | auf Diskette 89,- Mark, 
als ROM-Modul 158,- Mark 
Star-Texter x Bl x x x | 85- | Syoex | Zeichensatz freidefinierbar, 
ze Layout-Funktion 
Star-Writer x gl x x x x x x 198- | Star | Adreßverwaltung, 
Division | DFÜ-Funktion 
Tasword x [ x x | 69,90 | Profisott | - 
Tasword-D x Ei x x | 89,90 | Profisoft | Zeichensatz frei definierbar, 
‚deutsche Version 
Tasword 6128 x x x 99- | Profisoft | Zeichensatz frei definierbar 
Tex Pack u: 5 x x x 198,- | Schneider | mit Adreßverwaltung 
Textomat x x x x 29- |ataBecker| vollständig menügesteuert 
Textverarbeitung | x | x | x x x x 59,- |DataMedia| auf Diskette 69,- Mark 
Wordstar 3.0 x x x x x x 199- | Markta | - 
Technik 
Workwriter Junior x x x x 145,- | Gepo-Soft | IBM-Zeichensatz wird 
unterstützt 
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det. Die neuen Routinen sind zwar aus- 
sprochen schnell, doch der Bild- 
schirm beginnt zu flimmern. Da der 
Benutzer aber auch auf langsames 
Scrollen umschalten kann, entsteht 
dadurch kein Nachteil. 

- Textomat arbeitet menügesteuert. In 
der untersten Bildschirmzeile zeigt es 
die Grundfunktionen »Edite, »Formular«, 
»Ausgabe« und »Dienst« an. Während 
der Texteingabe steht in der obersten 
Bildschirmzeile die Meldung »Schreib- 
Modus. Mit <CTRL+ENTER> 
gelangt man ins Menü. Hier bewegen 
Sie mit den Pfeiltasten einen inversen 
Balken über die angegebenen Menü- 
punkte. Eine Betätigung der ENTER- 
Taste führt die Funktion aus. 

Mit »Edit« rufen Sie ein neues Menü 
für das Einlesen von Dateien, Suchen, 
Löschen von Teilen des Textes und die 
Blockoperationen »Mark«, »Schieb«, 
»Kopier«, »Lösch« und »Speicher« auf. 


»Formular« ist eine Besonderheit von 
Textomat. Für jeden Text läßt sich ein 
Formular anlegen, das die Eigenschaf- 
ten des Textes beschreibt. Rechten 
und linken Rand, Blattlänge, Zeichen- 
dichte, Block- oder Flattersatz, Einzel- 
blattbetrieb und Proportionalschrift legt 
der Anwender in dieser Funktion fest. 


Praktische 
Formular-Funktion 


Über »Ausgabe« rufen Sie die Menü- 
punkte »Zeigen«, »Speichern«, »Druk- 
ken« und »Rundschreiben« auf. Texto- 
mat zählt nicht zu den Programmen, die 
den Text auf dem Bildschirm bereits so 
darstellt wie er auf dem Drucker ausge- 
geben wird, also mit Blocksatz, Tren- 
nungen etc. Statt dessen fügt der 
Benutzer Steuerzeichenin den Textein, 


die das Programm beim Ausdrucken an 
der entsprechenden Stelle zum Druk- 
ker übergibt. Um Probedrucke über- 
flüssig zumachen, führt Ihnen die Funk- 
tion »Zeigen« den Text in etwa so vor, 
wie ihn später der Drucker ausgibt. 

Textomat ist unter den besprochenen 
Programmen das einzige, das neben 
der 80-Zeichen-Darstellung auch im 
40-Zeichen-Modus arbeitet. Dieser 
macht zwar die Eingabe des Textes 
unübersichtlicher, ist aber allen Anwen- 
dern zu empfehlen, die Schwierigkeiten 
haben, auf dem Farbmonitor den Textzu 
lesen. 

Insgesamt gesehen ist Textomat ein 
leistungsfähiges Programm. Im Gegen- 
satz zu Programmen wie Star-Texter ist 
eskonsequentmenügesteuert. Wer die 
Menüsteuerung der Tastensteuerung 
vorzieht und auf hohe Geschwindigkeit 
Wert legt, dem kommt Textomat gerade 
recht. (Martin Kotulla/ma) 


Pascal nach Wahl 


Schon vor langer Zeit führte die 
englische Firma Hisoft den Pas- 
cal-Compiler Pascal80 speziell 
für CP/M-Computer Jetzt 
bietet die neue Version Pascal 
80V2 Turbo-Pascal, dem Star un- 
ter den Pascal-Compilern, Paroli. 


T urbo-Pascal ist seit Jahren unan- 
gefochtener Spitzenreiter unter 
den Pascal-Compilern für die Be- 
triebssysteme CP/M und MS-DOS. 
Neben dem günstigen Preis zeichnen 
die überragenden Leistungsmerkmale, 
wie hohe Geschwindigkeit und komfor- 
table Bedienung, für den Erfolg verant- 
wortlich. Was mag da eine - im Ver- 
gleich zu Borland - winzige Software- 
Firma wie Hisoft dazu veranlaßt haben, 
einen eigenen Pascal-Compiler für 
CP/M auf den Markt zu bringen? Lohnt 
sich das Angebot für den engagierten 
Programmierer? 

Klassische (man könnte auch sagen: 
»altmodische«) Compiler bestehen aus 
mehreren getrennten Programmen. Der 
Programmierer gibt zuerst mit dem Text- 
editor das Programm im Quellcode ein. 
Im nächsten Schritt rufter den Compiler 
auf, der einen Zwischencode produ- 
ziert. Aus diesem Zwischencode er- 
zeugt dann der Linker das lauffähige 
Programm. Das alles läuft natürlich sehr 
umständlich und langsam ab. Beson- 
ders, wenn der Compiler im Quellcode 
einen Fehler findet, entwickelt sich die 


62. HOMESCMPUTERWORLD.COM — — < 


Weiterarbeit recht aufwendig. Dann 
nämlich muß der Editor wieder geladen, 
der Fehler ausgebessert, die Datei ge- 
speichert und der Compiler neu gestar- 
tet werden. 

Hisoft-Pascal80 funktioniert nach 
einem ähnlichen Prinzip. Lediglich der 
Linker (Programmbinder) wird gespart. 
Der Compiler selbst erzeugt die lauf- 
fähigen Dateien. 

Auf der Diskette von Hisoft befindet 
sich auf Seite A die CP/M 2.2-Version 
von Pascal80, die speziell auf den 
Schneider CPC 464 und CPC 664 
zugeschnitten ist. Auf Seite Bfindet der 
Besitzer eines CPC 6128 oder eines 
Joyce die Anpassung an CP/M Plus. 


Pascal 80 
gegen Turbo 


Der Editor heißt ED80.COM und ist 
schon von anderen Compilern von 
Hisoft bekannt. Er ist - ebenso wie der 
Turbo-Pascal-Editor - befehlskompa- 
tibel zum Textverarbeitungssystem 
Wordstar. Natürlich fallen einige zum 
Editieren unnötige Funktionen unter 
den Tisch. Dazu gehören Routinen zum 
Umformatieren von Absätzen, Wortum- 
bruch und Trennhilfen. ED80 arbeitet 
sehr schnell. Im Gegensatz zum Turbo- 
Editor ist allerdings der Bildschirmauf- 
bau unruhiger. So schaltet der Hisoft- 
Editor beim Löschen von Textzeilen mit 
<CTRL+Y> kurzzeitig die Bildaus- 
gabe ab und baut dann den gesamten 


Bildspeicher neu auf. Nützlich erweist 
sich die Anzeige des jeweils letzten 
Befehls und des noch verfügbaren 
Speicherplatzes. 

Der Turbo-Pascal-Editor und ED80 
stammen zwar beide von Wordstar ab, 
wurden aber teilweise in verschiedene 
Richtungen weiterentwickelt. So been- 
det ED80 seine Arbeit nur mit <CTRL 
+K> und <X>, nicht aber mit 
<CTRL+K> und <D>. Beim Editor 
von Borland ist das genau umgekehrt. 

Das automatische Einrücken von Pro- 
grammzeilen, wie es in Pascal wichtig 
ist, wird mit <CTRL+O> und <I> 
eingeschaltet. <CTRL+J> ruft einen 
Hilfstext auf, der alle Tastenkombinatio- 
nen listet. Eine sehr wertvolle Erweite- 
rung gegenüber den üblichen Funktio- 
nen von Wordstar ist das Auffinden 
einer Programmzeile einfach durch 
Angabe ihrer Zeilennummer. 

Mit einigem Erstaunen stellt man fest, 
daß Pascal80 mit zwei Compilern gelie- 
fert wird: HPCOM und HP80.COM. 
HP80 ist die ältere Version vom 30. Mai 
1986. HP ist die erweiterte und drei 
KByte längere Implementation vom 19. 
September 1986. Der »alte« Compiler 
dient nur der Kompatibilität mit älteren 
Pascal80-Quellcodes. 

Compiler der Firma Hisoft verarbeiten 
meist nicht den vollständigen Sprach- 
umfang. So fehlen bei Hisoft-C bei- 
spielsweise die Fließkommazahlen und 
Bit-Felder. Hisoft-Pascal unter Amsdos 
kennt die Datentypen FILE und TEXT 
nicht. Ebenso sind dort variante Re- 
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cords, Prozeduren und Funktionen als 
Parameter unzulässig. 

Die neuere der beiden CP/M-Ver- 
sionen erlaubt variante Records und 
den Zugriff sowohl auf Text- als auch auf 
Binärdateien. Abgesehen davon, daß 
immer noch keine prozeduralen und 
funktionalen Parameter compiliert wer- 
den, erfüllt Pascal80 jetzt den Standard 
von Niklaus Wirth - sogar besser als 
Turbo-Pascal, denn die Standard-Pro- 
zeduren PUT und GET unterstützt Tur- 
bo-Pascal nicht. Was bei einem Compi- 
ler besonders interessiert, ist die Effek- 
tivität beim Übersetzen. Darunter ver- 
steht man die Größe und Geschwin- 
digkeit der erzeugten Datei. Als Bei- 
spiel dient uns das Demonstrationspro- 
gramm »Primes« von der Pascal80- 
Diskette. Es läuft mit einer minimalen 
Änderung (die Compiler-Direktive muß 
aus dem Quelltext entfernt werden) 
auch unter Turbo-Pascal und eignet 
sich damit sehr gut als Vergleichsob- 
jekt. Primes berechnet alle Primzahlen 
zwischen 1 und 20499. Das Programm 
arbeitet mit dem Algorithmus »Sieb des 
Eratosthenes«. 

Pascal80 erzeugt einen Objektcode 
von 6 KByte Länge, Turbo-Pascal hinge- 
gen ein 9 KByte langes Programm. 
Diese Runde gewinnt also eindeutig 
Pascal80. Bei der Laufzeit des erzeug- 
ten Codes hingegen muß es sich 
geschlagen geben. Während der Code 
von Turbo-Pascal in 1,58 Minuten alle 
Primzahlen (einschließlich Ladezeit) fin- 
det, benötigt das gleichwertige Pascal 
80-Programm immerhin 2,44 Minuten. 
Der Name xTurbo« kommt also nicht von 
ungefähr. Allerdings sollte man solche 
Benchmark-Tests nicht überbewerten. 
Denn die meiste Zeit verharren Pro- 
gramme immer noch beim Warten auf 
Benutzereingaben oder bei der Kom- 
munikation mit langsamen Peripherie- 
geräten, wie beispielsweise Disketten- 
laufwerken und Druckern. 

Das Compilieren erfolgt bei beiden 
Pascal-Versionen sehr schnell. Pascal 
80 kann aber nicht direkt im Speicher 
übersetzen. Gegen die speicherresi- 
dente Compilierung von Turbo-Pascal 
geht das Schreiben auf Diskette natür- 
lich sehr langsam. Da Turbo-Pascal 
(besonders bei den kleinen Schneider- 
Modellen) nur wenig Platz für das Pro- 
gramm zur Verfügung stellt, spielt diese 
Einschränkung aber nur eine kleine 
Rolle. 

Pascal80 besitzt neben den Stan- 
dardbefehlen einige zusätzliche vorde- 
finierte Prozeduren und Funktionen. So 
kennt Pascal80 die Funktion ENTIER, 
die der Basic-Funktion INT entspricht. 

Mit INLINE werden Maschinencode- 
Bytes in das Pascal-Programm einge- 
fügt. Erfreulicherweise arbeitet Pascal 
80 auch mit hexadezimalen Zahlen. Im 
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Gegensatz zu Turbo-Pascal werden 
diese nicht mit dem Dollar-Zeichen 
(»$«), sondern mit dem Doppelkreuz 
gekennzeichnet (»#«). Zu den weite- 
ren maschinennahen Erweiterungen 
zählen USER (Aufruf von Maschinen- 
code-Routinen), PEEK, POKE, INP und 
OUT. HALT bricht ein laufendes Pro- 
gramm ab und gibt den Stand des Pro- 
grammzählers auf dem Bildschirm aus. 


CP/M mit Dummy 


PRON lenkt die Bildschirmausgabe 
auf den Drucker um, PROFF macht das 
rückgängig. Diese Technik hat sowohl 
Vor- als auch Nachteile im Vergleich 
zum Turbo-Pascal-Befehl WRITE(LST). 

Turbo-Pascal kennt zum Aufruf des 
CP/M-Betriebssystems die Funktion 
BDOS, die unter gleichem Namen auch 
als Prozedur vorhanden ist: 

Bdos(13); 
A:=Bdos (32); 

In Pascal80 heißt diese Anweisung 
CPM und ist nur als Funktion vorhan- 
den. Gegebenfalls muß ein Dummy- 
Parameter eingefügt werden. Ebenso 
muß etwas umständlich stets der Wert 
des DE-Registers angegeben werden: 
Dummy:=CPM(14,2); 
Dummy:=CPM(13,Dummy) ; 

Weitergehende Befehle wie GOTOXY, 
ERASE, RENAME, FILEPOS oder FILE- 
SIZE unterstützt Pascal80 nicht. 
Ebenso fehlt der Datentyp STRING mit 
allen dazugehörenden Prozeduren und 
Funktionen wie COPY, CONCAT, 
LENGTH und POS. 

Quasi als Entschädigung dafür hält 
die Diskette von Hisoft verschiedene 
Programmbibliotheken bereit, um die 
Grafik der Schneider-Computer anzu- 
sprechen. Für die CPC-Geräte sind die 
Dateien TURTLE2.PAS und TURTLES. 
PAS gedacht, die die auf dem CPC vor- 
handenen ROM-Routinen ausnutzen. 

Ein besonderes Bonbon ist aber die 
Darstellung von GSX-Grafiken. GSX 
heißt »Graphics System Extension« und 
bereichert den BDOS-Befehlsumfang 
um einen Aufruf zur geräteunabhängi- 
gen Grafikausgabe. Damit erscheint 
eine Grafik auf dem Bildschirm genauso 
wie auf dem Drucker oder Plotter. Auch 
der Austausch von Grafiken zwischen 
verschiedenen Computern ist damit 
möglich. GSX arbeitet nur unter CP/M 
Plus und ist deshalb ausschließlich dem 
CPC 6128 und dem Joyce vorbehalten. 

GSX ist zwar langsamer als die Grafik 
über Routinen des Betriebssystems, 
dafür aber ungleich leistungsfähiger. 
So können mit jeweils einem einzigen 
Funktionsaufruf Flächen mit verschie- 
denen Mustern gefüllt oder Vielecke 
gezeichnet werden. 


Am Anfang dieses Artikels wurde 
erwähnt, daß ED80 und HP bezie- 
hungsweise HP80 getrennte Pro- 
gramme sind, und deswegen Hisoft- 
Pascal80 nach dem altmodischen Prin- 
zip getrennter Editierung und Compilie- 
rung arbeitet. Das ist auch richtig. Aller- 
dings besitzt die Version Pascal 80V2 
zusätzlich eine verbesserte Benutzer- 
oberfläche. Sie trägt den Namen 
HPE.COM und macht Pascal80 Turbo- 
Pascal ähnlich. HPE vereint den Editor 
und den Compiler unter einem »ge- 
meinsamen Dach«, 

Ähnlich wie unter Turbo-Pascal ruft 
man durch Drücken einzelner Tasten 
verschiedene Programmteile auf. Das 
Hauptmenü sieht folgendermaßen aus: 


HiSoft Pascal80 Menu Selection 


(S)tart Editing 
(C)ompile 

(R)un 

e(X)ecute 
(Q)uit 


(E)dit File 
(M)ain File 


Den unter Turbo-Pascal im Menü ste- 
henden Punkt »Find Runtime-Error« hat 
Hisoft allerdings unter den Compiler- 
Optionen versteckt - auf daß niemand 
ihn finde. 

So schön der Betriebssystem-Auf- 
satz HPE auch ist, er bleibt als nach- 
trägich »übergestülpt« erkennbar. 
Denn HPE muß den Editor und den 
Compiler immer von der Diskette nach- 
laden. 

Der Vorteil dieser Methode ist, daß 
eine Menge Speicherplatz für das 
Quellprogramm freibleibt. So läßt sich 
auch in der Betriebssystem-Version 
CP/M 2.2 vernünftig mit Pascal80 
arbeiten - was sich wegen Speicher- 
platzmangel von Turbo-Pascal nicht 
behaupten läßt. Der freie RAM-Bereich, 
der beim ED80 rund 30 KByte beträgt, 
macht bei Turbo-Pascal unter CP/M 2.2 
ohne Speichererweiterung nur noch 6 
bis 8 KByte aus - nicht gerade üppig. 


Bevor man anfängt, Programme für 
Turbo-Pascal in Include-Dateien zu zer- 
stückeln, ist die Implementation von 
Pascal80 sinnvoller. 

Das Handbuch von Hisoft mindert 
den alles in allem recht positiven Ein- 
druck von Pascal80 ganz erheblich. 

Es ist (für ein englisches Programm 
natürlich) in englischer Sprache gehal- 
ten. Im Gegensatz zum Turbo-Pascal- 
Handbuch, mit dem man auch Pascal 
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selbst lernen kann, listet es die Sprach- 
elemente nur kurz auf und begnügt sich 
oft sogar mit Syntaxdiagrammen. 

Besonders ärgert das Loseblatt- 
System des Handbuchs, das Hisoft 
dazu verleitet hat, bei jeder neuen 
Compiler-Version lediglich einige 
Ergänzungsseiten beizuheften. So 
erfährt der Leser auf der ersten Seite, 
wie er auf dem Joyce eine Backup-Ko- 
pie der neuesten Pascal80-Version 
erstellen kann. Auf der Rückseite die- 
ses Blattes findet sich der Hinweis, daß 
in der Version vom 30. Mai 1986 die 
Prozedur CHAIN implementiert wurde - 
dabei vertreibt Hisoft längst das Nach- 
folgeprogramm. 

Nachträglich eingefügt wurden auch 
das ausführliche Kapitel über die GSX- 
Grafik und weitere Informationen über 
die - jetzt wirklich neueste - Version 


des Compilers. Ganz hinten im Ordner 
entdeckt man noch einige Einlegeblät- 
ter, die die eigentlich sehr wichtige 
Benutzeroberfläche HPE beschreiben. 

Alles in allem ist die Dokumentation 
kein Meisterwerk. Überarbeitung des 
wirren Konzepts ist dem Benutzer 
zuliebe dringend angeraten. 


Turbo 
oder Pascal80? 


Falls Sie sich trotz der genannten 
Fakten und Meinungen noch nicht für 
einen der beiden Compiler entscheiden 
konnten, lassen Sie uns das Testergeb- 
nis auf einen Nenner bringen. 

Turbo-Pascal ist allen zu empfehlen, 
die genügend freien Speicherplatz 
haben. Das kann entweder eine Spei- 


chererweiterung für CP/M 2.2 sein 
oder das »große« Betriebssystem CP/M 
Plus. Hier kann man es sich durchaus 
leisten, gleichzeitig den Compiler und 
den Editor im Speicher zu halten. Für 
Turbo-Pascal spricht weiter die vielfäl- 
tige Literatur, die von den verschieden- 
sten Verlagen angeboten wird. Hier 
sind andere Pascal-Versionen ganz klar 
im Nachteil. 

Wer hingegen nur über den mageren 
Speicher von CP/M 2.2 auf dem CPC 
464 oder CPC 664 herrschen kann 
und dennoch in Pascal programmieren 
will, für den steht Pascal80V2 ganz 
vorne. Daneben mag noch der Preisvor- 
teil (39,95 Pfund, das sind zirka 120 
Mark für Hisoft-Pascal80V2 gegen- 
über 225 Mark für die billigste Version 
von Turbo-Pascal) den Ausschlag 
geben. (Martin Kotulla/hg) 


Basic-Alternativen 


Auch der Urahn aller Basic-Inter- 
preter, Microsoft-Basic, wird seit 
einiger Zeit in einem Paket mit 
passendem Compiler und As- 
sembler für weniger als 200 
Mark verkauft. Was bietet dieser 
bewährte Interpreter im Ver- 
gleich mit dem Locomotive- 
Basic der Schneider-Computer? 


Basic - selten hat ein Soft- 
wareprodukt den Computer- 
markt so stark beeinflußt und 


unübersehbare Spuren hinterlassen 
wie dieser Basic-Interpreter von Micro- 
soft. Nicht einmal Turbo-Pascal, das 
den Durchbruch für die Programmier- 
sprache Pascal brachte, zeigte eine 
solch nachhaltige Wirkung. Eine ganze 
Generation von Programmierern wuchs 
mit MBasic oder einer seiner zahlrei- 
chen Ableger auf. 

Mitte der siebziger Jahre waren Com- 
puter für viele Menschen einfach nur 
große undurchschaubare hochtechni- 
sche Wunderkisten, vor denen man 
entweder in Ehrfurcht erstarrte oder die 
man ob ihres unheilvollen Wirkens 
bekämpfte. Computer waren in Re- 
chenzentren »eingesperrt« und für Nor- 
malsterbliche nur selten zugänglich. 

Doch langsam aber stetig wuchs die 
Schar der Computerbegeisterten, die 
die »Bastelei« an diesen Maschinen zu 
ihrem Hobby machten. Aufgrund der 
mageren Speicherkapazitäten der klei- 
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nen Brüder der Großrechenanlagen - 
vier KByte waren unvorstellbar viel - 
programmierte man die »Gerätchen« 
meist in Maschinensprache. 

Assemblersprachen setzen aber 
enorme Kenntnisse voraus. Deshalb 
waren bald Interpreter für die Program- 
miersprache Basic, die sich als beson- 
ders leicht erlernbar herausgestellt 
hatte, der »letzte Schrei«. Eine Version 
nannte sich noch verschämt sTiny- 
Basic«, da ihr Sprachumfang recht ma- 
ger war. 


Die Superidee 
des Bill Gates 


Auch ein damals noch Jugendlicher 
namens Bill Gates versuchte sich an 
einem Basic-Interpreter. Und dieser 
war in seiner Zeit so gut, daß er der Vor- 
läufer des heutigen Microsoft-Basic 
wurde. Schon die ersten Versionen von 
MBasic fanden gewaltigen Anklang bei 
Hobbyfreunden und auch professionel- 
len Programmierern. Als logische Kon- 
sequenz seines Erfolges verlegte sich 
Bill Gates ganz auf das Programmieren 
und gründete die Firma Microsoft. Der 
Rest der Geschichte ist wohlbekannt - 
Microsoft wuchs und wuchs. Als sich 
der Computerriese IBM Anfang der 
achtziger Jahre entschied, von Micro- 
soft ein Betriebssystem unter dem 
Namen MS-DOS einzukaufen und auf 
PC-DOS umzutaufen, war der Weg an 
die Spitze nicht mehr aufzuhalten. 


Sieht man sich Programme wie MS- 
Word, MS-Pascal und QuickBasic oder 
das regelmäßig in neuen Versionen 
erscheinende Betriebssystem MS-DOS 
an, versteht man gut, daß für Microsoft 
der Markt der 8-Bit-Computer mit dem 
Betriebssystem CP/M keine Bedeu- 
tung mehr hat. Einfach »begraben« 
wollte man aber den Basic-Veteranen 
MBasic in der CP/M-Version wiederum 
auch nicht. 

Die Konsequenz: MBasic, der 
Assembler Macro-80 und der Basic- 
Compiler Bascom sind als Paket jetzt zu 
einem auch für Hobbyanwender tragba- 
ren Preis erschwinglich. 

Microsoft-Basic ist sicherlich nicht 
das Nonplusultra heutiger Interpreter- 
Technologie. Als typisches CP/M-Basic 
kennt es beispielsweise keine Befehle 
zur direkten Ansteuerung des Bild- 
schirms wie CLS, LOGATE oder WIN- 
DOW - von Grafikbefehlen ganz zu 
schweigen. Allenfalls unterstützt es 
TAB und POS. Man kann aber sowohl 
unter CP/M 2.2 als auch unter CP/M 
Plus über Escape-Sequenzen, die mit 
PRINT an den Bildschirm geschickt 
werden, fast alle bildschirmorientierten 
Befehle und Funktionen nachbilden. So 
ersetzt bei dem Betriebssystem CP/M 
2.2 PRINT CHR$(12) den CLS-Befehl 
völlig. Aber auch auf Feinheiten wie 
einen bildschirmorientierten Editor 
oder zumindest den Copy-Cursor, wie 
beim Schneider-Basic, muß man ver- 
zichten. Der Programmierer muß mit 
EDIT eine Programmzeile in den Editier- 
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puffer holen und dann mit Hilfe ver- 
schiedener Tastenbefehle ändern. Da- 
gegen ist es aber völlig problemlos, die 
Programme mit einem Textverarbei- 
tungsprogramm zu bearbeiten und 
dann unter Basic mit LOAD zu laden. 


Großer 
Sprachumfang 


Microsoft-Basis manchmal auch 
Basic-80 genannt, ist ganz auf kom- 
merzielle und wissenschaftliche An- 
wendung ausgerichtet. Das zeigt sich 
insbesondere daran, daß Berechnun- 
gen sowohl mit einfacher Rechenge- 
nauigkeit (fünf Nachkommastellen) als 
auch mit doppelter durchgeführt wer- 
den können. Dann besitzen Zahlen eine 
Genauigkeit von bis zu 15 Stellen nach 
dem Dezimalpunkt. Ein Komfort, vor 
dem viele neuere Basic-Dialekte pas- 
sen müssen. 

Die MBasic-Funktionen wie SIN, 
COS, LOG und SQR erkennen schon 
am Variablentyp, welche Genauigkeit 
gefordert ist. 

A=SOR(2) 1.41421 
A#=SOR(2) 1.414213538169861 

Zur Umwandlung von Zahlen zwi- 
schen beiden Typen dienen die Funk- 
tionen CDBL und CSNG. Der Datentyp 
Integer ist ebenfalls vorgesehen. Er hat 
immer eine Breite von 16 Bit. 

Sequentielle Dateien werden mit 
OPEN, CLOSE, INPUT#, LINE 
INPUT #, PRINT # und WRITE # bear- 
beitet. Als Besonderheit gegenüber 
dem Schneider-Basic kennt Basic-80 
die Verwaltung von Dateien im Direktzu- 
griffsverfahren. Die dazu notwendigen 
Prozeduren sind aber recht umständ- 
lich zu handhaben. So muß man den 
Aufbau jedes Datensatzes mit FIELD 
definieren. Danach werden Daten mit 
GET gelesen und mit PUT geschrieben. 
Zahlenwerte liest MBasic als Strings 
ein, sie müssen nachträglich explizit mit 
CVI, CVS oder CVD - je nach Zahlentyp 
- in numerische Werte umgesetzt wer- 
den. Beim Schreiben numerischer 
Daten muß dieser Vorgang mit MKI$, 
MKS$ und MKD$ umgekehrt durchge- 
führt werden. Ansonsten entspricht der 
Sprachumfang von MBasic weitgehend 
dem heutigen Basic-Interpreter im 
Heim- und PC-Bereich. 

AUTO, RENUM und EDIT vereinfa- 
chen die Programmeingabe; TRON und 
TROFF helfen bei der Fehlersuche; 
COMMON und CHAIN erlauben die 
Verkettung von Basic-Programmen ein- 
schließlich Übergabe von Variablen- 
werten. Damit dürfen Basic-Programme 
unabhängig vom Speicherbereich so- 
weit anwachsen, wie es die Disketten- 
kapazität zuläßt. 
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Auch CP/M-Standardbefehle wie 
ERA, DIR und REN sind in den Interpre- 
ter eingebaut - allerdings unter ande- 
rem Namen. So gibt FILES das Inhalts- 
verzeichnis der Diskette aus, KILL 
löscht Dateien und NAME-AS benennt 
sie um: 

NAME "DATEI” AS ”OLDFILE” 

Auf der maschinennahen Ebene 
glänzt Microsoft-Basic ebenfalls mit 
einer sehr guten Ausstattung. Maschi- 
nencode-Programme werden entwe- 
der mit CALL oder mit USR aufgerufen. 
Dabei ist die Adresse von USR aller- 
dings vorher mit DEF USR festzulegen. 
PEEK und POKE gehören zum Stan- 
dard eines Basic-Interpreters WAIT, INP 
und OUT zur Behandlung der Prozes- 
sorports hingegen sind außergewöhn- 
lich. 

Auf der Diskette von MBasic finden 
Sie noch den Vorgänger mit dem 
Namen »OBasic«. Warum denn das, fra- 
gen Sie jetzt sicher. OBasic (Basic-80, 
Version 4.51) kennt nur Variablen- 
namen mit maximal zwei Buchstaben 
Länge. Zum Trennen der Befehle muß 
kein Leerzeichen vorhanden sein. 
IFA=3THENPRINT “ENDE”: END 
ist für OBasic damit eine syntaktisch 
korrekte Befehlszeile. MBasic (Version 
5.21 vom 28. Juli 1981) meldet hinge- 
gen einen Fehler. 

Da aber eine Reihe von alten Basic- 
Programmen, zum Beispiel unter Pub- 
lic-Domain, existieren, die keine Leer- 
zeichen zwischen den Befehlen enthal- 
ten, laufen diese unter MBasic nicht. 
Hier kommt OBasic zum Einsatz. Ein 
netter Nebeneffekt: Unter OBasic ste- 
hen fast sieben KByte mehr Speicher- 
platz zur Verfügung als unter MBasic. 


Ein schneller 
Compiler... 


Das interessanteste Programm auf 
der Microsoft-Basic-Diskette ist wohl 
der Compiler. Durch die Kombination 
von Interpreter und Compiler in einem 
Paket ist es möglich, mit dem Interpre- 
ter Programme interaktiv zu entwickeln 
und bis zur völligen Fehlerfreiheit aus- 
zutesten. Später setzt man sie dem 
Compiler BASCOM vor, der daraus lauf- 
fähige CP/M-Dateien erzeugt. Solche 
Programme kann man dann auch an 
andere Computerbesitzer weiterge- 
ben, die kein MBasic besitzen. Die 
Abarbeitungsgeschwindigkeit des com- 
Pilierten Programms ist zudem zirka 
drei- bis zehnmal höher. 

Was ist das Schöne an einem Basic- 
Compiler? Er überträgt ohne große 
Schwierigkeiten ein im Interpreter- 


modus geschriebenes Programm in 
puren Maschinencode. Und daran kran- 
ken ja bekanntlich die meisten Basic- 


Compiler unter Amsdos auf dem 
Schneider. Abgesehen von wirklich fei- 
nen Unterschieden, etwa bei dem inter- 
nen Speicherformat von Variablen oder 
bei den Befehlen EDIT und RENUM in 
compilierten und interpretierten Pro- 
grammen, arbeitet ein MBasic-Pro- 
gramm auch in compilierter Form pro- 
blemlos. Sogar Fließkommazahlen, bei 
denen viele Compiler das Handtuch 
werfen, verarbeitet BASCOM. 


...und ein toller 
Assembler 


Auf der CP/M-Systemdiskette von 
Schneider finden Sie bereits einen 
kompletten Assembler mit dem Namen 
ASM. CP/M Plus besitzt sogar zwei 
Assembler: MAC und RMAC. Doch die 
Programme von Digital Research verar- 
beiten ausschließlich Mnemonics des 
Prozessors Intel-8080. Der Microsoft- 
Assembler Macro-80, kurz M80 ge- 
nannt, läßt sich im Gegensatz dazu mit 
den Assembler-Direktiven ».8080« und 
».280« zwischen beiden Maschinen- 
sprachen umschalten. So kann jeder 
nach seinen Präferenzen programmie- 
ren. 

FerneristM80 vollständig makrofähig 
und erzeugt linkfähigen Code. Dabei 
werden Labels über die Direktiven 
EXTERNAL und PUBLIC auch der 
Außenwelt - sprich anderen Programm- 
teilen - bekanntgemacht. Der Objekt- 
code liegt im Microsoft--REL-Format vor 
und ist damit voll relokatibel. Der Linker 
L8O entscheidet erst über die benutz- 
ten Speicheradressen. 

Zu Macro-80 gehören die beiden Uti- 
lities CREF80.COM und LIB. CREF80 
erzeugt aus dem Assemblercode ein 
Querverweis-Listing. LIB steuert den 
Aufbau und die Verwaltung von Pro- 
grammbibliotheken. MBasic mit 
Macro-80 und Bascom gegen Loco- 
motive-Basic. Welche Kombination ist 
besser: Der moderne Interpreter von 
Locomotive oder das »Relikt« aus den 
siebziger Jahren«? 

Zugegeben, etwas ungewöhnlich ist 
die Kombination von Basic-Interpreter, 
Compiler und Assembler samt Utilities 
schon - aber unheimlich praktisch. Wer 
nur in Basic programmieren will, be- 
nutzt nur MBasic mit Compiler, der 
Maschinensprache-Fan dagegen gibt 
natürlich M80 und L80 den Vorzug. 
Wer Maschinencode-Routinen und 
Basic-Programme kombinieren will, 
schöpft dann alle Programme auf der 
Diskette vollaus. Wer das Mallard-Basic 
auf dem Joyce besitzt, für den ist der 
Compiler besonders interessant. MBa- 
sic ist nämlich eine Untermenge des 
Mallard-Basic. 

(Martin Kotulla/hg) 
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b 
; 


Fixe Daten 


Leistungsfähige Datenverwaltung beginnt erst mit 
dem relativen Zugriff. Doch von Haus aus bieten 
die CPCs solche Fähigkeiten nicht. 


atenverwaltung gehört zu den Dingen, für deren Erle- 

digung der Computer wie geschaffen ist. Er hilft 

Ihnen schnell und präzise, sich dieser Fleißarbeit zu 
entledigen. Ob Sie personenbezogene Daten wie beispiels- 
weise Adressen, Umsätze und Geburtstage speichern wol- 
len oder andere Informationen wie die Musiktitel Ihrer Schall- 
plattensammlung - der Nutzen ist groß. Bei der programm- 
technischen Umsetzung eines solchen Vorhabens stehen 
zwei Verfahren zur Wahl. Die sogenannte sequentielle Verar- 
beitung bringt den Vorteil einer hohen Geschwindigkeit. Ihn 
erkauft man sich jedoch mit kleiner Kapazität. Daher eignet 
sich diese Art der Verarbeitung vor allem für kleinere Daten- 
bestände. Wie der Name schon sagt, erfolgt die Speicherung 
»aufeinanderfolgend«. In der Praxis wirktsich das so aus, daß 
der gesamte Datenbestand einer Datei einmalig in den 
Arbeitsspeicher des Computers geladen wird. Dort lassen 
sich die Daten durch den Benutzer bearbeiten und manipulie- 
ren, bis der Computer auf Kommando sämtliche Daten wie- 
der en bloc auf dem Massenspeichermedium sichert. 

Ganz anders der »relative« Zugriff. Hier befinden sich die 
Daten einer Datei zu keinem Zeitpunkt gemeinsam im RAM. 
Vielmehr steht zur augenblicklichen Bearbeitung stets nur 
ein einziger Datensatz bereit. Der Computer sucht sich also. 
innerhalb der Diskettendatei (aufgrund des nötigen direkten 
Zugriffs ist der Kassettenrecorder als Medium ungeeignet) 
den gewünschten Datensatz und lädt ihn. Nach Bearbeitung 
speichert er ihn sofort wieder, um sich dem nächsten zuzu- 
wenden. Die Vorteile liegen auf der Hand: 

- Die Größe der Datei begrenzt nun nicht mehr der Arbeits- 
speicher des Computers, sondern die viel umfangreichere 
Kapazität der Diskette, 

- Bei Stromausfall, »>Systemabsturz« oder Bedienungsfeh- 
lern ist - wenn überhaupt - mit dem zuletzt bearbeiteten nur 
ein einziger Datensatz verloren. 

- Zum Sortieren braucht man nicht den gesamten 
Speicherinhalt umzuschichten, sondern benutzt die vorhan- 
dene Numerierung zur Bildung eines Index. 

Wer mit seinen Überlegungen zu genau diesen Schlußfol- 
gerungen kommt, erlebt eine herbe Enttäuschung, wenn er 
erfährt, daß sein CPC ihn in seinem Vorhaben, diesen 
Wunsch in die Realität umzusetzen, nicht unterstützt. Im 
Gegenteil, das DOS der ansonsten doch eher leistungsfähi- 
gen 3-Zoll-Diskettenlaufwerke bietet dem Basic- 
Programmierer keine Möglichkeit zum direkten Datenzugriff 
(für Besitzer eines Vortex-Laufwerks gilt die Aussage freilich 


nicht). Und so hilft nur, dem Basic-Programm mit einer eige- 
nen kleinen Maschinencode-Routine hilfreich unter die Arme 
zu greifen. Diese Routine erlaubt mit Hilfe zweier RSX- 
Befehle eben das, wozu unser DOS nicht in der Lage ist. 

Für »Datafine« erfüllt Listing 1 diesen Zweck. Wenn Sie es 
eingegeben und gestartethaben, erzeugt es automatisch auf 
Diskette die Binärdatei »DATAFINE.BIN«. Das Hauptpro- 
gramm (Listing 2) lädt den Maschinencode und bindet die 
RSX-Befehle ein. Da Datafine voll menügesteuert ist, sind 
hier nur ein paar wichtige Ergänzungen zu einzelnen Punkten 
genannt: Bei der ersten Inbetriebnahme wählen Sie bitte 
zunächst einmal den Punkt 1 (Daten eingeben). Dort veran- 
lassen Sie Datafine zur Neuanlage Ihrer Datei. Alle anderen 
Funktionen arbeiten nämlich nur mit bereits bestehenden 
Dateien. Auf die Frage nach der Zahl der Datensätze antwor- 
ten Sie mit Eingabe einer Zahl zwischen 1 und 999. Diese 
Beschränkung auf ein Maximum von 1000 Sätzen erfolgt in 
Zeile 2630. Abhängig von der Diskettenkapazität auf der 
einen Seite und dem Umfang der Datensätze auf der ande- 
ren, lassen sich hier auch größere Werte eintragen. Sie müs- 
sen dann nur ausprobieren, bei welcher Dimension Datafine 
mit einer Fehlermeldung wegen mangelnder Kapazität ab- 
bricht. Natürlich existieren bei diesem ersten Laufauch noch 
keine vordefinierten Eingabemasken. Also legen Sie das 
Bildschirmformat für die spätere Bearbeitung fest. Dazu 
bewegen Sie den Cursor mit den dazu vorgesehenen Tasten. 
An der gewünschten Position geben Sie über die Tastatur 
zuerst die Feldnamen ein. Sie dürfen keinesfalls Leerzeichen 
enthalten und müssen mit dem Doppelpunkt enden. Hinter 
dem Doppelpunkt folgt nach einem Zwischenraum (Leer- 
taste) das Datenfeld. Hier legen Sie mit den beiden Zeichen 
<#> und <$> die Eingabelänge und Art der Daten fest. 
Für alphanumerische (gemischte) Texte wählen Sie das 
<$>, während < # > für rein numerische (Zahlen-)Felder 
steht. Die jeweilige Anzahl der Zeichen bestimmt die Feld- 
länge. 

Name: BEEEFEEETEEETETTTHTTHH 
PIZ: #### 

In unserem Beispiel erlauben wir im Feld »Name« die Ein- 
gabe von 20 Buchstaben oder beliebigen anderen ASOIl- 
Zeichen. Für die Postleitzahl (»PLZ«) akzeptiert der Datafine 
jedoch nur einen Zahlenwert aus maximal vier Ziffern. Beim 
Aufbau Ihrer Maske sind Sie in der Wahl des Formats kaum 
eingeschränkt; Die einzugebende Zahl der Zeichen darf pro 
Datensatz 255 nicht überschreiten, mehr als 20 verschie- 
dene Felder verwaltet die Maske nicht, und Felder dürfen sich 
immer nur über eine Bildschirmzeile erstrecken. Wenn Sie mit 
Ihrem Werk zufrieden sind, leiten Sie mit der Tastenkombina- 
tion <CTRL-E> das Speichern der Maske ein. Dasie in einer 
eigenen Datei gespeichert ist, läßt sich die Maske jederzeit 
verändern oder für andere Dateien verwenden. Nach der 
Maskengestaltung kontrolliert sie der Computer auf Fehler, 
um dann gegebenenfalls in den Editiermodus zurückzukeh- 


= Daten eingeben 
Datei pflegen 
Datei wechseln 
Diskmenue 
Drucker einstellen 
Daten drucken 

- Daten sortieren 

- ENDE 
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ren. Ursachen für solche Fehler können sein: 

- Fehlerhafte Syntax (beispielsweise die Indikatoren »$« 
und »#« innerhalb eines Feldes gemischt oder das Leerzei- 
chen hinter dem Doppelpunkt vergessen). 

- Felder zu groß. 

- Zu viele Felder innerhalb eines Datensatzes. 

Zur Eröffnung neuer Dateien legt Datafine die komplette 
(leere) Datei bereits auf Diskette an, was einige Zeit in 
Anspruch nimmt. Erst danach dürfen Sie mit Eingabe Ihrer 
ersten Daten beginnen. Diesen Modus brechen Sie mit der 
COPY-Taste ab. Der Menüpunkt »Datei pflegen« wird der 
meistgebrauchte, wenn Sie erst einmal alle Daten erfaßt 
haben. Zur Funktion benötigt er auf der Datendiskette minde- 
stens drei Dateien. »NAME.« enthält die gespeicherten 
Daten, die Indexdatei »NAME.IND« dient der Verwaltung der 
Daten, und »NAME.MSK« definiert die Eingabemaske. 

Innerhalb der Dateipflege lassen sich die Daten korrigieren, 
löschen, suchen, anzeigen und drucken. Im Blättermodus 
gelangen Sie durch die Cursor-Steuertasten <Cursor-auf> 
und <Cursor-ab> in den nächsten beziehungsweise vor- 
hergehenden Datensatz. Wollen Sie Korrekturen vorneh- 
men, bringen Sie das invers dargestellte Korrekturfeld mit 
den Cursortasten in Position und drücken dort <ENTER> 
(<RETURN>). Erst dann überschreiben Sie das ge- 
wünschte Feld mit neuen Daten. Die Suche erfolgt mit einem 
höchstens 35 Zeichen langen Suchbegriff undeerstrecktsich 
auf sämtliche Datenfelder. Die zu durchsuchenden Daten- 
sätze lassen sich beschränken. 

Wichtig vor der ersten Druckausgabe ist der Aufruf der 
Druckerinitialisierung, um das genaue Format dafür festzule- 
gen. Das Diskettenmenü umfaßt nützliche Routinen wie den 
Wechsel des Bezugslaufwerks (A oder B) oder das Löschen 
und Umbenennen von Dateien. Aber hier läßt sich auch in 
andere User-Bereiche umschalten, um beispielsweise meh- 
rere kleine Dateien aufeiner Diskette deutlich voneinander zu 
trennen. 

Die Druckerinstallation ist ein wenig aufwendiger, erlaubt 
aber auch eine sehr flexible Anpassung der Druckroutinen an 
die jeweiligen Anforderungen - ob Sie nun Adreßaufkleber, 
Kundenlisten oder nur die Werte Ihrer erfaßten Sammler- 
stücke brauchen. Zuerst wählen Sie aus, zu welchen Feldern 
die Feldnamen mitzudrucken sind. Danach legen Sie für die 
einzelnen Feldinhalte fest, ob, wo und in welcher Reihenfolge 
sie Datafine auf Papier ausgeben soll. Drücken Sie einfach 
<ENTER>, überspringt später die Druckroutine dieses 
Feld. Zur Formatierung des Druckbilds benutzen Sie die 
Cursor-Steuertasten. Ein nach rechts gerichteter Pfeilhängt 
das Feld direkt an das vorhergehende an. Ein abwärts zeigen- 
der Pfeil bewirkt ein Linefeed und damit den Druck in der 
nächsten Zeile. Benutzen Sie die Pfeile mehrfach, bedeutet 
das die entsprechende Zahl von Zeilenvorschüben. 

Für die Sortierung wählen Sie ein beliebiges Feld. Auf gar 
keinen Fall dürfen Sie jemals während eines Sortiervorgangs 
die Diskette aus dem Laufwerk nehmen, denn das zerstört 
Ihre Datei. 

Mit der COPY-Taste beenden Sie die Vorgänge »Drucken«, 
»Sortieren« und »Eingabe« und kehren ins Hauptmenü 
zurück. (Michael Straßer/ja) 


Steckbrief 
Datafine 
CPC 464/664/6128 
Explora/CPC 
Diskette 


Programm: 


Computer: 


Checksummer: 


Datenträger: 
Besonderes: 


arbeitet nur mit Amsdos 


109 [IS LD4T 
181 "=DATAFINE.DAT — DATA-Lader von ‘CPC’* [A986] 
192 LASDEI 


194 DATA AQ@Q,21,@A,AQ,21,22,AB,CD,D1,16CB LC7SE] 
185 DATA AB@B,BC,C9,12,AB,C. 


DATA AQ18,00,00,008,00,00,00,00,00, 2000 
108 DATA AB20,00,00,FC,A6,0A,AB 


12,22, i 
119 DATA AB78,2D,A@,57,C9,FE,98,D2,B4, 3070 
128 DATA AQ8@,AB,21,29,AQ,CB,FE,SA,2A,529E 
a ABBR„AQ,FE,97 28,8 ,21,2A,AQ,7FEB 
AQ7R 'B, 082. 


»2B,CB,SE,2B,| 
123 DATA AB9B,CB,1E,18,EA,2A,2 
124 DATA ABAB,2B,AB,3A,27,AB,CB,SF,S2,3ED@ LAFI 
\2D,AB,SA,2E,AB,FE,00,CA,SD12 
BO ‚BA ,AQ, 37 Mer 37 FEB C9 2 ‚788C 
11 


DATA ABDB,AB,ED,BO,CH? 
132 DATA ABEB,8Q,A1,CD,SA,A 
133 DATA ABEB,21,08,A2,CD,si D,B 
134 DATA AQF@,AG,21,80,A2,CD,5A,A1,C9,44EB 
135 DATA AQFB,SA,2D,AQ,SF,16,00,21,80,07C2 
136 DATA A1@2,A1,19,ED,5B,2F ‚AB, SA, 2E,4D72 
DATA A1BB,AB,AF‚@6,08,C9,CD, 37,AQ,46B2 
138 DATA Ai1@,D@,CD,BE,AB,21,88,A1,CD,4487 
153 DATA ALIB,SA,ALSCD EB, AB,EB,, eD} EB, 14A6 
1,88,A1,CD,61,584F 
1,28,A: 
AB ,JEB,ED,B@,14A6 
721,8@,A2,CD,61,5C63 


„BE,AQ,21,8@0,A2,CD,61,5843 

147 DATA A158,A1,C9,DF,SE,A1,C9,92,D3,7BiB LAMIE] 

148 DATA A168,87,DF,65,A1,C9,68,A1,87,345D 

149 DATA A168,E5,D5,C5,E5,11,08,88,CD,5155 

15@ DATA A178,98,CA,CD,1@,D4,D2,A9,D3,6249 

DATA A178,EB,ES,CD,F3,D9,C3,A6,D3,SF8B 
“ENDE 


POKE adr ‚a:adr=adr+1 
159 pr=pr*2:IF pr>65535 THEN pr=pr-65535 
168 pr=UNT(pr)XOR asIF pr<® THEN pr=pr+6553 

& c 


EDAAI 
161 NEXT i 3808) 
162 READ pr$:pr2=VAL("&"+pr$):IF pr2<@ THEN 
pr2=pr 2465536 LECBCI 
163 IF pr&dpr? THEN PRINT"Pruefsumnenfehler 
in Zeile";zeile:STof CıF14] 
164 zeileszeil&+1:6010 154 [0966] 
165 SAVE"DATAFINE. BIN" ‚B,&AQQ@,&1BQ:END C32FEI 


Listing 1. Ein Basic-Lader erzeugt den Maschinencode der 
RSX-Befehlserweiterung 


10 7 mn c447C1 
2@ : = DATAFINE = [SEF21 
38 " * (c) 1986 by # L2EBAI 
30 ' * ms-Software * EDD&E] 
Sa ' « M. Strasser * (21A4] 
&8 ' * Rottalstr.5 « [5926] 
70 ' *8 Muenchen BB* [CA6A] 
BB L&DBAl 
980° V1.4 vom 6.9.1986 tecbcı 
100 RR 
Erpeen 
* Programm DATAFINE.BIN sc 
hon geladen? #» 
RR 
I ii [777C1 
11@ IF PEEK(LABBB)=%I AND PEEK (KADMI)=LA 
THEN 190 171281 
128 ‘ ** Nein, dann bitte laden ** 
** Ja, dann ab zum Menue 
.r 131901 
138 MEMORY 39999:LOAD "DATAFINE. BIN" 
@0:CALL LABBR:CLOSEIN 1B9738] 


Listing 2. Mit »Datafine« haben Sie Ihre Daten fest im Griff 
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OPENOUT "d" MEMORY HIMEM-1:CLOSEOUT 
DATA CD,68,BB,32,4A,90,09 

RESTORE 158 

FOR n=4@000 TO 40006:READ a$:POKE n, 
VAL ("&"+a$) : NEXT 

SYMBOL 255,136,216,175,152,152,142,1 
‚3@:dinit=@ ” Druckerflag 

DIM feld$(5) „i$(5) ‚a$(5) ‚dr&(3} 
USER, drives= 

DER &: 

G0TO 3768 

Ka 


* Daten eingeben * 
RR 


CLS: korr=1 
PRINTAL,"# 
BR 
PEN 1:PRINTEPRINT" X 1 X in bestehen 
de Datei schreiben":PRINT"J] X 9 X Ne 
ue Datei eroeffnen 

Ins=""sWHILE in$<>"1" AND jns<>"9":j 
N$=INKEY$S: WEND: IF_ins="9" THEN GOSUB 
2450: daz=0: G0T0 280 

GOSUB 3290: IF dat$="" OR er=1 THEN 3 
760 

IF daz<>@ AND daz=anz THEN daz=daz-1 
:G0T0_37@ 

MODE 2:GOSUB SS@B:OPENIN " 
CLS:PRINT#2,"LDatei: ";dat 
"JGroesse: "anz:PRINT#2,"JDaten: ";d 


az 
FOR n=1 TO feld:1=VAL("&"+LEFT$(feld 
$(n) „2) )t=VAL("&"+MID$(feld$ (in) „3,2 
V)zn=VAL("&"+MID$(Feld$ in) „5,29 ) 2 y=V 
ALC"&"+MID$ (feld$ (n) ,7,2)) 
+eld$=RIGHT$ (feld$ (n) ‚LEN(feld$(n) )— 
®):LOCATE x,y:PRINT feld$z;": "3:G0SU 
B 3400: IF ret THEN 390 

is(n)=instIF LEN(i$(n))<1l THEN i$(n) 
SLEFTS (i$(n)+SPACES (1) ,1) 


ee DATEN EINGEBEN 


NEXT 
PRINT#1 Alles richtig? (J/N)":jn 
Paaren in$<>"J" AND Ins<>"N": ins 


=UPPER$ (INKEY$) :WEND:CLS #1: IF ins=" 
N" THEN num=daz:G0TO 638 
as="":FOR n=1 TO feldıa$=as+is(n)sNE 


XTspondazslaenge 

daz=daz+1: IF daz=anz THEN CLS:PRINT" 
aulggeDatei yoll!!!"ıFOR n=i TO 2000 
:NEXT:G0T0 39@ 


60T0 290 

CLOSEIN: CLS: OPENOQUT ""+dat$+".ind":P 

BINTRYSERZIFNINTSY ‚AhzE LLDGEDUTE BOTO 
768 

RE 


* Datei pflegen * 


PPPERUULEELTELT TG 

OR er=1_THEN GOSUB 3290: 1 

OR_er=1 THEN 3768 

rr=2:G0SUB 3508 

Datei <2>pf 
PPPPe RL] 


PRINT#2 
legenksiner- 
PRINTH2," CHR$ (248)" X - vor 
NT#2,"J HR$(241)" X — zurueck" 

PRINT#2,"3X 1 X - Korrektur":PRINT#2 


»"IX 2 X - Loeschen":PRINT#2,"JX 3 X 


- Nr.eingabe"; 
PRINT#2,"JX 4 X - Suchen“: PRINT#2, "z 
% 5 X -"Drucken":PRINT#2,"IX 9 X - 


NDE" 
fr=FRE ("") num=B: OPENIN ""+dat$ 
PRINT#1,"LDateiname: ";UPPER$ (dat$).; 


TAB(3S) {USING "Groesse der Datei: ## 
##";anz: PRINT#1,USING "Eingegebene D 
at #444"; daz; :PRINT#1 ,TAB(35) zUSI 
NG "Freie Datensaetze: ##4#";anz-daz 


PRINT#1,TAB(13) ; "DATAFINE CPC_"CHRS( 


164)" 1986 by Happy-Computer "CHR$ (25 
5 
ELS 

$=SPACE$ (laenge) :po=num#laenge: !R,@ 
po,@a$ 


GOSUB 3398: GOSUB 3258 

In=ASE ( INKEY$+CHRE (9) ) 

IF jn=24@ OR jn=241 THEN 59@ ELSE IF 
Jn-48<1 OR-jn-48>9 THEN 538 
in=in-48:1IF jn>5 AND in<? THEN 53@ E 
LSE IF jn=9 THEN 60T0 3768 

ON jn_S0TO 630,818,890,972,1138 
G0TO 578 


La9AaBı 
CC5761 
TAB223 
112481 
L93CC1 


L89C21 
LaSB&] 


LAF7EI 
Lasrsı 


LFBECI 


LCCDEI 


LE&B61 
L65A41 
C4ABCI 
185841 


L3FEAI 


19701 


134521 


CD2741 
[57EA1 


L51D61 
L38EA] 
LAD9BI 


L9C4A] 
LEFSEI 


1587C3 


(80961 


[D2E21 
CAESCI 


CA14A1 
L163A] 


18758] 


14492] 
LE3581 


LAS46J 


[24AE] 
L792E1 


EACBAJ 
LE9941 
[2270-75] 


LAIESI 
147821 


[99621 
[05621 


sea 


en 
* 

* Datensatz vor-/zurueckbl 
aettern * 

a en 

EEE ee er ers 
IF jn=248 THEN num=num+(1 AND num<da 
z-ı) 
IF jn=241 THEN num=num-(1 AND num>@) 


60T0 518 
Te ee 7 777777 


* Datensatz korrigieren * 


RR 
wu 

PRINT#1,"LJ<2>Bewegen Sie mit "CHR$( 
248)" und "CHR$(241)" den X Pointer 
X, dann X>ENTER<X." 
z=1 

WHILE INKEY$<>"":WEND 
x=VAL("&"4MID$ (Feld$(z) 55,2) )ay=VALC 
&"+MID$ (feld$(z) ,7,2)) 
feld$=RIGHT$ (feld$(z) ‚LEN(feld$(z))- 


Kızistziz" 


IF INKEY(@) >-1 THEN LOCATE x,ysPRINT 
#eld$;": "ji$lz)ez=z-(l AND z>1):60 
TO 668 

IF INKEY(2)>-1 THEN LOCATE x,y:PRINT 
feld$;": "jislz)ız=zrii AND’ z<teld) 
:60T0 &6B 

IF INKEY(18)>-1 OR INKEY(6)>-1 THEN 
CALL &BBBS ELSE G0TO 690 
I=VAL("&"+LEFT$(FeldS(z) 2) )at=VALC" 
&"+MID$ (feld$ (z) ,3,2)) 
LOCATE x„yzPRINT feldsz": " 
GOSUB 34BB: IF ret THEN.CLS#1:ON korr 
GOTO 350,488 

i$(z)=in$+SPACES (1-LEN(in$) ) 


PRINT#1, Weiteres Feld korrigie 
ren? (J/N 
inse"":WHILE jn$<>"g" AND insc>"N":j 


n$=UPPER$ (INKEY$) : WEND 

IF jns="J" THEN 638 

as="":FOR n=1 TO feldia$=as+is(m) NE 
XT:po=num#laenge: IW,@po,@a$:CL5 #1:0 
N korr GOTO SIR. 480 
ee ee er 


* Daten loeschen * 
RR 

PRINT#1,"LJWollen Sie wirklich loesc 
hen? (J/NDG"z: INPUT #1,jn$ 
IF UPPER$ (jn$)="N" THEN 488 
PRINT#1,"LX Datensatz"num"X wird gel 
oescht 
IF num=daz-1 THEN a$=SPACE$(laenge): 
po=num#launge „@po,@a$: daz=daz-iın 
Um=num-1:PRINT:GOTD 87@ 
PRINT#1,"und mit X Datensatz"daz-1"X 
"SPRINT#1," ueberschrieben 
a$=SPACE$ (laenge) :po= (daz-1)*laenge: 
IR,@po ,‚@a$:po=num#laenge: !W,@po,@a$: 
daz=daz- 
DPENOUT ""+dat$+".ind":PRINT#9,anzıP 
RINT#9 ‚daz : CLOSEOU 0TO 488 
HHAFFFFer Fer 


* Nummerneingabe * 
RR 


CLS:PRINT"JJJJI"CHR$ (15@) STRING$ (25, 

154) CHR$ (156) 

PRINT CHR$ (149) TAB (25) CHR$ (149) :PRIN 

T_CHR$ (147) STRING$ (23, 154) CHR$ (155) 

PRINT"KKIIDatensatznummer: "z3:1=4:t= 

2:60SUB_S400 

IF ret THEN 588 

in=VAL (in$) :in=INT (in) 

IF in<® THEN in=@ ELSE IF in>daz-1 T 

HEN in=daz-1 

num=in:PRINT"L":G0T0 518 
er 


* Datei suchen * 


er ees 
CLS:PRINT"IISuchbegriffB: =35:60 
SUB 3420: IF ret THEN 488 ELSE su$=in 
E32 

PRINT"JJSuchen von Datensatz " 
t=2:G08UB 3408 


=4: 


L@asE] 
CC49A] 


L2CBAI 
CD24C1 


LSEECI 


LA4EE6] 
13044] 
LBESCI 
L784A1 
C6F@2] 


L71E81 


L738C1 


L9CAC1 
CD@BA] 


L24FA1 
CEBD2] 


[2512] 
CABS8] 


L7C12] 
LAsSA] 
L6A7A] 


[D7EEI 


L7DB@1 


L44BE1 
[5F88] 


14872] 


LEFB2] 
1B37A1 


157861 
[02541 


[B96@1 
195541 
LF6181 
L18BE1 
[62723 
L&RCQ] 


198981 


LE2C41 


CBCCEI 


172341 
[oral 


EU _ 


990 IF ret THEN 488 ELSE sua=VAL (ins):IF 
sua<® THEN sua=® ELSE IF sua>daz-1 
THEN sua=daz-1 

1a PRINT"JJSuchen bis Datensatz " 
:t=2:60SUB 3488 

121@ IF ret THEN 488 ELSE sue=VAL(in$):I 
F sueisua THEN sue=sua ELSE IF sue> 
daz-1 THEN sue=daz-1 


1022 CLS #1 

1038 FOR num=sua TO sue:a$=SPACE$(laenge 
}zpo=num#laenge: !R,@po,@a$ 

1848 LOCATE #1,1,2:PRINT#1,ÜSING "Datens 
atz_ ####" num 

1250 IF INSTR(a$,su$) THEN 1288 


1262 
1078 


1288 
1298 


1108 


NEXT _numznum=num-1 

JGEnde der Suche":FOR n=1 TO 
25@@:NEXT:50T0 488 

CLS:G0SUB 3390: G0SUB 3258 
PRINT#1,"LJWeitersuchen ?<2>1J/NIB" 


WHILE ins<>"J" AND ins<>"N": 
JIn$=UPPER$ (INKEY$) : WEND 

IF jns="J" THEN CLS #1:60T0 1968 EL 
se 288 
nn re 


1118 
1128 


* Angezeigten Datensatz 
drucken # 

ee 
RR 
IF dinit-@ THEN CLS:PRINT"JIJJIJIGE 
itte erst X Drucker einstellen X 
":FOR n=1 TO 2899:NEXT:GDTO 48 
605SUB 3178 
num=num+ (1 AND num<daz-1):60TO 
RR 


1138 


1140 
1158 
1168 


* Datei wechseln * 


aureneneeeee 

au... 

ELS:PRINT"JJOBName der neuen Datei: 
=8:B0SUB 34@8: IF ret THEN 37 


1178 


1188 
1198 


n$:B0SUB 3668 

THEN PEN 1:PRINT"JJGDatei n 
icht vorhanden":FÜOR n=1 TO 2@@2:NEX 
T:60T0 1178 ELSE GOSUB 3338 
dinit=@:60T0 3758 

er 


1208 
1218 


* Diskmenue * 


Kununeereneee 


122 MODE 2:60SUB SS0Q: PRINT#2, "ren 
2662868 <C2>Di sk-menus<Z>#rnsnkuner 
PreeePeT 

1230 FRINT#2,"JX 1 X - Drive":PRINT#2,"J 
X 2 X - CAT":PRINT#2,"JX 3 X - loes 
chen” 

124@ PRINT#2,"JX 4 X — umbenennen 


T#2,"Jx'S ; X - USER" 


PRINT#2," 


% - Ende" 

125@ PRINT#1,"LI";USING "Laufwerk: \ \<S 
I>User: ##";drives;user 

1268 ÜLS:CAT 

1278 jn=ASC ( INKEY$+CHRS (@) )-48 

1288 IF jn=9 THEN 3768 ELSE IF in<i OR j 
n>5 THEN 1278 

1298 THEN 1388 

1308 THEN 1268 

1312 THEN 1418 

1320 THEN 1468 


1350 7 rn 


* USER wechseln * 


unseren 


1342 
1358 


THEN 1=2:t=2:PRINT"JGUsernu 
GOSUB 3498 

IF ret THEN 1268 ELSE user=VAL (ins) 
:IF user>15 THEN user=15 ELSE IF us 
er<ß THEN user=® 


1368 }USER,user:G0T0 1258 
1370 7 nk 
* DRIVE wechseln = 
a en 

ner 

13898 IF drives="A" THEN !Bz:drives="B":60 
TO 1258 

1398 !A:drives="A":G0T0 1258 


[29EC1 
[5B181 
LFEBB] 
185723 
135741 
CCBC4I 
EFBD&1 
LEB16J 


170643 
[CC3@] 


c828A1 
182A21 
[87FA1 


LSASCI 


LA1ZEI 
C4BA2] 
TaBACI 


LiA16] 


LAsDAI 
T7Aacı 


[2826] 
15296 


LABD@I 


LBBEBI 


£D17C1 


LaDAs1 


LFCFZJ 
TE&BAI 
L77221 


EFCD21 
L1C38] 
11924] 


CF9221 
[D338J 


L129C3 


L7D7A1 


L3F541 
[9406] 


182421 


EBBBCI 
[DC7EI 


1400 7 
* File loeschen * 
a ee er 
u... 
141@ PRINT"JName des zu loeschenden File 
12: G0SUB S4B@: IF ret THEN 1 
1428 PRINT"JSind Sie SICHER? (J/N)": jins= 
1432 WHILE jns<>"J" AND jns<>"N 
ER$(INKEY$) :WEND: IF jn$= 
sa 
1448 !ERA,@in$:G0TD 1268 
1450 Rn 
* File umbenennen * 
ee 
zur. 
1468 Kr E des alten Files: 


ret THEN 1268 


PRINT" JNane des 
2:50SUB 3408: IF 
n$s=in$ 

:REN,@n$ ,‚@0$ 
S0TO’ 1268 

I ee 


neuen Files: 
ret THEN 1268 


* Druckermenue * 
ae er 
” THEN PRINT G0TO 3748 


LS: PRINT#L,"s#rrkaaxeree D 
ruckerinit suisse: 


1558 PRINT"OAJJFeldnamen:":FOR n=1 TO fe 
1d 
156@ LOCATE 1,6: PRINT"X "RIGHT$tfeld$(n) 


„LEN(feld$(n))-8)" X drucken? 
“:WHILE jns<> AND ins<>" 
IPPER$CINKEY$) :WEND: PRINT jns:d 
r&{n)=jns 

LOCATE 1,6: PRINT SPACE$ (48) :NEXT 
CLS:PRINT"OBFeldinhalt:":PEN 1 

FOR n=1 TO feld:LOCATE 1,6:1IF n<>fe 
ld THEN PRINT#2,RIGHT$ (feld$(n+1),L 
ENtfeld$ (n+1))-8) 

PRINT"X "RIGHTS (feld$({n) ‚LEN(feld$( 
MID" X: "; 

GOSUB 1680: IF ret THEN 376@ ELSE dr 
$(n)=dr$(n)+ins 

LOCATE 1,6:PRINT SPACE$ (48) :NEXT 
ELS:PRINT"OAJJJZeilenvorschubz "il 
=4:t=2 

GOSUB 3488: IF ret THEN 3768 ELSE vo 
r=VALtin$) 

dinit=1:60T0 3768 

a ar 


* Inkeyroutine * 


a 
u. 
ret= 
2 
LOCATE x,y:PRINT STRING$ (5,95) 
a$="":WHILE as=""3a$=INKEY$:WEND 
IF a$=CHR$ (224) THEN ret=1:RETURN 
IF a$=CHR$(13) THEN RETURN 

IF a$=CHR$(127) AND 1>@ THEN 1=1-1: 
LOCATE x+1 ,y:PRINT"_":in$=LEFT$ (ins 
‚LEN(in#)-1):G0T0 1788 

IE 125 THEN SOUND 1,8,1,7,,„18:G070 
IF a$=CHR$(243) THEN LOCATE x+1,y:P 
RINT CHR$ (243) : in$=in$+CHR$ (243) :1= 
1+1:60T0 1708 

IF a$=CHR$ (241) THEN LOCATE x+1,y:P 
RINT CHR$ (241) :in$=in$+CHR$ (241) 
1+1:60T0_1708 

SOUND 1,58,3,7,,,1:60T0 1788 
Eee nern een 


* Daten drucken * 


: y=VPOS (#9) :x=POS (#@) zins="":1 


a er 
wre. 

PRINT#1,"###eemeree Daten drucken 

ee rn 

cLs 

IF dat$="" OR er=1 THEN 3768 

IF dinit=® THEN CLS=PRINT"JIJJIIJOA 
GBitte erst X Drucker einstellen X 

FOR n=1 TO 2@@B@:NEXT:G0T0 3768 

CLS:PRINT"Wollen Sie:J" 


Listing 2. Mit »Datafine« haben Sie Ihre Daten fest im Griff (Fortsetzung) 


LDaAı - 


TACABI 


L473A] 


LaB181 
LEBBB] 


LEC1B81 


LBFA4] 
[976E1 


LEBB6J 
136701 


[78881 
[91121 


L83DA1 
[00421 


LESSEI 
L&F7EI 
EDCEDSI 
LBBD&] 
LEEFCI 
L7A201 
LA77CI 
LASA41 


[2912] 
LA9F41 


LBB441 


L4BE43 
TEZACI 


LF31E] 
L6BAZ] 
LB1CE1 
L489E1 
L128C3 
L14C81 
LESC81 


LE9SCI 


LC@SEI 


L3F34] 
[59581 


[382E1 


LDDF&J 
L2D96] 
17DE83 


L8cc23 
LEFFEI 


ae, ‚HOMECOMPUTE! 


69 


1848 
1858 
1868 
1878 


1888 
1898 


2148 
2158 


2168 
2178 


2188 
2190 


2200 
2210 
2220 
2238 
2248 
2258 
2248 
2278 


2280 


2290 
2300 
2310 
2320 


2330 


2348 
2350 
2368 
2378 
2308 


PRINT"OBX 1 XOA 
n?g" 


- alle Daten drucke 


PRINT" „2 XQA - nach Suchbegriff 
drucken 

PRINT" XOA - best. Datensatz d 
ruck: 

PRINT Men -B 

Jn=ASC Ys+CHRE (9) ) : in=s 


IF_jn=9 THEN 3768 ELSE IF jn<i OR 5 
n>3 THEN 1888 


19@@ ON jn GOTO 1914,1990,2188 

1910" 

192® MODE 2:G0SUB 3508 

19390 OPENIN ""+dats 

194® FOR num=® TO daz-1:1a#=SPACE$ (laenge 

o=num#l aenge: !R,@po,@a# 

1950 GOSUB SS9G:LOCATE 1,1:G0SUB 3258 

1960 GOSUB 3178 

197@ IF INKEY$=CHR4 (224) THEN num=daz 

198@ NEXT num: G0T0 376@ 

1990 ' 

2000 CLESPRINT"INSUChbegriffgs "11235 

2010 GOSUB 3400: IF ret THEN 3768 ELSE su 
s=ins 

2028 FRINT"JJSuchen von Datensatz "zj:1=4 
ıt=2: GÖSUB 3408 

203@ IF ret THEN 376 ELSE sua=VAL (ins): 
IF sua<® THEN sua=@ ELSE IF sua>daz 
-1_THEN sua=daz-1 

2@4@ PRINT"JJSuchen bis Datensatz ";:1=4 
:t=2:G0SUB 3488 

2050 IF ret THEN 3768 ELSE sue=VAL (in$): 
IF sue<sua THEN sue=sua ELSE IF sue 
>daz-1 THEN sue=daz-i 

2062 MODE 2:G0SUB 3508: DPENIN ""+dat$ 

2978 FÜR num=sua TO sue:a$=SPACE$ (laenge 
)spo=num#laenge: IR,@po,@a$ 

2080 LOCATE #1,1,1:PRINT#1,ÜSING "Datens 
atz #444" num 

2090 IF INSTR(a$,sus) THEN 2128 

2108 NEXT num 

2118 PRINT" GEnde der Suche":FOR n=1 T 
0 25@@:NEXT:G0TO 3768 

2120 CLS:G0SUB 3398: G0SUB 3258: PRINT#1," 
LDrucken? (J/N)": jn$=" 

2138 WHILE jns<>"J" AND jn$<>"N”: jns=UPP 


ER$CINKEY$) :WEND: IF jns="N" 
52 

SOSUB 317@ 
FRINT#1,"LJGWeitersuchen ?<2>(J/NG 


ins="":WHILE jns<>"g" AND insc>"N"; 
In$=UPPER$ (INKEY$) :WEND 

IF ins="J" THEN CLS #1:60T0 2188 EL 
SE 3768 

MODE 2:S05UB 35BB:OPENIN ""+dat$ 
CLS: PRINT" JDatensatznummer : 
t=2:60SUR $4@8: IF ret THEN 3768 
CLS:num=VAL (ins) IF num@ THEN num= 
® ELSE IF num>daz-i THEN num=daz-1 


THEN 21 


a+=SPACE$ (1 aenge) :po=num#laenge: IR, 
@po,@as 

SOSÜB 3398: GOSUB 3250: PRINT#1,"LIDr 
ucken? (J/N)" 


In$=""sWHILE jn$<>"J" AND jns<>"N": 
jn$=UPPER$ (INKEY$) : WEND 

IF jins="N" THEN 2268 

GOSÜB 3178 

PRINTAL, 


"LIWeiteren Datensatz druck 
en? (3/8) ® 


Ins=""WHILE jns<>"J" AND ins<>"N": 
in$=UPPER$ (INKEY$) ı WEND: IF jns="N" 
THEN 3768 ELSE 2198 
ER 


* Daten sortieren * 


EELEE III E ET 


ErrerrN 
IF dat$="" OR er=1 THEN GOSUB 3298: 
IF dat$="" OR er=1 THEN 3768 


CLS:CLS #1: PRINTRL , "kat Date 
n sortieren “RR; 
PRINT"OANach welchem Feld sortieren 
ER 

FOR n=1 TO feld: feld$=RIGHT$ (feld$( 
n) ‚LEN(feld$ (n))-8) sPRINT"OBX "in;" 
A, = "3 4eld&: NEXT 

pP Bitte Feldnummer eingeben: 
=2:G0SUB 3488: IF ret THEN 37 
68 ELSE sort=VAL (in$):IF sort<i OR 
sort>feld THEN PRINT"KKK":60T0 2338 


GOSUB 2359: 6070 3768 
OPENIN ""+dats 

FOR i=1 TO daz-1:f1=@ 
daz-i TO i STEP - 
PACE$ (laenge) :po=(j-1)*laenge 


[9DD8] 
LEACCI 
157E8] 
[5514] 
[227E] 
LF7ZEAI 
CAD723 
EBE241 
CBEBA] 
[48441 
LAEF&] 
12044] 
CDSB&I 
t134C] 
CABaB] 
[96341 
EBCAEI 
[C4D4] 


131481 


La59A] 
CAB1AI 
La52AJ 
LBFEBI 
LF@7EI 
LIBCCI 
L6ADBI 
[48241 
L9FDCI 
LEA4AI 
[88121 
ESDAsJ 
[DE14] 
[28681 


CBF68] 
TCAE6I 


L1E@41 
tSED21 
L&DEBI 
L33BA1 
L21AC] 
[D436] 
LSEAB] 


192CA1 


14304] 


LF7541 
LBES21 
1@26C1 
1562C1 


[B6A4I 


LFF36] 
LA16CI 
LE9SEI 
LABS41 
L&ABAI 


2390 


2408 


2410 
2428 
2430 
2440 


2450 
2468 


2470 


2488 
2498 
2508 
2518 


2528 


2530 
2548 


2558 
2568 
2578 
2588 
2598 
2688 
2618 
2628 


2638 


2648 
2658 
2668 
2678 


2688 


2698 
2708 
27ı@ 


2720 


2730 


2740 
2758 
2768 


2778 


2788 


2798 


R,@po,@a$:x1$=a$:G0SUB 3398 

al$s=i$ (sort) :a$=SPACE$ (laenge) :po=j 

*laenge: !R,@po,@a#:x24=a$: GÖSUB 337 

8: a2$=i$(sort) 

IF $>a2$ THEN po= 
x 2%: po=j#laengı 


1)*laenge: IW 
W,@po,@xisıfl 


IF INKEY$=CHR$ (224) THEN jei:fl=@ 
NEXT jzIF f1=@ THEN RETURN 

NEXT i:RETURN 
RRHSRHEHRHRSGSE 


* Neue Datei einrichten 
” 
AR 
ERTDERLELE TEN 
CLS:PEN S:FRINT"Datei einrichten: 


2 
in=®:WHILE jn<i OR jn>2: in=ASC (INKE 
YE+CHRS (9) )-48:WENDE IF in=1 THEN ma 
s=0:G0T0 2400 

CLS:PEN 1:PRINT"Maske aus 
en:" 

PRINT:PEN 2:PRINT"Name der Datei:"; 
ı1=8:PEN 1:G0SUB 3408 

IF ret THEN 3768 ELSE dat$=UPPER# (i 
ns ır=9: GOSUB 3678 
IF er=1 THEN PRINT"JJGDatei nicht v 
orhanden! !":FOR n=1 2008: NEXT: GO 
TO 2498 

CLS:PRINT"JMaskendatei wird geladen 
1": G0SUB 3340 

MODE 2:num=: GOSUB 3518 

a$=STRING$ (laenge, 95) :G0SUB 3390: 60 
SUB 3258 

PRINT#1,"GMaske in Ordnung 


in 
WHILE jns<>"J" AND jns<>"N": jns=UPP 
ER$ (INKEY$) z:WEND 
MODE 1:60SUB 3618 


Datei lad 


IIND?" 


IF jn$="N" THEN 2458 

mas=1 

PEN 2:PRINT"JName der neuen Datei 
:PEN 1 GOSUB 3408 

IF ret THEN 3768 ELSE dat$=UPPER$(i 
n$) 

PEN 2:PRINT"JGroesse der Datei: " 
PEN 1:1=4: GOSUB 3488 


IF ret THEN 376@ ELSE anz=VAL (ins): 

IF anz<i1 OR anz>1@B8@ THEN PRINT"G": 

CLS:G0TO 2628 

SOSUB 2690: ERASE dr$sDIM drs(fgld): 

ELS:PRINT"JJJJ<3>Bitte warten!" 
+dat$+".ind":PRINT#9,anz: 

PRINT#9 ‚8: CLOSEOUT 

+dat$:FOR n=1 TO anz:PRIN 

T#9 ‚SPACE$ (laenge) :LOCATE 16,8 

PRINT USING "####"n:NEXT:PRINT#9,8 

PACE$ (128) :PRINT#9 ,SPACE$ (128) : CLOS 

EQUT:CLS: RETURN 

TO RRHRHRHHRH 


* Eingabemaske definier 
en * 

RR 
RR 
IF mas=1 THEN 308@ ELSE MODE 2: B0SU 
B 3508 
x=1ry=12LOCATE 1,13PRINT"X Xtsche"X 


PRINT#1, 
rn"zPRINT#L, 
n - Definition" 
Her ee 


en: Cursor steue 


nde 


* Maske aufbauen #* 


Peer re 
Errren 

In=ASC ( INKEY&+CHRE(D) IF in=@ THEN 
2730 ELSE IF jn=5 THEN LOCATE x,yi 
PRINT MID$(c#,2,1)5:G0T0 2878 

IF jn<24@ OR jn>243 THEN 282 

wiki ylaysasmMIDs ch 21) 


x=x+t1 AND jn=243)-(1 AND jn=242):1 
F_x>58 THEN x=1:y=y+(1 AND y<18) EL 
SE IF »<1 THEN x=58:y=y-(1 AND y>1) 


y=y+(1 AND in=241)-(1 AND jn=248) :1 
F_y>18 THEN y=1 ELSE IF y<i THEN y= 
18 

IF »=x1 AND y=yi THEN 2738 ELSE LOC 
ATE x,y:CALL 40@08: c$="X"+CHR$ (PEEK 
(ABB1B) ) +" x" 

LOCATE x1,y1sPRINT c1$5:LOCATE x,y: 
PRINT c$5 


LAB&EI 


[32621 


L9DDAI 
C8DB21 
[2858] 
L&C961 


LF82C9 
12864) 


L459C1 


EFDC6I 
15B10) 
C6BFB1 
L5B8E) 


129301 


LF9A2] 
[BB8F6] 


C08981 
C6EAEI 
EC14A1 
[68181 
CE@461 
L9BSE1 
[5B681 
[4542] 


L9BBcı1 


[45941 
[08689 
161341 
LAFSCI 


139501 


L4EBB] 
[46161 
LAIFAI 


[4:7702.5] 


LcAacı 


CDB8B] 
[C8221 
CSEACI 


LES841 


E1AC6] 


LA47A3 
LFSF6J 


TOWW.HOMESOMPUTERW 


ur 
288@ LOCATE #2,1,1:PRINT#2,USING "x:## y WERE 
auntzxıy LS1F6] zuueeeee LEF361 
2818 GOTO 2738 L[9E28] 325@ FOR n=1_TO feld:x=VAL ("&"+MID$ (feld 
2828 IF_jn=127 THEN c$="X X": jn=242:60T0 Sin) „5,2))zy=VAL("&"+MID$ (feld$ in), 
2758 [5DB21 7,223 TEDACI 
2838 jin=13 THEN LOCATE x,y:PRINT" "ze 3268 feld$=RIGHTS (feld$(n) ‚LEN{feld$(n)) 
X":x=58: jn=243: 5010 2758 LCCB&I -8):LOCATE x,yzPRINT feld$;": "zisl 
2848 x X": jn=243:60T0 275 m) zNEXT L3B8AJ 
@ [8366] 327@ LOCATE #2,1,22:PRINT#2,USING "Ds.: 
2850 G0TO 2730 L7A283 ####" num? RETURN L7C581 
2860 HR 328B es 
* Maskendefinition # * Datei eroeffnen # 
RR 
rn ae 12sa6J 
wer [91:07] 329@ CLS: PEN “ i i 
2870 ERASE feld$:DIM feld$(2®) :glang=255 Surfer! THLPRINTIBEN 2 one 98 nor 
: feld=8: er=@: PRINT#1,"LJBitte warte 3308 PRINT"Dateiname: "3:PEN 1:1=8:G05UB 
2000 Aopfaske mird definiert i"scLs #2 1aSA2 Saaa tsarcı 
y=1 TO 18:FOR x=1 TO 58 TEC461 =i = 
289@ LOCATE x,y:CALL 49000: c=PEEK (40018) re 
LF32EI = PEN ir “ i 
2908 IF c=58 AND feld>=2@ THEN er=1:x=58 Een TEEN ag ppstes ln 
ty=18:PRINT# Mehr als 28 Felde EXT:S0T0 3290 tızaaı 
r definiert 0 2938 taB40] 333@ CLS:OPENIN ""+dat$+".ind": INPUT #9 
2910 IF c=58 THEN feld=feld+1:G0SUB 2968 Anz: INPUT #9 ,dazı CLOSEIN ” cAsaaı 
DE ER TRLENEERINIBIZER 334@ ERASE feld$,i$,dr#:0PENIN ""+dats+" 
HI EI „msk" : INPUT#9,feld: INPUT#9,1 e  LFAS4] 
335@ DIM feld$(feld) ‚,is(# » 
292@ glang=glang-langsLOCATE BIRHEOSEN 336@ FOR n=1 TO ELOILINE INPÜTWP Feige Be 
Nee Ra SS ERDT ENGEN IBEN ER n)zNEXT nzCLOSEIN LIF66I 
INTAL, Laenge der Felder zu gros 337@ RETURN EARSRı 
s_ (2255) !!"ı:x=58:y=18ter=1:60T0 29 3IB0 
38 177421 
2930 NEXT xaysIF er=i THEN eis ys1sLOcAT * Stringzuweisung # 
E x,yıCALL 40880: c4="X"+CHRS (PEEK (4 
@u10) )+"X":LOCATE x,ysPRINT c$:CLS Peer 
#2: 6070 2758 tBrFEI a... La35A1 
2940 GOTO 3280 LAF26) 3398 FOR n=1 TO feld:l=VAL("&"+LEFTS(fel 
2950 ' #004 Feld erfassen u [48723 d$(n) „2)) 1i$ (n)=LEFTS (a$,1) :a$=RIGH 
2960 FOR xi=x-1 TO 1 STEP -1 [4444] T$(a$,LEN(a$)-1):NEXT m: RETURN ESDBEI 
297@ LOCATE x1,y:CALL 40808: c1=PEEK (4801 3400 ' ***" Inputroutine #*#* 
@:IrF ci=32 THEN x1=1:G0T0 2988 ELS 
E feld#(feld)=CHR$(c1)+feld4 (feld) [2B28] *Uebergabeparameter* 
2980 1227E3 
2998 . * I=Laenge t 
CD8541 Pre cors@ı 
3090 lang=®ityp=®:FOR xi=x+1 TO 58 [D7823 341@ ret=@: y=VPOS (#8) :x=POS (#9) :11=Qr ins 
301@ LOCÄTE x1,ysCALL 40Q@B:c1=PEEK (4801 ." LB96C9 
@)zIF xi=x+1 AND c1<>32 THEN er=1:x 342@ LOCATE x,yıPRINT STRING$(1,"_") LAASBI 
1=58:60T0 3058 LICSEI 343@ a$=""ıWHILE as=""sas=INKEYS: WEND: a= 
3020 IF ci=35 THEN lang=lang+i:IF typ=® ASC(a$):IF a=224 THEN ret=l:ıt=1:RET 
TMEN typ=2 ELSE IP typei THEN or=ir URN ELSE IF a=13 THEN t=1:RETURN  [L69BBJ 
x1=58: &0TO sasa t488C3 3448 IF as=CHR$(127) AND 11>@ THEN 3498 
ses@ IF Cin56_THEN lang=langsi: IF typ-® ELSE IF a$=CHR$(127) AND 11=@ THEN 
THEN typ=i ELSE IF typ=2 THEN er=iı 3438 L666E1 
x1=58: G0T0 3058 cDc1@1 345@ IF t=2 AND (a<48 OR a>57) THEN SOUN 
304® IF c1=32 AND xi>x+1 THEN x1=58: 6010 D_2,580,3,7,,,18:G0T0 3430 tsccc1 
3050 L2AGEI 3468 IF l1=1 'THEN SOUND 1,2580,3,7:60T0 
305@ NEXT x1:IF er=1 THEN 3878 L9SAEI 3438 LDAF@I 
3060 felds(feld)=HEX$(lang,2)+HEX$ (typ,2 3478 inseins+a$:11=11+1:LOCATE x+11-1,ys 
)+HEXS (n-LEN (feld (feld)) „2) +HEXEy PRINT_a$ tE7AQI 
2)+feld$(feld) 12198) 3489 GOTO 3438 CDB24) 
307@ RETURN [BB94J 349@ in$=LEFT$(in$,11-1):11=11-1:LOCATE 
308@ MODE 1:PRINT"Folgende Felder sind d x+11 ,yzPRINT"H":SOUND 1,18@8,1,7:G 
efiniert:J" L96DCI 0To 3430 CFDDBI 
3098 FOR n=1 TO feldıPRINT feld$(n):NEXT SS@D  katananakaktne 
17256] 
3100 PRINT"JMaske wird gespeichert 12584) * Bildschirmmaske MODE 
3110 laenge=@:FÜR n=1 TO feldslaenge=1 2 « 
nge+VAL("&"4LEFTS(feld$ tn) „2)) zNEXT RR 
17221 EEE re CICEBI 
3120 OPENQUT ""+dat$+".msk" [55081 351@ ol$=CHR$ (158) : ore$=CHR$ (156) ul $=CH 
3138 PRINT#9, feld: PRINT#9,laengezFOR n=1 R$ (147) zur $=CHR$ (153) twas=CHR$ (154) 
TO feld:PRINT#?,feld$ (n) zNEXT TEA66] :se#=CHR$ (149) L1DEAI 
3148 CLOSEOUT T48ACI 352® LOCATE 1,1:PRINT 01$;5STRING$ (68 ,wa$s 
3150 ERASE i$:DIM i$(feld) RETURN [1:2776] )zore#; 01%; STRING$ (16 ‚wa$) ores L1BCAI 
Z16B 7 MRRHR 353@ FÜR n=2 TO 19:LOCATE 1,n:PRINT ses: 
LOCATE 62,n:PRINT se$;se$:LOCATE 88 
* Daten drucken * ‚nzPRINT ses:NEXT TECF4J 
354@ ÜOCATE 1,2@:PRINT ul$;STRING$(6@,na 
au $) jur$; se$; TAB (80) ;se$ 172863 
wu... 130221 355@ LOCATE 1,21:PRINT o1l$;STRINB$(6B,wa 
317@ FOR n=1 TO feld: feld$=RIGHT$(felds( $) jores;Se$; TAB (BB) ;se$ LBABCI 
n) „LEN(feld$ (n))-B) 158641 356@ FOR n=22 TO 24:LOCATE 1,n:PRINT ses 
318@ IF'LEFT$(dr$(n) „1)="J" AND LENCdr$t :LOCATE 62,n:PRINT se$;se$:LOCATE 8 
m))>1 THEN PRINT#B,feld$;": "; LF&BAI @,n: PRINT Se$:NEXT 13D561 
319@ d$=RIGHT$ (dr$(n) „LEN (dr${n))-1) [DEA2I 357@ LÖCATE 1,25:PRINT ul$7STRING$ (6B,wa 
3200 $) zur$3ul$; STRING$ (16 ‚wa$) ur$; (B8521 
3588 WINDOW 2,61,2,19:WINDOW #1,2,61,22, 
LFS7CI 24:WINDOW #2,64,79,2,24 LC7C&1 
32180 TE1aa] 359@ PEN #1,1:PEN #2,1: RETURN ESCSCI 
3228 NEXT:FOR n=1 TO vor:PRINT#8:NEXT LF738]1 IEBO we 
3238 RETURN [8D981 * Bildschirmmaske MODE 
3248 7 RR 1 
er 
* Datensatz anzeigen « “unskereeeee LSFa21 


Listing 2. Mit »Datafine« haben Sie Ihre Daten fest im Griff (Fortsetzung) 


71 


361® al$=CHR$ (194) +STRING$ (38, 154) +CHRS ( 
195) : a2$=CHR$ (195) +STRING$ (38,154) + 
CHR$ (192) : aS$=CHR$ (149) LsE1CI 
3620 PEN#3,S:LOCATE #3,1,1:PRINT#S,al%;a 
35; TAB(4B) a3$5 a265 : PRINTHS,al$; CDIFAI 
3630 FOR n=5 TO 2@:LOCATE #3,1,n:PRINT#S 
‚aS$} :LOCATE #3,40,n: PRINT #3,a38;: 
NEXT. 183343 
3640 PRINT#3,a2%; al$}aS$TAB (48) ;aSs; assT 
AB Cam) abs} a26 CA6F41 
365@ WINDOW 2,59,5,2@:WINDOW #1,2,39,2,2 
:WINDOW #2,2,39,25,24:FOR n=8 TO 2: 
CLS #nıNEXTSPEN #1, 2 RETURN [DEEEI 
T66B * 
* Directory lesen # 
PLFPePPPeeeeNN 
ERTTT 139641 
3670 ERABE asıDIM as(65) dati (UPP 
ER$ (dat#) +SPACES (8) „B) +" [13A441 
3680 a=PEEK (%BBSA) :POKE LBBSA,LC9:CATıPO 
KE &BBSA,a tDscsı 
3690 anz=PEEK (KA912) 1 a=PEEK (KA7IC) #256+P 
EEK (KA79B) +1 42603 
3700 FOR an=@ TO anzıFOR n=a TO atidıx=P 
EEK (n) ı a$ (an) =a$ (an) +CHR$ (x) ıNEXTra 
=a+lä:NEXT car743 
z7ı0 TO (anz AND anz<64)+(63 AND 
4) IF ASC(LEFTS(a$n) ‚1))=0 
THEN a=nın=anz:G0T0 37; LE@741 
3720 a$(n)=LEFTS (a6 (n) „B)+". "+RIGHTS(a$( 
134261 
3730 =a LAZ9R] 
3748 FOR n=® TO anz: IF dati$=a$(n) THEN 
375@ ELSE NEXT:er=1 LF@B23 
375@ RETURN EBAgEI 
3740 ' wann 
* Menue * 
anne LD6F23 
377@ CLOSEIN Le@Fc) 
378@ MODE 1:G0SUB S6BB:PRINTHL,"wRrReee 
###x% DATAFINE CPC #urkkkkeneeen,  LOFBAI 
379@ CLS:RESTORE 397@:FOR n=1 TOD 8:READ 
a$:LOCATE 8,n*2-1 T@cEEJ 
38@@ IF n<B THEN’PEN 13PRINT"X"n"X — "; 
ELSE PAPER 1:PEN SsPRINT®X 9 X"j:PA 


Listing 2. Mit »Datafine« haben Sie Ihre Daten fest im Griff (Schluß) 


EN 1:PRINT" - 
'RINT a$:PRINT:NEXT 
Kae SS ee ee a Er 


LBiDB] 
LIFgAI 


818 
3828 


* Tastaturabfrage Zahle 
n 1-9 * 
ee ee 
La2F21 


L33FA] 


EEE EEE 

3830 PRINT#2,TAB(9) CHR (164)5" 1986 by 
ms-Software "CHR$ (255) 

3848 AND er=@ THEN PRINT 


1697C3 
3858 Lacaaı 


3868 


NKEY$: IF a$="" THEN 3858 

IC (a$+CHR$ (DM) )-48: IF acl OR a>9 
=8 THEN SOUND 1,580,2,5:G0T0 38 
CAAAAI 
LAA7AI 


LoBiE] 


3878 
3888 


3898 


RR 


* Sicherheitsabfrage * 


AR 
L9F941 


(J/N 
EDEE6I 


PETE 
"BJ<8>Sind Sie sicher? 


AND as<>"N": a$=UPPERS 
CINKEY$) :WEND:CLS #23 IF a$="J" THEN 
3938 


392® LOCATE 5, ta-1)#2+13PRINT"<3>" 
3858 


393@ ON a S0TO 218,410,117@,1220,1530,17 

90 ,2290,3948 

394@ MODE 2:BORDER 1:INK Q,1:INK 1,24:PE 
N 1:PAPER Q:END 

3958 GOTO 3950 

ZIEB "RR 


3908 
3918 


LE69BI 
169741 
LEA4EI 


LBEF2] 
[8C36] 


GOTO 


* Datas fuer Menue * 


a ee 
anne LBACCI 
3978 DATA Daten eingeben,Datei pflegen,D 
atei wechseln,Diskmenue,Drucker ein 
stellen,Daten drucken,Daten sortier 


en.GENDE CBB781 


Wem die Stunde schlägt 


Zeit ist Geld, sagt ein kluges Sprichwort - nicht 
ganz zu unrecht. Der Computer hilft Ihnen, Ter- 
mine perfekt zu planen. 


tehen Sie auf Kriegsfuß mit Ihrer Terminplanung? Wenn 

Sie einen Schneider CPC Ihr eigen nennen und dieses 

Listing eingeben, verwaltet der Computer Ihre Termine 
automatisch. Das Programm »Termin« arbeitet menügesteu- 
ert, so daß es sofort und ohne Probleme nutzbar ist. Zur Bear- 
beitung steht immer ein Monat des aktuellen Jahres bereit. 
Damit die Wochentage dem jeweiligen Datum korrekt zuge- 
ordnet sind, enthält Termin einen immerwährenden Kalender, 
der - für eine aktuelle Terminplanung etwas überflüssig - ab 
dem Jahr 1513 zählt. Im Hauptmenü wählen Sie mit den Cur- 
sor-Tasten aus sechs Punkten einen aus und aktivieren die 
Funktion mit der Taste <COPY >. Der Reihenfolge auf dem 
Bildschirm nach, arbeiten die Menüpunkte wie folgt: 


Eingeben 

Der Monitor zeigt die Daten der ersten Hälfte des aktuellen 
Monats. Neben Datum und Wochentag haben Sie rechts 
Platz für tägliche Eintragungen mit einer Länge von jeweils bis 
zu 30 Zeichen. Zur Eingabe bewegen Sie die weiß unterlegte 


TON WW .HOMECOMPUTER 


Zeile mit Hilfe der Cursor-Tasten auf den gewünschten Tag 
und drücken dort <COPY >. Dann machen Sie Ihren Eintrag 
und beenden mit der Taste <ENTER>. Auf die zweite 
Bildschirm-Seite (zweite Monatshälfte) gelangen Sie durch 
gleichzeitigen Druck der Tasten <CTRL+6> (<F6> beim 
CPC 6128) auf dem Zehnerblock. <CTRL+5 > führt zurück 
zur ersten Seite und <CTRL+9> ins Menü. Einen Eintrag 
löscht eine Neueingabe oder <CTRL+8>. 


Drucken 
Haben Sie einen Drucker angeschlossen, lassen sich die 
Termine jeden Monat schwarz auf weiß drucken. 


Zeitraum 
Mit den Cursor-Tasten wählen Sie einen neuen Monat des 
aktuellen Jahres zur Bearbeitung. 


Laden 
Hier laden Sie die gespeicherten Daten eines Jahres- 
Terminkalenders. 


Speichern 

Bevor Sie neue Daten laden oder die Arbeit beenden, müs- 
sen Sie geänderte oder eingegebene Daten speichern, um 
Datenverlusten vorzubeugen. Der Name der Datei ergibt sich 
automatisch aus der anfangs eingegebenen Jahreszahl. 


na 


Directory 

Arbeiten Sie mit einem Diskettenlaufwerk, haben Sie Zu- 
griff auf das Inhaltsverzeichnis. Wenn Sie den CPC 464 nur 
mit dem eingebauten Kassettenrecorder benutzen, ignorie- 
ren Sie diesen Menüpunkt. 

Verlassen Sie das Programm jemals versehentlich mit 
<ESC>, kommen Sie ohne jeden Datenverlust mit »GOTO 
110« wieder in das Menü zurück. 

Natürlich läßt sich mit dem immerwährenden Kalender 
auch jedes beliebige Datum bestimmen. Den Wochentag 
Ihres Geburtstags erfahren Sie beispielsweise, indem Sie 
beim Programmstart Ihr Geburtsjahr und dann unter »Zeit- 
raum« den betreffenden Monat wählen. Gehen Sie dann in 
den Eingabemodus, erhalten Sie die gewünschte Informa- 
tion. (Patrick Schuster/ja) 


Steckbrief 
Programm: Terminkalender 
Computer: CPC 464/664/6128 
Checksummer: | Explora | 
Datenträger: Kassette/Diskette 


1D CHA LEST 
20 #4 #% EDIAAI 
3a # ----> Terminkalender <--—- ## LA7DAI 
a0 94 #%  LI1AEI 
Er By Patrick Schuster ## [33241 
Fr 12.08.1986 “  [C130] 
7a “. 175B4)J 
BO Aa [BZ 
TG [85683 
108 DIM menue$(12) ,a(12) ,b(12) ‚day$(7) ,d 
ay (7) ‚eintr#(12,32) ‚monla(12) ‚monalı 
2) LFAC2I 
11@ ON ERROR GOTO_247@ L6B7E] 
12@ rag=0:GOSUB 130:G0T0 180 tACEBI 
130 mona*=" Januar<2>":ma=lımt=" *Menue* 
"3i$=CHR$ (24) 165A2] 
148 invons=CHR$ (22) +CHR$ (1) :invoff$=CHRE 
(22) +CHR# (@) 198541 
150 RESTORE 1890:FOR t=1 TO 7:READ days( 
t)ıdaylt)=teNEXT t LF9423 
160 RETURN LAsZEI 
170 ı ECDESI 
18@ PEN 1: INK 8,@: INK 2,15: INK 3,6: INK 1 
26: BORDER @: PAPER & 1SEA2I 
190 ÜLS:MODE 1:B0SUB 220: LOCATE 1,23:608 
UB 220 L73F81 
200 GOTO 258 CEBA4J 
210 : ECBDAI 
228 PRINT CHR$ (158) ;STRING$ (38,154) ; CHR$ 
(156) ; CHR$ (149) ;STRING$ (38,207) ; HRS 
(149) ;CHR$ (147) HSTRING$ (38, 154) ;CHR$ 
(153); LD7F2] 
230 RETURN LAFZAI 
240 ı [CAEBI 
250 LOCATE 13,2:PRINT "Termin-Kalender"; 
LIAFZI 


260 WINDOWHB,1,48,4,22:WINDOW #2,7,39,5, 
21 [E28] 
1,5: PRINT en sie das Jahr 


ein :LINE INPUT jahr$: jahr=VAL( 

jahr$) LE264E] 
288 IF jahr<1512 OR jahr>2222 THEN 278 C[B814E1 
290 GOSUB 2210:CL8 [88781 
380 WINDOW SWAP 1,@:LOCATE 33,24:PRINT i 

nvoff$; jahr; :WINDOW SWAP 1,8 L87CA1 
318 GOSUB 2198 [2848] 
320 ' _ [B1ASJ 
35B ’- Hauptmenue - [D2263 
Ce enter [&63A81 
358 WINDOW SWAP 1,@:LDCATE 18,24:PRINT " 

Hauptmenue INDOW SWAP 1,8 116821 


368 RESTORE 1858:FOR t=1 TO &:READ menue 
$(t)za$=menue$(t):READ alt) ‚bit):x=a 


tt) :y=b (t) :GOSUB 1780:NEXT £ L9@A21 
378 GOSUB 2198 L144C1 
138841 
[2712757 


b (wahl) :PRINT CHR$ (24) ;menue$ (wahl); 
CHR$ (24) ; invon$; 
SOTO 1958 


IF in=9 THEN 478 

GDTO 488 

PEN 1:PRINT invoff$;:LOCATE atwahl), 
b (wahl) PRINT menue$ (wahl) zinvon$z; :R 
ETURN 


IF wahl=3 AND flag=® THEN G0TO 628 
IF wahl=6 AND flag-® THEN CLS:GOSUB 
2398: IF dis=5 THEN 498 ELSE FOR t=1 
TO 29@8: NEXT t:CLS:GOTD 358 

IH wahl=6 AND flag=@ THEN CLS: WINDOW 
SWAP 1,@:LOCATE 18,24:PRINT "Direct 
ory ";:WINDOW SWAP 1,B:PEN 3:CLS:CAT 
:G0SUB 1918: CLS:G0T0 358 

IF wahl=1 AND flag=@ THEN GOTO 740 
IF wahl=2 AND flag=@ THEN GOTO 1168 
IF wahl=2 AND flag=2 THEN CLS:G0T0 3 
sa 

IF wahl=1 AND #lag=2_THEN 1220 

IF flag=3 THEN GOTO 758 

IF wahl=4 AND flag=@ THEN GOTO 1320 
IE flag-4 AND mahl=2 THEN CLS:60T0 3 
IF flag=4 AND wahl=1 THEN 1388 

IE mahl=5 AND Flag=d THEN CLS:60T0 
IF wahl=2 AND flag=5 THEN CLS:G0T0 3 
Er} 

IE ymahl=1 AND flag=S THEN CLS:6070 1 
S0TO 1958 


ECLS: WINDOW SWAP 1,@:LOCATE 18,24:PRI 
NT * Zeitraum ";:WINDOW SWAP 1,@:RES 
TORE 1868:FOR t=1 TO 12:READ menues ( 
t)sa$=menues(t)sREAD alt) ,bit)sx=alt 
)zy=b(t):GOSUB 1780: NEXT t 
x=1ö:ymiöras=" “Menuex ":G0SUB 1780 
MOVE 222,128:DRAWR 8,190,3 

MOVE 398, 128:DRAWR 8,190,3 

FOR t=1 TO S:MOVE 48, 1284 (48#t) ı DRAW 
R_526,8,2:MOVE 48,126+(48#t) :DRAWR ( 
33#16) -2,0,2:NEXT't 

MOVE 224, 128:DRAWR 172,8,2:MOVE 224, 
126:DRAWR 172,8,2 

LOCATE 4,2:PEN 2: PRINT CHR$ (214) STR 
ING$ (32,143) ; CHR$ (212) sinvon$3 CHR$ (8 
P}EPEN TIPRINT CHRE (218) }invott# 
FOR t=3 TO 13:LOCATE 37,t:PEN 11PRIN 
1 Ohe (135) HENExT t:LOCÄTE 37,14: PRI 
NT CHRS(2123 5 

LOCATE 26,15:PEN 1:PRINT CHR$(143) 5: 
LOCATE 26) 16: PRINT CHRE (143) 3 LOCATE 
26,17: PRINT CHR$ (212); 
+1ag=S:px=S:py=4:wahl=1:flag=3:G0T0 
408 

mona$=menue$ (wahl) ıma=wahl:GOSUB 219 
d:60T0 1958 


eing=i 
WINDOW SWAP 8,1:LOCATE 18,24: PRINT i 


nyofft;" Eing zWINDOW SWAP @,1 
PRINT CHR$ (158) ;STRING$ (38,154) ; CHR$ 
(156) ;:LOCATE 8,1:PRINT CHR$ (158) ; 
FOR t=2 TO 18:LÖCATE 1,t:PRINT CHR$( 
149); TAB (8) ;CHR$ (149) ;:LOCATE AB,t:P 
RINT CHRS(149) 5: NEXT t:LOCATE 8,19:P 
RINT_CHRS$ (155) 

LOCATE 1,19: PRINT CHR$ (147) ;STRINGS( 
38,154) ; EHR$ (153) 5; 

blätt=B:G0SUB 860: "Erstes Blatt 
SOTO 958 

IF blatt=1 THEN kont=(mona (ma)+17):k 
ont=(kont MOD 7) ELSE kont=mana (ma)+ 
1 

IF kont MOD 7>7 THEN kont=((kont MOD 
7) MOD 7) 

FOR t=1 TO 16:L0OCATE 2,t+1:IF kont=8 
THEN kont=1 

IF blatt*16+t>monla(ma) THEN PRINT " 
;0TO 920 

ont=® THEN kont=7 
PRINT LEFT$ (day$(kont) „2); 
"##";blatt#16+t5:PRINT "."5 
t+1:LOCATE 9,t+1:PRINT LEFTSteintr$( 


une 


ma, (blatt=16)+t) ,32); 
NEXT t 

IF blatt=1 THEN LOCATE 2,17:PRINT "< 
62";:LOCATE 9,17:PRINT "(38 

“ein 


Listing. Alle Termine fest im Griff 


EC6FAI 
C13BA] 
LEBER] 
c@87A1 
EC74A1 


L4D6C] 
ECCEB] 
LAFOD] 


LCS1E] 


LAAFB] 
LODFAI 
10654] 
[9232] 
L9DA2] 
L8FACI 
L365C9 


LSASE] 
L9ABCI 


[8344 
[3E461 
LBC92] 
LSFBE] 
CF2F6] 


186961 
EDCFAI 


LCSAAI 
LESAEI 
[18401 
ED7SE] 
171921 


[346€] 


EcAC21 


L7A481 


EFS6CI 
[20541 
LD7FB1 
co100] 
[3838] 
12704) 
LEEA2] 
LcDaAI 


LE946] 


[8328] 
120981 
[59403 
[B4681 
LEE4EI 
L62D41 
LAScc1 


LBCF2] 
[21601 


LQE7AI 
£381C1 


163501 
LA23A1 
L&AECI 


73 


968 


970 


t$=eintr$ (ma, (blatt#*1&teing) )+STRING 
$(31-LENeintr$ (ma, (blatt*16) teing)) 
„128) 

LOCATE 9,eing+1:PRINT invoffszisztsz 
is 


IBM IF INKEY(B)=@ THEN 1988 

998 y$=INKEY$ 

1008 IF 'INKEY (2 THEN 1198 

1@1@ IF INKEY(3)=128 THEN IF INKEY(23)=1 
28 THEN CLS:60T0 358 


1928 IF INKEY(11 


128 THEN IF INKEY(23)= 
128 THEN eintr$(ma, (blatt*16teing)) 
="":G0T0 968 


19238 IF INKEY(4)=128 THEN IF INKEY(23)=1 


28 AND blatt=® THEN blatt=1:eing=1: 
CLS#2:G05UB 868: G0SUB 1878:G0T0 958 

1840, IF INKEY(12)=128 THEN IF INKEY (23)= 
128 AND blatt=1 THEN blatt=Bzeing=1 
:CL5#2:60SUB 868: G0SUB 1878: 6070 95 
[.) 

1850 IF INKEY(9)=@ THEN 1128 

1060 GOTO 968 

187@ LOCATE 9,eing+1:PRINT t$3 :RETURN 

1288 IF eing=i THEN GDTO 968 

1090 GOSUB 1970: eing=eing-1:6010 962 

1108 IF blatt=® AND eing=16 DR blatt=1 A 
ND eing=monla(ma)-16& THEN 968 

111@ GOSUB 1878: eing=eing+1:60T0 9640 

112@ LOCATE 9,eing+i:PRINT 

1138 IF LENteintr$ (ma,eing)) THEN PRI 
NT CHR$(7)3:LOCATE 9, Inge PRINT "Di 
eses Feld ist voll 3: FOR t=1 TO 
2U@0:NEXT t:G0OSUB 1870:G0T0 958 

1148 GOSUB 28@@@: eingabes=b$: IF LEN (ein 
gabe$)>3@ THEN 1138 

1158 eintr$ (ma,eing+blatt*16) =eingabes:W 
INDOW#@,1,48,4,22:G60T0 958 

116D ’-—-—— - 

1170 ' = 

1180 


1198 CLS:WINDOW SWAP 1,@:LOCATE 18,24:PR 


120@ DATA " Drucken 


"3 WINDOW SWAP 1,8 
11,10," *Menuex’", 


INT " Drucken 
22,10 


121@ flag=2:RESTORE 12@0:FOR t=1 TO 2:RE 


1220 


1230 


AD menue$ (t) ,a(lt) ‚b(t) sa$=menue$ (t) 
ıx=a(t)ı =b (t) :GOSUB 1788: MOVE 318, 
176:DRAWR 0,463: NEXT: px=2:py=1:wah 
1=1:60T0 408 

IF INP (&FS5@@)=98 THEN LOCATE 1,17:P 
RINT "<2>Bitte schalten sie den Dru 
Ent ein !"3:3PRINT CHR$(7)3:G0T0 12 
ELS 


1240 PRINT#8,CHR$ (27) 3 "x" 3CHRS&(1) 5 
1258 PRINT#8,STRING$ (48,"*") PRINT#B,"* 


Terminausdruck fuer"; TAB(23) ;mona$} 
TOR (32) } jahr. TAB (AB) | "RTLPRINTAG,ST 
RING$ (48, "*") }: PRINT#B: PRINT#B 


1268 druck=mona(ma)+1: IF druck=8 THEN dr 


uck=1 


127@ FOR t=1 TO monla (ma) 


1280 PRINT#8 


y$ (druck) ; TAB (12) ; :PRINT# 
&,USING "ART Et; PRINTNB,". " TABLE) 
jeintr$(ma,t 


1298 druck=druck+1:IF druck=8 THEN druck 
=1 

1309 NEXT t 

131@ PRINT#8:PRINT#8,STRING$ (48, "*") :PRI 
NT#8,"* Terminkalender * B) 
Schuster * 
):G0TO 1160 


1320 
1338 
1340 
1350 
1368 


1379 


1388 


1390 


Patrick 
PRINT#8,STRING$ (48, "*" 


zWINDOW SWAP 1,0 


INT "<2>Ladeng 
2 „11,18," *Menuer 


DATA "<Z>Ladeng 
"22,18 
+lag24:RESTORE 136B:FOR t=1 TO 24RE 


AD menue$(t) „att) „b(t) za$=menue$(t) 
ıx=a(t):y=b(t):GOSUB 1780:MOVE 318, 
176:DRAWR @,46,3:NEXTıpx=2:py=1:wah 
1=1:G0T0 4028 
LOCATE 19,13: PRINT invoff$; "Welches 
File -—->24>"}:LOCATE 27,1S:LINE IN 
PUT "",wahl$ 
PRINT invoff$ 


1408 IF LEN(wahl$)>8 THEN 1580 


1410 


GOSUB 2390: IF dis=5_THEN 1438 


1428 FOR t=1 TO 2@@0:NEXT t:CLS:60T0 132 


1438 OPENIN wahl$ 


1448 INPUT#9, jahi 
1458 FOR t=1 TO 


a 
NPUT#9,day$ tt) ‚day(t) 


:NEXT € 


1468 INPUT#7 ,mona® 


1478 FOR t: 
1488 FOR r: 


TO 12 
TO 32 


L2AB61 


C87E4] 
ESF2C9 
[23881 
L9F621 


[962AJ 


LBB86] 


LC45C1 


L828C9 
LAFZEI 
[8SBE1 
LDCF@] 
C7D281 
CLASEI 


13949] 
[942C) 
L7DCCI 


LFD9B] 
LD6C21 


L761A1 
CSSFCI 
ESSECI 
C3ABBI 


122481 
L0546] 


t48CA1 


CADAEI 
116981 
E144C] 


t@B8C] 


LSEA4] 
C2DD81 


[91081 


[9348] 
EA26EI 


LOC6EI 
CE344] 
[D118] 
LES48] 


CIBECI 
167041 


EBBEA] 


C6B441 
LD9BCI 
LESBA] 
E1A4C] 


LSAEEI 
LDA423 
[89481 


CCD441 
LF4A4] 
[B@36] 
CBF381 


1498 
1495 
1520 
1505 
1518 
1520 
1538 


1548 
1558 
1568 
1578 
1580 


1590 


1608 


1610 
1628 
1630 
1640 
1658 
1668 
1670 
1688 
1698 
1708 
1710 
1728 
1738 


1748 
1758 


1768 
1770 
1780 


1798 


1980 


1818 
1828 


1830 
1840 
1858 


1868 


1878 


1888 


1898 


1908 
1718 


1928 


1938 
1940 


1950 
1968 
1970 


1980 
1990 


INPUT#9 ,eintr$(t,r) 
IF EOF THEN CLOSEIN:GOTO 1538 
NEXT r 
IF EOF THEN CLOSEIN:GDTD 1538 
NEXT € 
ELOSEIN 
GOSUB 139:WINDOW SWAP 1,B:LOCATE 33 
+24: PRINT invoff$; jahr; WINDOW SWAP 
1,@:LOCATE 1@,12:PRINT "<413"; 608 
UB 2198:G0T0 1368 


- Speichern - 


CLS:WINDOW SWAP 1,8:LOCATE 18,24:PR 
INT "Speichern ";:WINDOW SWAP 1,0 
DATA Speichern,11,18," *Menue* ",22 
‚18 
flag=5:RESTORE 1580:FOR t=1 TO Z:RE 
AD menue$(t) ,att) ,b(t) za$=menue$s(t) 
ıx=alt)sy=bit OSUB 1788: MOVE 318, 
176:DRAWR 9,45,3:NEXT:px=2:py=1:wah 
1=1:G60T0 488 
LOCATE 1,13:PRINT invoff$; "Name der 
abgespeicherten Datei :"; jahr 
60SUB 2398: IF dis=5 THEN 1838 
FOR t=1 TO 28@8:NEXT t:CLS:G0T0 154 
a 
wahl $=STR$ ( jahr ) :OPENOUT wahl$ 
PRINT#9, jahr ‚ma 
FOR t=1’TO 7:PRINT#9,day$(t) ‚day(t) 
NEXT t 
PRINT#?,mona® 
FOR t=1 TO 12 
FOR r=® TO 31 
PRINT #9, eintrs(t,r) 

NEXT r 
NEXT t 
Ebeareı S3:PRINT "<39>":G0SUB 2218 
(a 18: En 
:60T0 1588 
H 
7A 
* 
"* Sub. 
* 
TRHHHEHHHHREEEHSHEEGSEHEEEH 
* 
LOCATE x-1,y-1:3PRINT invon$; :PEN 2: 
PRINT CHR$ (215) ; CHR$ (8) 5 :PEN 35:PRIN 
T CHR$ (213) 3 STRING$ (LEN (a$) „145) 5 CH 
na (212) ;CHRE(B) LerEN 2: PRINT CHR$(2 
Locäre x-1,ys:PEN 2:PRINT CHR$(143) 35 
:PEN 1:PRINT A$;:PEN 2:PRINT CHR$(1 
43); 
LÖCATE AOiyyelsBEN DAPRINT OhRs(212 

CHR$(B);5:PEN S: PRINT CHR$ (214);55T 
RING$ (LEN (a$) ,143) ; CHR$ (215) ; CHR$ (8 
);:PEN 2:PRINT CHR+(213)5 
RETURN 
Ra ee 


‘* Sub. Data 
* 
RHRRHBHERBSHEERBHRRBRRR 


Print Menue Icons (x,y,a#) 


Menue Icons (x,y,a$) 


* 
DATA " Eingeb: 
18," Zeitraum ",6 <2>Ladeng2>" 
25,4,Speichern,25,1@,D: ae | 
& 


® Januar<2>",5,4," Februar ",5 
>Maerz< ‚1a, "<2>Aprilc23" 


Juni<3>", 
August<2> 


"6,4 Ausdrucken ,&, 
18, 


7,13 
DATA Montag,Dienstag,Mittwoch,Donne 
rstag,Freitag,Samstag ‚Sonntag 
ck Warteschleife 

LOCATE 4,18:PEN 1:PRINT "** Bitte d 
ruecken sie die COPY-Taste #*"; 


Inkeyroutiene fuer Sub. Ico 


‘= Bewegung mit Cursor / Auswahl mi 
t COPY = 


in=11 
IF rag=1 AND INKEY(@)=B THEN rag=@: 
PRINT invoff$5 :LOCATE_ 16,16:PRINT m 
$jsrin=11:LOCÄTE 16,13:PRINT CHR$(Z 
4)5;" August<2>"; CHR$ (24) ; invon$: BOT 
0 206D 


LOsSE] 
L66AB] 
ECBEEI 
617983 
[CA741 
L79EA] 


[59281 
[76B41 
[37941 
CAEBBI 
EFS6EI 


LBEFEI 


LDEFCI 


LBAFBI 
[4A54] 
CBAFAI 
[878C3 
L7C3E] 
19842] 
L81A2] 
L403A] 
C80383 
EDBFCI 
EBIF2] 
CB478] 
[52883 


LSB1EI 
ECD4CI 


L2EA41 
L2F46] 
LD6ABI 


LD3581 


L465E1 


[4566] 
EBF941 


LC9ABI 
[BaOSC) 
LB9A41 


L8ADBı 
LEACQI 
[38081 


LACBBI 


LD5321 
[B692] 


LB5DA1 


L7F841 
L9F241 


L@B2EI 
EF@ABI 
L3A2CI 


[3834] 
[82081 


LIFSEI 


TANWW:HOMESOMPUTER 


Een 


2008 IF rag=1 THEN PRINT invoff$;:LOCATE 
16,13:PRINT " August<2>"3CHR$ (24); 

:LOCATE 16,16: PRINT m$;CHR$ (24) ;inv 

ontsin=11:B0T0 2268 L9F@4] 
2010 y$=INKEY$ [CEC2I 
2028 IF INKEY(@)=B THEN i '0TO 2108 [CA14] 
2050 IF INKEY(2)=@ THEN in=2:60T0 2128 L5D221 
2048 IF INKEY(8)=® THEN in=8:6070 2158 LB1421 
2050 IF INKEY(1)=@ THEN in=1:G0T0 2170 L792C1 
2068 IF INKEY(9)=B AND rag=1 THEN CLSıra 

g=0:60T0 35@ EFSacı 
2070 IF ragc>ı THEN IF INKEY(9)=@ THEN i 

n=9 Lce9C1 
2008 IF in-ii THEN 1978 La89E1 
2090 GOTO a5 LA2B&1 
Ataa IF wahızı or wahl=py+i OR wahl-pyn2 

+1 OR wahl=py#3+1 OR wahl=py#4+1 TH 

EN 408 L4E843 
2110 GOSUB 458: wahl-wahl-1:G0T0 408 EcaE23 
2120 IF flag-S AND mahl=B THEN rag=1:G08 

UB Asa’coro aaa 169861 
2130 IF wahl=py OR wahl=py#2 OR _wahl=py* 

5 OR wahl=pyss OR wahl=pysS THEN AG 00, 
2140 COSUB 45@:wahl=wahl+1:60T0 400 COCE4] 
2150 IF wahl<=py THEN 400 [28583 
2160 GOSUB 45@:wahl=wahl-py:G0TO 408 CDSSc3 
217@ IF wahl>=((px#py)-py)+1 THEN 40® L&CAs) 
Z18@ GOSUB 450: wahl=wahl+py:B0TO 408 [915C3 
2198 [25263 
2200 WINDOW SWAP 1,@:LOCATE 3,24:PRINT m 

Ona$; :WINDOW SWAP 1,B: RETURN LABBBI 
2210 'unnnnunacku ee 

PRPPEHII EEE taBicı 
2220 '* Berechnung des 1. j Monats u 

nd des Anfangswochentages * L6SE61 
223D "ea ke 

ERDPIPEIBBBeieBIMisieietoiebeteteket LCB2@) 
2290 nt=a29+ INT (565, 288 (jahr 19) L6E7CI 
2250 IF nt<694998 THEN ntent+i t258C3 
2260 IE Itck210s0 TEEN neantei [6362] 
2270 IF nt<584526 THEN ntent+1 [39841 
2280 IF nt>=767148 THEN nt=nt-1 [B9QEI 
2298 IF nt>=8036472 THEN nt=n [94821 
2308 IF nt>=848196 THEN nt=nt-1 LABF&I 
2310 w=(nt-2) /7:W=ROUND(7# (w-INT (w)) ,B) ECA7CI 
2320 IF jahr MOD 4@@=@ THEN schaltjahr=- 

1:60T0 2368 (52083 
2330 IF jahr MOD 1@0=® THEN schalt jahr=® 

:60T0 2368 116781 


2342 schaltjahr=jahr MOD 4=8 [89681 
235@ DATA 31,28,31,3@0,31,38,31,31,3@,31, 
30,31 L3E74] 


256@ RESTORE 235@:FOR t=1 TO 12:READ mon 

la(t):NEXT t:manla(2)=28-schalt jahr 
LaAıAı 

237@ mona(1)=w-1:FOR t=2 TO 12:m=(mona(t 

-1)-1)+monla(t-1)zmona(t)=(m MOD 7) 


+1:NEXT t L&C80] 

LBE9AI 

CD&D8] 

[B968] 

L6FCAI 

i 1652C1 
2438 OUT (&FA7E) „1:FOR i=1 TO 10@B:NEXT:0 
UT (&FB7F) „A: 0UT (FBF) , (-PEEK (&A708 
)+2) :5t=INP (&FB7F) :0UT (&FAFE) ‚Bird= 

st AND 32 141321 
2448 IF rd=@ THEN LOCATE 1,19:PRINT "Dis 


kette RT sich nicht im Laufwe 


= 
2458 von AND 64: IF wp=64 THEN LOCATE 2 
„19:PRINT "<3>Diskette ist Schreibg 


t4DB8] 


eschuetzt<5>"; :RETURN LOF9BJ 
246@ dis=5: RETURN LEA7B1 
247@ FOR t=1 TO 1Q0®:NEXT t:CLS:RESUME 3 
58 CADCCI 
20088 y-eing+1:x=7 L6SDEI 
20010 s=B:bs="" 116681 
20029 LOCATE »„yaPRINT CHRE (246) } [94321 
2003@ IF x=7 THEN 20@: tE@301 
20Ba0 LOCATE «1 yzPRINT MID$(h£ s,1);__ L9EBBI 
20050 as=INKEYS: IF as="" THEN GOTO' 20050 
13756] 
20060 IF INKEY(73)=B AND 25 THEN 20150 LAFBOI 
20070 IF INKEY(18)=® THEN 2@15i t@1ACı 
2u@eG IF ASC(ASI<SZ OR ASC{AS) 9124 THEN 
CDDZEI 
20098 1F X239 THEN 20100 ELSE xextliumet 
1:LOCATE x,y:PRINT a$j:b$=b$ta$  LDSC2] 
22100 GOTO 20020 [B3CQI 
20110 : 1179C1 
20120 : LOs9EI 
13@ IF x=9_THEN 20140 ELSE x=x-l:s=s-1 
3LOCATE x+1,yzPRINT " "5:LOCATE 9, 
ysb$=LEFT$(b$,5) :PRINT b$3" "; LBEA4I 
2@14@ G0TO 20920 t2BC8] 
2@15® RETURN EDFF@I 


Listing. Alle Termine fest im Griff (Schluß) 


Geld regiert die Welt 


Es gibt wohl heutzutage und hierzulande nieman- 
den mehr, der nicht über ein Girokonto verfügt. 
Nutzen Sie Ihren CPC zur effizienten Kontrolle der 
ständigen Geldbewegungen. 


it einem Girokonto lebt es sich doch sehr ange- 
nehm, denn man braucht sich eigentlich um nichts 
zu kümmern. Daueraufträge, Einzugsermächti- 
gungen und viele Errungenschaften mehr nehmen Ihnen alle 
Arbeit ab. Aber manchen läßt doch nie das Gefühl los, er 
müsse sich von Zeit zu Zeit von der Korrektheit seiner Konto- 
führung selbst überzeugen. Diesem Zweifler geben wir mit 


1. Eingabe Gehalt 
@. Eingahe Ahzuege/Bezuege 
3. Buchungssaetze fest 


Anzeige Kontostand 
8. Konto-Statistik 
6. Vorschau 


7. Datensicherung 
8. Ende der Arbeit 


Auswahl 
= 


Die Menüpunkte von »Giro« 


»Giro« ein Hilfsmittel an die Hand, das es ihm erlaubt, außer 
regelmäßigen Kontrollen auch Vorausplanungen leicht und 
schnell durch seinen CPC ausführen zu lassen. Da das Pro- 
gramm komplett über Menüs dialoggesteuert abläuft, 
beschränken wir hier die Ausführungen auf ein notwendiges 
Minimum. Beim ersten Programmstart ist zunächst die Ein- 
gabe von Fixbuchungen notwendig. Alle anderen Funktionen 
bleiben vorher gesperrt. Zusätzlich fordert Giro später von 
Ihnen die Eingabe der laufenden Einnahmen beziehungs- 
weise Ausgaben. Jeweils am Monatsanfang geben Sie dem 
Programm Ihr Gehalt als Eingang bekannt, worauf es dann die 
Fixbuchungen listet und gegenrechnet. Bei Anzeige des 


Miete 


0 DM| |Miete 1498 . iete 140 
Lebensversich 4-1 DM| |Lebensversich 92. [u msyersich 92,1 
Hausratversic 189. 1.) Heizkosten ER inente 5. 
Alinente 578.80 DA} |Alinente . 
I 
Belastung: 2251.08 m) Belastung: 2327.00 DM| (Belastung: 2862.08 DM 


au werden nur die fest angelegten Buchungssaetze verwendet !! 


aktuellen Kontostandes erscheint im rechten Teil des Bild- 
schirms zusätzlich der Vormonat zum Vergleich. Insgesamt 
passen 17 monatliche Buchungen auf den Bildausschnitt. 
Selbstverständlich können Sie auch mit mehr Buchungen 
arbeiten; dann ist jedoch erforderlich, per Tastendruck auf 
die nächste Bildschirm-Seite zu blättern. Für den schnellen 
Überblick sorgt eine Statistikfunktion mit Anzeige der bislang 
aufgelaufenen Beträge einzelner Fixbuchungen. Besonders 
interessant ist sicherlich die Vorschau auf die nächsten drei 
Monate. Bei dieser Berechnung sind natürlich nur die Fix- 
buchungen berücksichtigt. Damit Sie nicht bei jeder Benut- 
zung des Programms alles neu eingeben müssen, läßt sich 


der erfaßte Datenbestand auf Datenträger sichern - das ist 
dringend anzuraten, bevor Sie mit dem Menüpunkt 8 (Ende 
der Arbeit) den Programmlauf beenden. 


(Ingo Strecker/ja) 


Steckbrief 
Programm: Giro 
Computer: CPC 464/664/6128 
Checksummer: Explora 
Datenträger: Kassette/Diskette 


10. RRRRRHHOHHRRHRBERBRSRR LE8281 
20 'x* Copyright by * [90621 
30 '* * L77FC1 
20 '* Ingo Strecker * LA79EI 
50 '* Haigerlocherstr .55 * La6rc] 
80 '* 7450 Hechingen * 1B674] 
70 °* * 194043 
0 '* Tel. 07471/13197 * {B55A1 
70. RRRRHRRRHRRRRERSHRR [10383 
100 GOTO 400 LEASCH 
102. RER 175381 
104 '  Kontostandsanzeige L906E1 
106 Se [71401 


119 DATA Januar ‚Februar ‚Maerz ,April,Mai, 
Juni ‚Juli ‚August ‚September ‚Oktober ‚N 
ovember ‚Dezember 140241 
120 li=4:MODE 2:PRINT CHR$(24)3:PRINT SP 
ACE$A0):LOCATE 1,13 PRINT"22>Kontost 
and von "alt" am 'bs"":FRINT CHR$ (24 


y 100201 
130 IF bi=nu e 
120 WINDOWHL DISS, 2021: NINDOW#2,4S TE 
21:PLOT 0,37. „0: 
12:DRAWR -312,0:DRAWR 0,312:PLOT 327 
RAUR 312,0:DRAUR 0,-312: DRAWR 
„0: DRAWR 0,312 LFADBI 
150 RESTÖRE:FOR k=1 TO VAL(MIDSCh+,4,2)) 
:READ f#: NEXT LOS2EI 
160 RESIORE:FOR k=1 TO VAL (MIDS(b1$,4,2) 
}:READ NEXT L7CF41 
170 IF bi8 THEN 280 150503 


180 LOCATE#2,15, 13 PRINT#2,CHR$(24)" "F1$ 

" NEHR$ (24) :PRINT#2, "Kontostand 0 

CATE#2,27,2: PRINT#2, USING" 444.44 D 

Mzialt tsEC0I 
190 LOCATE#2,1,11:PRINT#2, "Gehalt" :LOCAT 

E#2,27,11: PRINT#Z,USING"#####.## DM" 

;balt:FOR k=1 TO falt:IF el(k)=0 THE 
1+1:LOCATE#2,1,11:PRINT#2,calt 
OCATE#2,27 ,11:PRINT#2,USING"## 
st. DM" calt ik) 178481 
IF eil L(MID$(b1$,4,2)) THEN 11= 
1141: LOCATE#2,1,11:PRINT#2,calt$ck) 
LOCATE#2,27 ,11: PRINT#2 USING" HH. 
# DM"zcalt(k) tcA121 
210 NEXT LACEA3 
220 IF halt+11>17 AND a=4 THEN LOCATER2, 

1,1142: PRINT#2,CHR$(24)" zum Blaette 

rn Taste "CHR$124):CALL &BBO6 ELSE 2 


C30BA1 


230 LOCATE#2,15,1:PRINT#2,CHR 

+1#" "CHR$ (24) :PRINT#2,"Kont 

:LOCATE#2,27,2:PRINT#2,USING 
"DM" zialt TAB28] 

240 FOR i=i TO haltzl1=11+1:LOCATERZ,1,1 
:PRINT#2,ealt$(k):IF LEFTF(galt$tk) 

-" THEN LDOCATE#2,26,11:PRINT#2, 

LOCATE#2,27 ,11:PRINT#2 ,USING"### 

##.4# DM"; VAL(MID$ (galt#(k) „2)):60TO 

260 ELSE LOCATE#2,26,11:PRINT#2,"+" 


ES9F81 
250 LOCATE#2,27,11:PRINT#2,USING"#H###.# 

# DM"ZVALtgaltsck)) EDSFEI 
260 NEXT L&4EE1 
270 LOCATE#2,1,19:FRINT#2,"Kontostand ne 
:LOcATeR2, 27,19: PRINT#2 USING" HH 


153861 
289 1=4 LocATERl, 15,1: PRINT#1 ,CHR$(24)" 
++ "EHRE (24) PRINT#1 ,"Kontostan 
:LOCATE#1 „27 „23 PRINT#1 „USING"HHRHH.# 
# DM";si:IF a=1 THEN RETURN [00101 
290 LOCATE#1 ,1,1:PRINT#1 ,"Gehalt"=LOCATE 
#1,27,1:PRINT#1 ‚USING ##H##.## DM";b 
:FOR k=1 TO fzIF eitk)=0 THEN I=1+1: 
LOCATE# ‚1,1: PRINT#1,c#(k) :LOCATE#1, 
27 ,1:PRINT#1 „USING"###4H#.## DM";c(k) 


LIBESI 


IF elik)=VAL(MIDFb#,4,2)) THEN 1=1+ 
1:LOCATE#1,1,1:FRINT#1,C$(k) :LOCATEH 


310 
320 


410 


415 


420 


430 


1,27 ,1:PRINT#1 USING" #####.## DM";c( 
x} 


NEXT 

IF h+1>17 THEN LOCATE#1,1,1+2:PRINT# 
1,CHR$(24)" zum Blaettern Taste "CHR 
${24):CALL &BB06:CLS#1:1=3:flagi 
OCATE#1 ‚15,1: PRINT#1 ,CHR&(24)" "£ 
"EHRE (24) :PRINT#1 , "Kontostand: ":LOCA 


TER ZZ ERININLZLUISTNSIRUERRERRTDN 
FOR P=1 TO hel=141:LOCATERL, 1,13PRIN 
Tal,esl F LEFT$(g$Ch) , 


LOBATEH1 ‚26,1: PRINTH1, "7 
27 ,1:PRINT#1 USING" #4. ## DM" 3 VAL C 
MID$tg$tk) „2)):G0T0 350 ELSE LOCATE# 
1,26,12PRINT#1,"+" 
LÖCATE#1,27 ,1:PRINT#1 USING" #4HHdbH. HH 
DM"; VAL !gE IK) ) 
NEXT 
LOCATE#1 1,19: PRINT#1,"Kontostand ne 
u: "sLOCATE#1 527,19: PRINT#L ‚USING"### 
#4 DM"; 352 IF Flagic>i THEN 390 
LOCATE#1,1,1+2:PRINT#1,CHR$(24)" Bla 
ettern 7? {J/N) "CHR$ (24) :flagi=0 
d$=INKEY$: IF d$; THEN 380 ELSE IF 
LOWER$ (d$I="j" THEN CLS#1:60T0 280 
RETURN 
RRRRHRRRARSERHRRRH 
Initialisierung 
RRRRRRSRRRRERRR 
# =0: INK 2,24:DIM c$(20) „c (20) ‚cs 
(20) ‚d(20) ‚e(20) „e$(20) ‚g$(20) ‚e1 120 
} ,ealt#(20) ‚galt$(20) ‚b2$120) ‚b2alt# 
120) ‚calt# (20) ‚calt (20) 
MODE’ 1=PRINT CHR$ (24) "<S>Anmeldung z 
um Programm<2>K OD N T OSA2"CHRS (28): 
LOCATE 1,8: FRINT"Konto-Inhaber : ":LOC 
ATE 1,13:PRINT"Datum (TTMMII) 
LOCATE 1,25:PRINT CHR${24)"” Hei Neua 
niage eines Kontos: "SPACE$ (12) CHR$ (2 
4); :PRINT:PRINT"Konto-Inhaber: neuan 
ade 
LOBATE 17,8: INPUT" ‚as2LOCATE 17,13: 
INPUT"" ‚b3$:bS$=MID$ (bS$,1,2) +". T+MI 
D$(b38,3,2)+", "+MID$(b3$,5,2) 
IF LOWER$ (a$)<>"neuanlage" THEN GOSU 
& 1290 ELSE CLS:PRINT CHR$124) "C6>Ne 
uanlage einer Konto-Datei<72"CHRS (24 
}:LOCATE 1,8: PRINT"Konto-Inhaber:":L 
OCATE 1,13!PRINT"Kontostand altz:":LO 
CATE 17,8: INPUT"" „a$3LOCATE 17,13: IN 
PUT" jrals=asıtlagei 
RR 
Hauptmenue 
RT 
MODE 1:FRINT STRINGS (40, "-")CHR$ (24) 
TAB (13) "Kontofuehrung" SPACE$ (15) CHR$ 
(24) STRINGS (40 ,"—") 
LOCATE 1,6:PRINT"1. Eingabe Gehalt": 
FRINTSFRINT"2. Eingabe Abzuege/Bezue 
ge":PRINT:PEN 2:PRINT"S. Buchungssae 
tze fest":PEN 1:PRINT:PRINT"4. Änzei 
ge Kontostand": PRINT 
PRINT"S. Konto-Statistik"zPRINT:PRIN 
T"6. Vorschau" :FRINT=PRINT"7. Datens 
icherung" :PRINT 
PRINT"8. Ende der Arbeit" 
IF flag=1_THEN INK 2,0,24 
LOCATE 1,23: PRINT"Auswahl":LOCATE 1, 
25: INPUT"" ‚asIF flag=i AND a=S THEN 
INK 2,24 ELSE IF #lag=0 THEN 500 ELS 
E 480 
IF a1 OR a>8 THEN 480 
ON a GOSUB 530,640,810,1040,1490,162 
0,1120, 1480 
SOTO 440 
IE ee 
Gehaltseingebe 
RR 


CO21E] 
L&SE61 


168701 


TE194] 


136161 
C&BEEI 


LF8541 
662781 


LIFF&I 
CAASB] 
L74A21 
LESEEI 
L7CAAI 


199601 


103481 


L7C4EI 


EiFAAl 


[62E81 
[8478] 
C9BBC) 
LACAOI 


ECF4A1 


179281 


CBCF23 
£0DC93 
[67081 


LCBB41 
[SBEAI 


LE4001 
{F8501 
[55981 
C63B21 
L8DAOI 


TQUwW.HOMESOMPUTER 


530 


540 
550 


560 
570 


sa 


5” 


600 
610 


620 
630 
632 
634 
636 
640 
650 


660 


670 


680 


690 


700 


710 


720 


730 
730 


750 
760 


770 


780 


790 


800 


bi$=b$:b$=b3$:haltshrialt=iri=jrbalt 
Sb:falt=f 

FOR flalt=1 TO falt:calt$(flalt)=c#t 
+lalt)zcalttflalt)=c(f1alt) NEXT 

FOR hlalt=1 TO halt:ealt$(hlalt)=est 

hialt)zgalt$(hialt)=g#(hlalt):b2alt£ 
(hialt)=b2$ (hlalt) NEXT 

h=0:G0SUB 120 

WINDOW#4 ‚1,80, 23,25: PRINT#4 ,CHR$ (24) 
:CLS#4: LOCATEH4 ‚2,2: INPUT#4,"Gehalt: 
",bzPRINT#4 ,CHR$ (24) : j=i+b 
LOCATE#1 ‚1,13 PRINT#L 

#1,27 ,1:PRINT#1 ‚USING #444. AM DM"; b 
:bs=bs+b:FOR k=1 TO f:IF eik)=0 THEN 
1=1+1:LOCATE#1 ,1,1:PRINTH1,c#(k) LO 

CATE#1,27,1:PRINT#1 USING" #Ann#.## D 

M"ictk)ajej-c(k)scsik)=estk)+c ik) 

IF e(k)=VAL(MID$(b#,4,2)) THEN 1=1+1 
tel(k)=e(k)reik)=e(k)+d(k) LOCATENL, 
1,1:PRINT#1 ,c#(k) ıLOCATE#1 ,27,1:PRIN 

TAL USING" ARRHH. HA DM" Sc ck) a j=j-c (ke) 
ıcs(k)=cstk)+cik)sIf e(k)>12 THEN et 

ki=e(k)-12 

NEXT 

LOCATE#1 „1,19: PRINT#1,, "Kontostand ne 

LOCATE#1,27, 19: PRINT#1 USING" HR 

DM 5 

CALL_&BBO& 

RETURN 
RR 

Abzuege/Bezuege eingeben 

EEEELELELEULUUEEE LEE 

MODE 1:PRINT CHR$ (24) "<5>##* Auswahl 

moeglichkeiten ##**(&>"CHR$ (24) : PRINT 


:PRINT=PRINT"1. Abzuege eingeben" :FR 
INT3PRINT"2. Bezuege eingeben":PRINT 
:PRINT"S. Hauptmenue" 


LOCATE 1,23: PRINT"Auswahl ":LOCATE 1, 

25: INPUT?" yalıIF al=3 THEN 440 ELSE 

IF alcı OR’a1>3 THEN 650 e 

GOSUB 120:WINDOW#S,1,80,23,25 

heh+1: PRINT#3 ,„CHR$ (24) : ELS#S:PRINT#S 

„"<2>Buchungstextz ":PRINT#3,"<2>Buch 

Ungsbetrag: ":PRINT#3,"<2>Weiter buch 

en ?? (J/N)ı":LOCATERS,44,1:PRINT#S, 
NL EG E N":LOCATER3,A4 2: PRINTA 

3,"Buchungstext: a<32--> Satz aender 


„44,3: PRINT#3, "Buchungsdatum 
B b2$h)=MID$ (B3$, 1,2) +MID+(b 
3#,4,2) +MID$ (b3$,7,2) :LOCATERS, 19,1: 
INPUT#S,"" ‚es(h) 
IF e$(h)=LÖWERS ("a") THEN h 
SLPRINT#S, "<2>Buchungstext: 
IF LEFTStgE(H) „1)="-" THEN PRINT# 
3, "<2>Buchüngsbetrag: "g$th)"" ELSE P 
RINT#Z, "<Z>Buchungsbetrag: "+"+"g&(h) 
BaYELse 985 
LOCATE#S, 44, 1: PRINT#S, "Buchungstext: 
:LOCATERS,44 ‚2: PRINT#S, "Buchungsbet 
rag: "ıLOCATER3,60, 1: INPÜTRS,"" ‚eit:l 
OCÄTERS,60 ,2: INPUT#S,""‚gi$i IF el$> 
"" THEN es {h)=ei$ 
IF gi$<>"" AND LEFT$(g$(h 
EN J=3+VAL(MIDS (g$ (h) „2) )-VAL(g1E): 
$ch)="-"+g1$ ELSE IF g1$C>"" AND LEI 
T&(g6(h) ,L)<>"-" THEN j=j-VAL(g&ch)) 
+VAL(gi$)g$Ch)=git 
LOCATE# „1,1: PRINT#1 „SPACE£ (39) :LOCA 
TE#1,1,12PRINT#1 ,e# ch) :LOCATEM1 ‚27,1 
:PRINTH1 ‚USING"AAAHN. AM DM"; VAL {MID+ 
(a8 th) „BI EIF LEFTSCGEUN) LI STTT THE 
N LOCATEN1 526,14 PRINT#1,"-":G0TO 740 
ELSE LOCATER# ‚26,1: PRINTAL "+" 
LOCATE#1,27, 1: PRINT#1 „USINGTAHnn#.## 
DM"; VAL {gs th) ) 
LOCATE#1, 1,19: PRINT#1,"Kontostand ne 
u: "sLOCATER1 27,19: PRINT#L," ML 
OCATER1 ,27 ‚19: PRINT#1 USING" ÄRRRR. HN 
DM"3 33 :PRINT#S,CHRS (24) 
CALL %&BB06:G60T0 540 


LOCATERS ‚19,2, INPUT#S, "298 h) sLOCAT 
E#3,26,3: INPUT#S,"" „d$: PRINT#S,CHRE( 
24); 

1=1+1:IF al=1 THEN j=j-VAL(gsih))egs 
{h)="-"+g$(h) ELSE IF al=2 THEN j=j+ 
VAL tgEs(h)) 

IF LEFT$tg$Ch) ‚L)="-" THEN LOCATE#, 
26,1: PRINT#1,"-":LOCATE#1,1,1:PRINT# 
1,8% ch) :LOCATE#1,27 ,1:PRINT#1 „USING“ 
DM" VAL MIDS (g$ (h) „29 ):G0TO 
800 ELSE LOCATE#1 ,26,1:PRINTRL,"+" 

LOCATE#1 „1,1: PRINT#1,e$&(h) :LOCATER, 
27 ,1:PRINT#1 ,USING"#####.## DM"; VALC 
gtin)) 

LOCATE#1 ‚1,19: PRINT#1 "Kontostand ne 
us ":LOCATEF1 ‚27,19: PRINT#1 ‚USING"### 
##.## DM"; j5: IF LOWER$(dS)="n" THEN 

CALL &BB06:50T0 640 ELSE 670 


TH 


„i)=" 


102881 
CO9E21 


LIEAOI 
CSDFAI 


170421 


EBEDCI 


LICFBI 
[7CEAI 


£317C] 
LB3083 
CDD323 
1949C1] 
L40B4] 
[SCA4I 


180421 


EDBICI 


CAADBI 


LEAFCI 


LEESCI 


E10921 


[2138] 


LEEDS] 


1730C1 
L65161 


172841 
1436A] 


EFFFAI 


188281 


194741 


127AAJ 


LiC161 


802 
804 
806 
810 


815 
820 


830 
840 


850 


860 


870 


880 


890 
300 


910 


920 


930 
940 


950 
960 
979 


980 


990 


UNKKauuuEEEreereerereereeee 
Fixbuchungen anlegen 
Eee Eee ne 
MODE 1:PRINT CHR$(24)"<S>##* Auswahl 
moeglichkeiten #**<&>"EHR$ (24) :PRINT 
PRINTSPRINT"1. Buchungssatz anlegen 
RINT:PRINT"2. Buchungssatz aender 
RINT:PRINT"3. Buchungssatz loesc 
PRINT 
Buchungssatz anzeigen":PRIN 
TzPRINT"S. Hauptmenue" 
LOCATE 1,23: PRINT"Auswahl ":LOCATE 1, 
25: INPUT"",a:rIF a<1 OR a>5 THEN 820 
ON a G0TO 840,910,980,1010,440 
MODE 1:WINDOW#1,1,40,1,14:WINDOW#2, 1 
‚40,15,25:PRINT#1,CHR$24)" Bitte in 
der Spalte<2>>>Zahlungsw i 
e entsprechende Kennzahl ein 
"CHR$ (24) : LOCATE#L „1,5: PRINTML, 
monatlich" :PRINT#I:PRINT#1, 
%<-- zweimonatlich":PRINT#L 
PRINTML, "3< viertel jaehrlich":P 
RINT#1:PRINTHI ,"6<2><-- halbjaehrlic 
h"zPRINT#1:PRINT#1,"12 <—— jaehrlich 


CLS#2: =f+1: PRINT#2,STRINGS (40 
PRINT#2,"Buchungstext: ":PRINT#2:PRIN 
T#2, "Buchungsbetrag: ":PRINT#2:PRINT# 
2, "Zahlungsweise: ":PRINT#2:PRINT#2:P 
RINTA2:PRINT#2, "Anlegen Ende 7? (J/N 
) ":LOCATE#2,33,2:PRINT#2 „CHR$ (24) UST 
NG" Nr.:##_";#:PRINT#2,CHR$ (24) 
LOCATER2, 17 ‚5: INPUT#2, 7" „c$ (#) LLOCAT 
E#2,17 ‚5: INPUT#2,”" ,c (#) :LOCATE#2,17 
17: INPÜT#2,"" ,d(#) 

IF d(#)<>1 THEN LOCATE#2,1,9: INPUT#2 
‚"naechster Faelligkeitsmonat: ",e(f) 
ei (f)=e(f) :LOCATE#2,23,11: INPUTR2," 
‚ds ELSE LOCATE#2,25,11: INPUT#2,"", 
ds 

IF flag<>1 THEN j=j-eif)scs{f)=ctt) 
IF LOWER$ (d$)="n" THEN 860:f=f-1 ELS 
E flag=0:6070 810 

CLS: INPUT"Buchungssatz aendern Nr. " 
‚f1:LOCATE 1,4: PRINT"Buchungstext:<3 
2"c$ (#1) "":PRINT:PRINT"Buchungsbetra 
g: "c (#1) "":PRINT:PRINT" Zahlungsweise 
"d(#1)""zPRINT:PRINT"naechster Fae 
lligkeitsmonat: "e(f1)"" 

LOCATE 1,15: PRINT"Buchungstext:":PRI 
NT:PRINT"Buchungsbetrag: ":PRINT:PRIN 
T"Zahlungsweis: RINT"naechs 
ter Faelligkeitsmonat: ":LOCATE 17,15 
: INPUT"" ‚c1$zLOCATE 17,17: INPUT"",c1 
:LOCATE 17,19: INPUT"",d1:LOCATE 30,2 
1: INPUT"" ‚ei 

IF c1$<>"" THEN c$(fl)=ci$ 

IF c1<>0 THEN j=j+c(f1)-elscstfi)=cs 
#I-c(f1)+clectfl)=ci 

IF d1<>0 THEN d(#1)=d1 

IF ei<>O THEN e(fi)=ei 

60T0 810 


CLS: INPUT"Buchungssatz loeschen Nr. 

",+1:LOCATE 1,7:PRINT"Buchungstext:< 
Z2"c# (#1) ""PRINT:PRINT"Buchungsbetr 
ag: "c (#1) "":PRINT:PRINT"Zahlungsweis 
er "di#l) RINT:PRINT"naechster Fa 
elligkeitsmonat:"etf1)"" 

LOCATE 1,19: INPUT"Soll geloescht wer 
den?? (J/N) ",d$:IF LOWER$(d$)="n" T 
HEN 810 ELSE j=j+tctfi)zcstfl)=cs(f1) 
-e (41) 


1000 FOR k=#1 TO fzc#(k)=c#ik+l)scik)=ct 


1010 


1020 


1030 
1032 


1034 


1036 
1040 
1050 


Listii 


k+l)sd(k)=d(k+1)zeik)=e(k+1) :NEXTEF 
=f-1:LOCATE 1,22: PRINT CHR$(24)" 8 
at 2653 stipgeloescht " 
CHR$ (24): FOR k=1 TO 2000: NEXT:GOTO 


810 
MODE 2+PRINT CHR$(24)" Nr.<2>Buchun 
gstext Buchungsbetrag<$>Zahlueis 
e Dekanat rehRE(SATLFOR kei 
Ti CATE 2,k+2:PRINT USING"##"5k 
3LOCATE 7,k+2:PRINT c$(k)zLOCATE 1 
„K+2: PRINT USING" ##R##.## DM" ck) 
LOCATE 50,k+2:PRINT USING"##";dik): 
LOCATE 64 ,k+2: PRINT USING"##"je(k): 
NEXT:LOCATE 1,25: PRINT"Weiter mit T 
aste 
d$=INKEYS: IF d$="" THEN 1030 ELSE 8 
10 
er 
Kontostand anzeigen 
UnKKunnaKuKeHEEar re 
60SUB 120 
WINDOW#S, 1,80 ,23, 25: PRINT#3,CHR$ (24 
}:CL5#5: PRINT#S: PRINT#3,"<23Buchung 


ing. Immer auf dem laufenden mit »Giro« 


L7BFA1 
LAA46I 
c83A21 


Lö6E41 
CBDEBI 


106341 
197661 


EDDOEI 


LO7FO] 


[30601 


CBFBAI 


LE76A1 
14534] 


LF74EI 


CCAF2I 


LES7AI 
[04681 


[SCC2] 
CDA721 


LDO7A1 
C1D641 


LOBEEI 


ES2AEI 


CAF7CI 


170181 


LDAFCI 


LBBEB1 
C74F21 
LEFORJ 
E7CFAI 
615301 


MERER 
WWW.HOMEEO: 


Zee 


1060 


1070 
1080 


1125 


TBWWW.HOMECOMPUTE 


sdatum- einblenden ?? (J/N) ":PRINT#S 
„CHR$ (24) 

d$=INKEYS: IF d$="" THEN 1060 ELSE I 
F_LOWER$ (d$)="n" THEN RETURN 

IF LOWER$td$)<>"j" THEN 1060 
11=11-halt:FOR k=1 TO halt:l1=11#1z 
LOCATE#2,19,11:PRINT#2,b2alt$ck):NE 
xT 


1=1 FOR k=1 TO h:1=1+1:L0OCATE#1,1 
9,1 RINT#1,b2$(k) NEXT 

CALL &BBO& 

RETURN 
ETUPUEFEPREPERPRERUELDERDE REN 
‘Datensicherung 

RER TUEHLEEHCHUHE PERRDEULERREEN 
CLS:LOCATE 9,1: PRINT CHRS(24) "0% D 


atensicherung ***"CHR$ (24) zLOCATE 1 
‚7: PRINT"Bitte Kassette mit der Dat 
3>KONTO<< einlegen !!!ı" 

Loi 1 12: PRINT"Bitte die Tasten 
CHRS$ (24) "Recor d"CHR$ (24) " „"CHR$ (24 
)"Play"CHR$ (24) " und "CHR$124) "ande 
re Taste"CHR$(24)" druecken !!":CAL 

L_&EBO& 

SPEED WRITE 1:OPENOUT* !konta" PRINT 

#9 ,2% 

PRINTH9,b# 

PRINTH9,b1% 

PRINTH9,b4$ 

PRINT#9,byba,f,hri,j,halt,ialt,balt 

„fa 

FOR fi=1 TO f:PRINTNF,c# (#1) 

PRINT#9,c (#1) „as (#1) Alf) „etfl) ‚ei 

KA1) SNEXT 

FOR hi=1 TO hıPRINT#9,e#ch1) 

PRINT#9,b2& (h1) 

PRINT#9,g$Ch1) zNEXT 

FOR #lalt=i TO falt:PRINT#9,calt$(# 

1alt) 

PRINT#9 ‚calt (flalt) :NEXT 

Für hlalt=i TO halt:pRINT#9,ealtsch 
a 

PRINT#9 ,galt#(hlalt) 

PRINT#9)b2alt$(hlalt) 

NEXT:CLÖSEQUT:GOTO 440 

205020202 21 2 2 2 2 SS 2 2 SS 2 1 0 1 0 1 1 SE 2 2 2 2 

Daten einlesen 

KEnKuHEHNEN RUE 

CLS:LOCATE 1,7:PRINT"Bitte Kassette 
mit der Datei<2>>>KONTO<< einlegen 
11 U"LLOCATE 1,12:PRINT"Bitte die 

Taste "CHR$ (24) "Play"CHR&(24)” und 

HR$ (24) "andere Taste"CHR$ (24) "dru 

ALL &BBO& 

konto": INPUT#F,al$ 

IF as<>ai$ THEN CLS:CLEARSINK 2,1,2 

4:PEN 2:LOCATE 11,10: PRINT"FALSCHE 

DATEI tr 13 FOR y=1 TO _10:F0O 

R x=1 TO SO0:NEXTPRINT CHR$(7):NEX 

TsG0TO 410 

INPUTHF ,b$ 

INPUT#9}b1$ 

INPUTHI,b4$ 

INPUT#9b,bs,f,h,i,j,halt,ialt,balt 

‚falt 

FOR f1=1 TO frINPUTHF,CHLHL) 

INPUT#F ,E (#1) ‚ewtf1) ‚Atf1) yetfi),ei 

(FU) SNEXT 

FOR hi=1 TO hr INPUT#9,e#(h1) 

INPUT#F,b2$ (h1) 

INPUT#9,g#h1) 

NEXT 

FOR flalteı TO falts INFUTHT,calts(# 
alt) 

INPUT#9 „calt (fialt):NEXT 

FOR hlalt=1 TO halt: INPUT#9,ealt$(h 

1alt) 

INPUT#9 ,galt$(hlalt) 

INPUT#?,b2alt${hlalt) 

NEXT: CLÖSEIN: RETURN 

CLS:END 
PECRPOEIREUEREREEEEEUPUUPLEET 
Statistik 

TITTTIETIENERREPERERULDORDUEEN 

MODE 1:PRINT CHR#(24)"<5>#** Auswah 

Imoegiichkeiten ##*(6> "CHR$ (24) :PRI 

NT:PRINTSPRINT"1. Statistik anzeige 

n":PRIN RINT"2. Statistik neu beg 

innen": PRINT:PRINT"S. Hauptmenue” 

LOCATE 1,25: PRINT"Auswahl ":LOCATE 1 

‚25: INPUT"",a2: IF a2<1 OR a2>3 THEN 
1500 

ON a2 GOTO 1520,1590,440 

NODE 2:FRINT CHRF(24);: PRINT SPACES 

180) :LOCATE 1,1: PRINT"<2>Kanto-Stat 

istik von "alt", gestartet am "b4#" 

":PRINT CHR$(24) 

LOCATE 1,3:PRINT"Gehalt OCATE 27, 

S:PRINT USING"#####.## DM";bs:FOR k 

=1 TO 17:IF k=f+l THEN 1560 ELSE LO 


[C7D61 


L73A81 
LEBF&1 


L400A1 


CDD98J 
LFOSCI 
[84861 
LABFOI 
COoD441 
LBOFBI 


174381 


LIAFCI 


L8A341 
[8E021 
[0066] 
L7ESEI 


LABFEI 
ES1FA] 


156923 
C2EFCI 
LAAS6] 
EFBDOJ 


C1DFAI 
[0884] 


L140E1 
EBOEAJ 
152461 
ESCFAI 
LC000 
CesAAı 
[78081 


(785E1 
128841 


LAZE2I 
184081 
CE96CI 
113743 


LD7041 
108003 


TAAFB] 
[36143 
[BB4EI 
EF&E4] 
CFBAA] 


134021 
t888C3 


CF2161 
LECF21 
EF24E1 
194181 
LFDCOI 
[54041 
£C1703 
T4C0C3 


L21A01 


LESOCI 
LED&EI 


LFEAs] 


1540 
1550 


1560 
1570 


1580 
1590 


1600 


1610 
1612 
1614 


1616 
1620 


16830 


1640 
1650 
1660 
1670 
1680 
1699 
1700 
1719 


1720 


1730 


1740 


1750 


1760 
1770 


1780 


1790 


1800 


1810 
1820 


1830 
1840 


1850 


1860 


1870 


CATE 1,k+43PRINT c#(k)sLOCATE 27,k+ 
A:PRINT USING"ARAHH.AN DN"zes tk) NE 
xT 
FOR k=2 TO 22:LOCATE 40,k:PRINT CHR 
#145) :NEXT 
FOR k=18 TO S4sIF_k=f+1 THEN 1560 E 
LSE LOCATE 43, 1 RINT c$(k)zLOCA 
TE 70,K-15:PRINT USING" AHHHH. AH DM" 
3cs(k) NEXT 
FOR k=2 TO 22:L0OCATE 40,k: PRINT CHR 
$(145) 2NEXT 
WINDOW#A „1 ,80,23,25: PRINT#4 ‚CHR (24 
):CLS#4: LOCATE#4 ,2,2:PRINT#4,"In di 
eser Statistik werden nur die fest 
angelegten Buchungssaetze verwendet 
: PRINT#4 „CHR$ (24) 
CALL #BBO&:GOTO 1490 
MODE 1:PRINT"Soll Statistik neu beg 
onnen werden ??" :PRINTEPRINT" (J/N) " 
PRINT: INPUT d&:PRINT 
IF LOWER$(d$)="n" THEN 1490 ELSE 
=0:FOR k=1_TO f1c5(k)=O:NEXTEPRINT 
Statistik<z>ist<22g eloescht 
SEDASSBSETPRINTSPRÄNT" Statistik neu 
gestartet am "b4$" 
PRINT:PRINT:PRINT"Weiter mit Taste" 
:CALL. &BBO6:G0TO 1490 
RR 
Vorschau 
BELELTULTUITTERLRPELERETOUPETEN 
=4:MODE 2:PRINT CHR$ (24) TAB (29) "Vo 
„schau ueber 3 Monate"SPACES (29) CHR 
$t 2) 
PLOT 0,373:DRAWR 203,0:DRAWR 0,-312 
: DRAUR’ -203,0:DRAWR 0,312: PLOT'218, 
373:DRAWR 203,0: DRAWR0,-312: DRAWR 
-203,0:DRAWR 8,312: PLOT’ 456,373: DRA 
WR 203,0: DRAWR'O,-312: DRAWR "203,0: 
DRAUR 6,312 
m=VAL (MID$ (b$,4,2)) 
m=m+1:1IF m>12 THEN 
RESTORE: FOR k=1 10 
memtl: IF m>12 THEN 
RESTORE: FÜR k=1 TO miREAD f1S:NEXT 
m=m+1:IF m>12 THEN m=m-12 
RESTORESFÜR kei TO miREAD, FZELNERT. 
ÜCATE 36,3: PRINT CHR$ (24) " 
HR$ (24) :LOCATE 63,3: PRINT C 
HRS(24)" "#28" "CHR# (24) 
g=O:FOR k=1 TO #:IF e(k)=0 THEN 1=1 
+1:g=g+e (k) :LOCATE 2,1:PRINT c$ck)s 
GCATE 15,1:PRINT USING" HARAH. HM DM 
(k) 
VAL (MIDS (b#,4,2) 41H 1F >12 THEN 
IF e(k)=n THEN 1=1+11g=g+e (k) :LOCAT 
E 2,1:PRINT c$(k):LOCATE 15,1 PRINT 
USING" #ARHR.#R DM"sc (k) 
NEXT:LOCATE 2,21: PRINT"Belastung:": 
LOCATE 15,213 PRINT USING"HRAHN.HR D 
"sg 
1=4 
g=0:FOR k=1 TO ftIF e(k)=0 THEN 1=1 
ORgz= Sk) ELOCATE 29 LARRINT ca) 
sLOCATE 42,1:PRINT USING" AAHAH. HN D 
MTScck) 
n2VAL (MIDE (D# 4,21) 42ER n>12 THEN 
nen-1 
IF e(k)=n THEN 1=1+1:g=g+e (k) LOCAT 
E 29,1:PRINT c#(k)LOCATE 42,1:PRIN 
T USING"AHHHM. AM DM" sc (k) 
NEXT:LOCATE 29,21: PRINT"Belastung: " 
:LOCATE 42,21:PRINT USING" MAR. 
DM®;g 
1=4 
g=0:FOR k=1 TO fsIF e(k)=0 THEN 1=1 
+1:9=g+c (k):LOCATE S6,1:PRINT c$(k) 
:LOCATE 69,1: PRINT USING" HAAR. AM D 
M"3c(k) 
n=VAL(MIDF (b$,4,2))+5: IF n>12 THEN 
nen-12 
IF etk)=n THEN 1=1+179=g+c (k) sLOCAT 
E S6,1:PRINT c#(k)sLOCATE 69,1: PRIN 
T USING" ##R##. 44 DM"sc ck) 
NEXT:LOCATE 56,21: PRINT"Belastung:" 
„LOCATE 67,21: PRINT USING" HAHN. 
Mg 
WINDOW#4 ‚1 ,80,23,25: PRINT#4 ,CHR$ (24 
:CLS#4: LOCATE# ,2,2: PRINT#Ä," In di 
eser Vorschau werden nur die fest a 
legten Buchungssaetze verwendet 
PRINT#4 „CHR$ (24) 
CALL &BBO6s: RETURN 


m=m-12 
m:READ f$:NEXT 
m=m-12 
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Listing. Immer auf dem laufenden mit »Giro« (Schluß) 


Schneider 


Für arbeitsintensive Berechnun- 
gen ist ein Computer besonders 
geeignet. Legen Sie Papier, Blei- 
stift und Taschenrechner zur 
Seite. Die nächste Fourier-Ana- 
Iyse macht Ihr Schneider. 


iele physikalische Gesetze lei- 

ten sich aus periodischen 

Schwingungen ab. Kein Wun- 
der, daß dieses Thema in Schule und 
Universität ausführlich behandelt wird. 
Eines der wichtigsten Gesetze dabeiist 
das Zerlegen beliebiger periodischer 
Funktionen in einfache Sinus- und Co- 
sinuskurven - die Fourier-Analyse. Für 
jede periodische Schwingung gilt näm- 
lich, daß sie sich durch die Summe ein- 
zelner Sinus- und Cosinusfunktionen 
(mit unterschiedlichen Amplituden und 
Perioden) darstellen läßt. Die Schwie- 
rigkeit liegt, da das mathematische Ver- 
fahren sehr aufwendig ist, im Bestim- 
men der passenden Werte, 

Als erstes muß die zu untersuchende 
Funktion auf die Periodenlänge von 2r 
gedehnt beziehungsweise gestaucht 
werden. Durch einfache mathemati- 
sche Manipulationen an der Frequenz 
ist das problemlos möglich. Beim Zerle- 
gen bestimmen Sie zuerst eine Sinus- 
und eine Cosinusfunktion mit dersel- 
ben Periodenlänge, wie sie die Gesamt- 
funktion hat. Dieses Paar heißt »Grund- 
schwingung«. Im nächsten Schritt wäh- 
len Sie eine Sinus- und eine Cosinus- 
funktion mit der doppelten Periode aus. 
Die Amplituden der bisher vier Kurven 
müssen Sie so bestimmen, daß die 
damit erreichte Summenfunktion der 
Zielfunktion möglichst »nahe«- kommt. 
Falls ein Glied dieser vier Summen 
absolut nicht paßt, dann setzen Sie die 
Amplitude auf O - und schon fällt der 
Term unter den Tisch. Dieses zweite 
Funktionspaar hört auf den Namen »1. 
Oberwelle« oder auch »1. harmonische 
Oberschwingunge. 


Mehr als 
mathematische 
Spielereien 


Im dritten Schritt versuchen Sie nun, 
das Fehlende mit einer Sinus- und/oder 
Cosinusfunktion der dreifachen Peri- 
ode der Grundschwingung auszuglei- 
chen. Die dabei erhaltenen Teilfunktio- 
nen nennt man »2. Oberwelle« oder »2. 
harmonische Oberschwingung«. Diese 
Schritte führen Sie so lange fort, bis die 


sn 
Ar 


Par) 


Bild 1. Zwei Funktionen dürfen einfach addiert werden 


YeysY,=sn+enae) 


Bild 2. Schon mit zwei Oberwellen wird die Rechteckschwingung deutlich 


Summenfunktion die zu untersuchende 
Funktion hinreichend genau wieder- 
gibt. 

Bild 1 zeigt, wie die Grundfunktion 
y,=sin(x) mit der ersten Oberschwin- 
gung y,=sin(2x) addiert wird. Variiert 
man nun die Amplitude (das ist der 
maximale Ausschlag, den eine Funktion 
erreichen kann) und benutzt man auch 
die Cosinusfunktion (diese sieht ge- 
nauso aus wie die Sinuskurve, erreicht 
ihr Maximum aber für x=0), so kann 
man schon mit nur einer Oberschwin- 
gung verschiedenste Funktionen dar- 
stellen. Bild 2 zeigt, wie eine Rechteck- 
kurve mit der Periode 2 durch Sinus- 
funktionen dargestellt wird. Sie sehen, 
daß allein die Grundfunktion mit der 1. 
und 2. Oberschwingung schon das 
Charakteristische der Rechteckkurve 
wiedergibt. Da das Beispielfürx=0 den 


Wert y(0)=O zurückgibt, müssen alle 
Cosinusglieder die Amplitude O bekom- 
men - sie fallen also weg. 

Wozu braucht man nun die Fourier- 
Analyse? In der Elektrotechnik bei- 
spielsweise rechnet es sich wesentlich 
leichter mit sinusförmigen Strömen und 
Spannungen als mit anderen Signalfor- 
men. Im allgemeinen nimmt man des- 
halb den Mehraufwand, zunächst Strom 
und Spannungen in Teilfunktionen zu 
zerlegen, gern in Kauf. Die eigentlichen 
Berechnungen werden mit den sinus- 
förmigen Teilvorgängen erledigt. Zum 
Schluß wird der Gesamtvorgang aus 
den einzelnen Ergebnissen wieder zu- 
sammengesetzt. 

Auch in der Musik sind Oberwellen 
von enormer Bedeutung. Jeder Ton ist 
eine periodische Schwingung, dessen 
Periodenlänge direkt mit der Tonfre- 
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quenz zusammenhängt. Je höher ein 
Ton (und damit die Frequenz), desto 
kürzer ist die Periodenlänge. Alle Instru- 
mente haben beim gleichen Ton die- 
selbe Grundschwingung. Einzig die 
Oberwellen erzeugen die verschiede- 
nen Klängen. Nur sie regeln, ob ein Ton 
schrill wie eine Trompete oder sanft wie 
ein Fagott klingt. Somit kann jedes 
Instrument von elektronischen Orgeln 
perfekt simuliert werden, wenn diese 
spezielle Regler für die einzelnen Ober- 
wellen besitzen. Allerdings muß man 
dazu die Beiträge aller hörbaren Ober- 
wellen herausfinden - ein nahezu 
unmögliches Vorhaben. 

Das Programm aus dem Listing analy- 
siert jede Funktion, die Sie eingeben. 
Als Ergebnis erhalten Sie Perioden- 
länge und Amplituden der harmoni- 
schen Schwingungen. Die Werte wer- 
den grafisch und als Zahlen ausgege- 
ben; die errechnete und die zu untersu- 
chende Funktion gezeichnet. So er- 
kennen Sie auf einen Blick die Abwei- 
chung. Die Amplituden der beteiligten 
Teilfunktionen werden separat veran- 
schaulicht, so daß Sie die Größenver- 
hältnisse der verschiedenen Schwin- 
gungen leicht erfassen. 


Der mathematische 
Hintergrund 


Bevor wir uns allerdings den Feinhei- 
ten des Programms zuwenden, brau- 
chen wir ein paar Informationen über 
die Mathematik, die hinter dem Ganzen 
steckt. Eine periodische Funktion mit 
n- harmonischen Oberschwingungen 
läßt sich in folgender Form darstellen: 


fo) = 0 + 2 (a, : cos (k- x) 


+b, sin (k - x)) 


Der griechische Buchstabe »L« ist in 
der Mathematik das Summenzeichen 
und bedeutet, daß der Ausdruck in den 
Klammern n-mal addiert wird, wobei für 
»k« bei jedem Durchgang der nächst- 


höhere Wert aus dem Bereich zwi- 
schen 1 und n eingesetzt wird. 

Die Zeichen »a,« und »b,« heißen 
»Fourier-Koeffizienten«. Sie stellen die 
Amplitude der Sinus- beziehungsweise 
Cosinusfunktion dar. Zum Berechnen 
dieser Koeffizenten dienen die beiden 
Formeln: 

1 #7 
u=4/ 


= 
k=0,1,2,..,n 
T 1) - sin (k = x) dx 


-r 


k=1,2,3,..,n 


fix) » cos (k - x) dx 


Sie brauchen übrigens nicht unbe- 
dingt verstehen, wie diese Formeln 
funktionieren. Wichtig ist allein, daß sie 
richtig benutzt werden. 

Für »k« werden nacheinander die hin- 
ter den Formeln angegebenen Werte 
eingesetzt. Damit berechnen sich je- 
weils die Koeffizienten der einzelnen 
Oberschwingungen. »f(x)« ist die Funk- 
tion, die durch die Sinus- und Cosinus- 
kurven ausgedrückt werden soll. 

»|«ist das Integralzeichen und bedeu- 
tet, daß mit Hilfe der Funktion, die zwi- 
schen dem Integralzeichen und dem 
Term »dx« steht, die Fläche zwischen 
der Kurve und der x-Achse berechnet 
wird. Grafisch ist damit der Koeffizient 
»a,« nichts anderes als die Fläche, die 
von der Funktion f{x)*cos(k+x) und der 
x-Achse im Bereich zwischen x=- bis 
x=7 eingeschlossen wird. Der schraf- 
fierte Bereich von Bild 3 zeigtsolch eine 
Fläche. 

Die Fläche der Funktion kann man nä- 
herungsweise bestimmen, indem man 
nur einige Punkte der Kurve berechnet 
und diese durch Geraden verbindet. Je 
kleiner der Abstand zweier Hilfspunkte 
ist, desto genauer wird das Ergebnis. 
Diese neue Fläche läßt sich in trapez- 
förmige Teilstücke zerlegen. Deren Flä- 
che wird mit der Formel 


Fläche des Trapez = 
3 (Grundlinie + Decklinie) - Höhe 


Hrcosin.x) 


unter der Kurve 


Bild 3. Das Integral ist nichts anderes als die Fläche 


Bild 4. Ein Trapez ist einfach zu berechnen 


berechnet (siehe Bild 4). Bild 5 zeigt, 
wie die Funktion in einzelne Trapeze 
aufgeteilt wird. Falls man n+1-Punkte 
der Funktion berechnet und diese 
gleichmäßig über den gesamten Be- 
reich verteilt, so hat jedes Trapez die 
Breite »h=2+/n«. Die Fläche eines 
Trapezes unserer Funktion berechnet 
sich dann mit 


A=3:h- (fix) - 60s(k- x) 
+ fixj41) cos (K ' %41)) 
oder vereinfacht mit 
A=nlfix) : cos (k x) 
+ f{xj41) cos (K ' %44)) 
Die gesamte Fläche und damit das 


gesamte Integral berechnet sich als 
Summe aller n-Trapeze 


4 n-1 
A=3 2 (fix) cos(k:x) 
i=0 
+ f(x44) ° cos(k  X41)) 
oder ausgeschrieben 


Keen] 
+@+@] 4.) 
ns f(x) cos (k ' x;) 


Durch Verschieben der Klammern än- 
dert sich der Ausdruck in 


ee] 
+{2+2) +...) 


und zusammengefaßt 


2 n-1 
A=ild+ 2 +?) 
® 


Da wir hier nur periodische Funktion 
betrachten, gilt speziell in diesem Fall 
g0=gn. Statt »%° + $'« kann man also 
auch % + % schreiben und damit die 
zwei störenden Glieder mit in die Sum- 
me aufnehmen. Die gesamte Formel für 
die Integralfläche lautet also: 


In dem hier besprochenen speziellen 
Fallist p das Produkt aus einer Cosinus- 


Grundlinie. 
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Funktion (bei dem zweiten Koeffizien- 
ten einer Sinus-Funktion) und einer 
beliebigen Funktion f(x). »f(x)« ist dabei 
die Funktion, die durch die Fourier- 
Koeffizienten angenähert werden soll. 
Zu berechnen sind also 


(fix) - cos (k x) 
und > 


28 E 
bk=n & (Ma) sin(k x) 
i=1 


Wie oben schon erwähnt, muß man, 
je genauer die Integralflächen bestimmt 
werden sollen, mehr Punkte - und damit 
Teilflächen - berechnen. Störend wir- 
ken sich dabei die vielen trigonometri- 
schen Funktionen aus, die in der Re- 
chenzeit ganz gewaltig zu Buche schla- 
gen. Aber die Mathematiker haben 
auch für dieses Problem eine Lösung: 
»Goertzels Algorithmus«. 

Dieser Algorithmus besagt, daß die 
beiden Summen 


a= 5 @:cosikd) 
k=0 


= Em sinik) 


für unsers Koeffizienten nach folgen- 
der Regel berechnet werden: 

1. Als Anfangsbedingung wählt man 
Uns = Un2 = 0 
und 
t=2:cos(£) 

2. Danach berechnet man nachein- 
ander für 
j= nn, n-2, ..., 2, 1 
U=og+t’U+1-Ur2 

3. Das Ergebnis (die Cosinus- und die 
Sinussumme) berechnet sich durch 
&% = 00 + U} - cos(£)- Ur 
bu = U; » sin (£) 

Sie brauchen jetzt für beliebige Men- 
gen von Funktionswerten nur noch ein- 
mal den Cosinus berechnen. Auch an- 
sonsten reduziert sich der Aufwand 
innerhalb der später zu programmieren- 
den Schleife beträchtlich. 

Das einzige Problem, das wir jetzt 
noch haben, ist die richtige Wahl der An- 
fangsbedingungen. Wenn man jedoch 
die zu berechnende Gleichung und die 
Ausgangsformel des »Goertzels Algo- 
rithımus« untereinander schreibt, 
erkennt man die Lösung auf den ersten 
Blick: 


n . 
=: g fi- cos (k 27-1) 
i=1 
b=2 $ fein tn 
i=1 
und n 
%= % or’ cos(k&) 
k=0 
n “ 
bk= 5 oR:sin(k-&) 
k=0 


Av 


Statt»&« setzen Sie & = k+2+/2ein. 
Zusätzlich müssen die Summen nach 
dem Berechnen mit dem Wert 2/n multi- 
pliziert werden, um die richtigen Inte- 
grale und damit die endgültigen Größen 
der Fourier-Koeffizienten zu erhalten. 


Das Haus 


rogramm 
zur Fou: 


r-Analyse 


Jetzt haben wir alle Kunstgriffe ken- 
nengelernt, um unser Programm opti- 
mal zu schreiben. Durch Vertauschen 
der Variablen bei jedem Schleifen- 
durchlauf kommt man statt den n+3- 
Variablen U, bis U„+2 mit insgesamt 
drei Variablen aus: mit UO, U1 und U2. 
Die daraus folgende Programmfassung 
des Goertzels Algorithmus finden Sie 
ab der Zeile 11200. 

Beim Übergang von einer harmoni- 
schen Oberschwingung zur nächsten 
greifen wir zu einem weiteren Trick: Das 
Argument »q« der Sinus- und Cosinus- 
berechnung erhöht sich bei jedem 
Übergang von einer beliebigen harmo- 
nischen Oberschwingung zur nächsten 
gleichmäßig um den Wert 2+* /n. Somit 
lassen sich die neuen Sinus- und Cosi- 
nuswerte nach den folgenden Formeln 
berechnen: 
cos(g+d) := 
cos(g)+*cos(d)-sin(q)*sin(d) 
sin(g+d) := 
cos(g)*sin(d)+sin(q)+cos(d) 

Da die aktuellen Werte cos(q) und 
sin(g) bekannt sind, gehen in die 
Berechnung der neuen Werte nur der 
Sinus und Cosinus der Schrittweite ein. 
Die Schrittweite wiederum istaber wäh- 
rend der ganzen Fourier-Analyse kon- 
stant. Man darf deren Bestimmung also 


V 


Bild 5. Ein Integral berechnet man 
einfach durch lauter Trapeze 


aus der Schleife herausziehen und 
braucht sie im Programm nur ein einzi- 
ges Mal zu berechnen. 

In dem ganzen Programm muß somit 
der Sinus und der Cosinus nur einmal 
berechnet werden. Überhaupt sind in 
dem Programm alle öfter benötigten 
Werte möglichst aus den Schleifen her- 
ausgezogen. Falls Sie Ihre Programme 
immer auf solche Faktoren überprüfen, 
bekommen Sie häufig einen ungeahn- 
ten Geschwindigkeitszuwachs. Insbe- 
sondere istes sinnvoll, die n-Funktions- 
werte in einer Tabelle fertig ausgerech- 
net an das Analyseprogramm zu über- 
geben. Auch bei sehr umfangreichen 
Analysen muß so jeder Funktionswert 
nur ein einziges Mal ermittelt werden. 

Das Programm teilt sich in mehrere 
logische Einheiten. Im Eingabeteil wer- 
den alle Parameter bestimmt. Danach 
wird im Vorbereitungsteil Ihre Eingabe 
in das interne Format umgerechnet. Es 
werden beispielsweise die Funktions- 
werte berechnet und in die Tabelle ein- 
getragen. Nach der Analyse wird das 
Ergebnis »nachbereitet«. Es werden die 
maximalen und minimalen Werte ge- 
sucht und eine Skalierung vorbereitet.‘ 
Der Ausgabeteil zeichnet die Bilder auf 
den Bildschirm. Unabhängig von den 
absoluten Funktionswerten füllt eine 
Funktion genau den zur Verfügung ste- 
henden Raum aus. 

Ausgegeben werden fünf verschie- 
dene Darstellungen der bearbeiteten 
Funktion: 

1. Die Funktion selbst, so wie sie ein- 
gegeben wurde. 

2. Eine Tabelle mit den Zahlenwerten 
der einzelnen Fourier-Koeffizienten. 
Diese Werte können bei anderen Be- 
rechnungen weiterverwendet werden. 
Der Wert der 0. Oberschwingung hatim 
Sinusglied keine Bedeutung, da sin(0) 
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ist sehr wichtig: 


ao* 1=a 


rechnet werden, 


= = 
— — 1 

immer Oist. Das Cosinusglied hingegen 
Co(X)=a9*cos(O+x)=a,*cos(0)= 
Der Wert ist konstant. In der Elektro- | FORElmer-tetpiandixtn) re 
technik bezeichnet dieses Glied den 8 „8857 8 
Gleichstromanteil. Grafisch äußert sich Sinus Sep 4 Fa eh 
das darin, daß die Funktionswerte nicht 2 Ba 8.424 
gleichmäßig um die x-Achse verteilt 5 -8.114 a.254 
sind, sondern im Mittel nach oben oder 5 SRH as 
unten verschoben sind. 14 ® sad # 

3. Die »Spektrallinien«: Für jede be- | aa a SO! = An 9483 
rechnete Oberschwingung der Funk- 
tion wird eine Linie gezeichnet, deren 
Länge ein Maß für die Amplitude ist. So 
kann man auf einen Blick die Größen- 
ordnung der einzelnen Anteile der na Tr 
Oberwellen erfassen. # N 

4. Als gestrichelte Linie wird die zu g 
untersuchende Funktion gezeigt. Aus 
der Anzahl der Punkte beziehungs- 
weise der »Dichte« der Linie erkennen 
Sie, wie genau das Integral berechnet Neue Berechnung; ’ENTER’ 
wurde. So erfassen Sie auf einen Blick, 
ob das berechnete Ergebnis überhaupt 
einen Sinn hat. In der Regel sollten min- 
destens doppelt so viele Punkte be- 

wie harmonische Bild 6. So schaut das Ergebnis aus 

Oberschwingungen bearbeitet wurden. 

5. Mit einer durchgezogenen Linie 


wird die durch die Fourier-Analyse 
erhaltene Näherung angezeigt. Diese 
Anzeige überlagert im selben Maßstab 
die gestrichelte Linie, so daß Sie sofort 
die Größe des Restfehlers abschätzen 
können, Eine Bildschirmausgabe fin- 
den Sie in Bild 6. 

Der Eingabeteil ist der »unmathema- 
tischste« Teil des Gesamtprogramms, 
gleichzeitig aber auch der trickreichste. 
Ein besonderes »Schmankerl« ist die 
Eingabe der zu untersuchenden Funk- 
tion. Diese muß nämlich irgendwie in 
der Zeile 10530 landen, damit deren 
Wert in die Berechnung eingeht. Auf 
eine »saubere« Art und Weise ist das mit 
dem Locomotive-Basic nicht möglich. 
In dem Programm wird die Funktion zu- 
nächst ganz normal mit »INPUT« in eine 
Zeichenkette eingelesen. Danach wird 
eine Funktionstaste (die kleine 
<ENTER>-Taste) mit einer Zeichen- 
kette, bestehend aus der Zeilennum- 
mer, in der die Funktion stehen soll, 
dem Text der Funktion, dem Drücken 
der <ENTER>-Taste, einer »GOTO- 
Fortsetzungszeile« und einem zweiten 
Druck auf <Enter> belegt. Jetzt wird 
die Schreibfarbe auf O gesetzt (um ver- 
räterische Bildschirmausgaben zu ver- 
meiden) und das Programm abgebro- 
chen. 

Der Computer gibt jetzt die Meldung 
»Ready« aus, was aber wegen der 
Schreibstiftfarbe unsichtbar bleibt. Für 
Sie schaut es so aus, als ob Ihr Schnei- 
der während eines Programmlaufs auf 
eine Eingabe wartet. Drücken Sie jetzt 
die vorbereitete <ENTER>-Taste, so 


wird (immer noch unsichtbar) in einem 
Rutsch die Funktionszeile ins Pro- 
gramm eingefügt und dieses erneut 
gestartet. Erst jetzt wird die Bildschirm- 
ausgabe wieder auf »sichtbar« ge- 
schaltet. 

Die eingegebene Funktion wird dabei 
allerdings nicht auf Syntaxfehler über- 
prüft. Falls Sie eine unsinnige Funktion 
eingeben, bricht das - ansonsten kor- 
rekte Programm - mit »Syntax Error in 
Line 10530« ab. Sie können dann aller- 
dings die Zeile korrigieren und das Pro- 
gramm mit »CONT« fortsetzen - oder 
ohne Korrektur mit »RUN« neu starten. 

Obwohl im Menü maximal eine 8- 
fache Genauigkeit angefordert wird, 
dürfen Sie problemlos größere Werte 
eingeben. Sie müssen aber selbst ent- 
scheiden, ob die ansteigende Rechen- 
zeit durch die höhere Genauigkeit auf- 
gewogen wird. Sinnvolle Ergebnisse 
bringt das Programm nur ab »einfacher 
Genauigkeit«. Klar ist auch, daß die 
Rechenzeit mit wachsender Zahl der 
Oberschwingungen ansteigt. 

Funktionen, die in verschiedenen x- 
‚Abschnitten verschieden definiert sind, 
können Sie mit dieser Eingaberoutine 
nur sehr umständlich eingeben. Eine 
Rechteckfunktion beispielsweise hat 
die Form: 
f(x)=(x>#)-(x<#) AND x<>0) 

Im Bereich O bis + ist die Aussage 
»xX> «falsch und »x<r« wahr. Beidem 
CPC hat »unwahr« den Wert »0« und 
»wahre den Wert »-i« In diesem 


Bereich hat die Gesamtfunktion also 
den Wert 1 (=0-(-1)). Falls x größer als 
zist, ist »x> m« wahr und »x< r« falsch. 
Die Funktion hat dann also den Wert -1 
(=(-1)-0). 

Durch »AND (x< >0)« gilt das Ganze 
allerdings nur, solange x ungleich Null 
ist. Für x=0 wird »x< > 0« falsch und 
die Gesamtfunktion erhält an dieser 
Stelle den Wert O. 

Einen einfachen Test, ob das Pro- 
gramm richtig arbeitet, unternehmen 
Sie, wenn Sie die oben beschriebene 
Rechteckfunktion mit sechs harmoni- 
schen Oberschwingungen und doppel- 
ter Genauigkeit testen. Jetzt müssen 
nur die Sinuswerte der geradzahligen 
harmonischen Oberschwingungen ei- 
nen Wert ungleich Null besitzen. Bei 
anderen Werten können aber kleine 
Fehler auftreten. Diese kommen zu- 
stande, wenn die Abtastpunkte für das 
Integral nicht »symmetrisch« um die 
Symmetriepunkte der Funktion verteilt 
sind. Bei der Rechteckfunktion tritt die- 
ser Effekt sowohl beianderen Genauig- 
keiten als auch bei anderen Zahlen der 
Oberwellen auf. (Helmut Tischer/hg) 


Steckbrief 
Fouri 
CPC 464/664/6128 
Explora 
Diskette/Kassette 


Name: 


nnalyse 


Computer 


Checksummer: 


Datenträger 
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Eon 


10208 


12010 


10020 


10038 


10240 
12050 


10068 


10870 
10080 
10890 
ıaı2a 


19110 
190128 


10130 
10140 
12160 
12170 
12180 
12198 


10208 


190218 
10228 


10230 
10248 
10250 
10260 


10278 
190280 


10290 
10308 
198318 
10320 
10330 


10340 
10350 
103560 
10370 
10388 
10390 
12408 


10410 


190420 
10438 


10440 
12450 
19468 


10478 
10480 


10490 
190508 
10518 


10528 
18530 
10548 


10559 
19560 
18570 
12588 
10590 
12600 
12610 
190620 


10638 


10648 
10658 
190660 
19678 


RRRRRHHRRRSRRRRRSHERERRRR 
RT 
Pe 

“* FOURIER-ANA 
LY8E (Vers. 2.02. 
86) * 

‘* (c) 23.07.85 by Isar-Amper-Soft 


* 

RR 
RR 
er 


DIM #8) ‚c(B) ‚s(@) "Dummy-Vorbelegu 


ngen 
MODE 2: INK @,1:INK 1,24:BORDER 1:P 
APER EN 1 


GOSUB 19188 ’Eingabe 

GOTO 1837®‘Berechnung vorbereiten 
GOSUB 11198 ’Berechnung ausfuehren 
GOSUB 18598 Berechnung nachbereite 


n 

GOSUB 18719 Ausgabe 

LOCATE 1,25:PRINT"Neue Berechnung: 
"ENTER 

g$=INKEYS 

IF q$=CHR$ (13) THEN GOTO 18068 

GOTO 18138 


“Funktionseingabe 
PRINT TAB(2ZW"FOURIER-AN 
AU VB E" 

PRINT TAB (20) Y==m=mnnnnnm 


PRINT" Zu Aa yet rende Funktion ( 
Im Bereich 8 bis 2*PI periodisch): 


PRINT 

INPUT"F (RX) =" ,#$ 

PRINT 

INPUT"Wieviele Harmonische sollen 
berechnet werden";h% 

PRINT 


PRINT"<32(@) : halbe<5>Genauigkeit 
PRINT"<3>(1) + einfache£2>Genauigk 
PRINT"E32(2) : doppelte<2>Genauigk 
PRINTHESDS) : vierfache Genauigke 
PRINT"<S2(0) : 8-fache<Z>Genauigke 
INPUT"Mit welcher Genauigkeit sall 


gerechnet werden";g% 
PRINT 
RETURN 


"Fourier-Analyse vorbereiten 

PRINT 

PRINT TAB(1® "Bitte jetzt die ‘ENT 

ER’-Taste im Funktionsblock drueck 

any" 

PRINT TAB(28) "Um die Berechnung zu 
starten" 

PEN ® 

KEY 139 ,CHR$ (13) +"10530 #ti%)="44$ 

+CHR$ (13)+"BOTO 10AS@"+CHR$ (13) 

END Warten auf Tastendruck 

PEN 1:KEY 139 ,CHR$ (13) 

PRINT TAB(28) "Bitte warten - Berec 

hnung laeuft" 

n%=(h%+1)#2"g% Anzahl der Abtastst 

ellen 

ERASE #,c,s:DIM #(nZ) „ce (n%) ‚s(n%) 

fmax=0: fmin=0 

FOR i%=® TO n%-1"Funktionswerte an 
den Abtaststellen berechnen 

x=2#P1#i%/n% 

FiZ)=BIN (x) 

fmax=MAX (# (1%) „fmax) a fmin=MIN CF (i% 
min) 


NEXT 

# (n2)=# (@) 

GOTO 18898 

"Ergebnisse nachbereiten 
cmax=B: smax=B: cmin=B: smin=® 


FOR i%=@ TO 
Cmax=MAX (ct 
),smax) 
cmin=MIN te (i%) „emin) zsmin=MIN (si 
) ,smin) 

NEXT 

scale=128/ (fmax-fmin) 
ybase=-fmin*scale+32 
Scale2=115/ (MAX (cmax ‚smax)-MIN tcmi 
n,smin)) 


) ‚cmax) :smax=MAX (sti 


C18181 


LFEOBI 


CF2D81 


19516] 
[38781 


C4DB41 


CDS1EI 
LF&@B1 
L76B4] 
[4156] 


LF9C21 
LAF16] 


[28DA] 
[C5161 
[65181 
L49CC9 
[1588] 
LiF9AI 


LB7581 


CSBEEI 
LFE42] 


LASQEI 
LF846] 
1751A] 
EiA4AI 


L3A441 
[744E1 


L32AB1 
196521 
[76981 
LA7FC] 
LIFDEI 


LOFBEI 
17544] 
[DBF23 
[1482] 
ES9BA] 
E3AB6] 
[24541 


[37861 


CEBECI 
[63941 


[3306] 
LE718] 
109201 


LEA9CI 
L15861 


[78861 
EDD&CI 
LD4081 


LEF@A] 
L7F781 
CBB9CI 


LAAFQI 
[22B41 
[43141 
LE7EBI 
L168A] 
L47AAI 
LD972] 
[3A141 


LB7D6] 
La4CQJ 
LA7B4] 
LSEFEI 
LIBBEI 


L92BA1 


ybase2=28®-MIN (cmin,smin)#scale2 
RETURN 


"Ausgabe der Ergebnisse 
CLS 


“Angabe der Koeffizienten 

PRINT TAB(5®) "Fourier-Koeffiziente 
nn 

ZONE 13:PRINT TAB(48) "Harmonische" 
„"Cosinus" ‚"Sinus" 

FOR i%=@ TO h%:PRINT TAB(48) i%,ROU 
ND (c (1%) „4) „ROUND (s (i%) „4) zNEXT 
"Angabe der Funktion 

LOCÄTE 1,1:PRINT"Funktionsterm" 
WINDOW#7 ,1,39,2,5: PRINT#7 ,"# oe )="+ 
27 


"Summenfunktion 
MOVE 639,ybase:DRAW B,ybase 

y=B: FOR j%=® TO h%:y=Y+c (3%) 2NEXT= 
MOVE @,ybase+ty*scale 

FOR i%4=0 TO 648 STEP 8 
x=2#PI*i1%/648:cosx=C0S (x) :sinx=SIN 
x) 

'2 mal der Goertzels Algorithmus # 
ver Cosinus bzw. Sinus-Änteil 
ul=@: u2=: v1=0: v2=Q: t=2%*cosx 

FOR 3j%=h% TO 1 STEP -1 

uQ=e (3%) +t#ul-u2: uZ=ulzul=uß: vO=s ( 
3%) +ERvi-v2evZevisvi=vd 

NEXT 

y=c (BD) +ulkcosx-u2+vi#sinx 

DRAW i%,ybasety*scale 

NEXT 

MOVE @,ybase+f (M*scale 

FOR i%=0 TO n% 

PLOT 640% %/n%,ybase+scale#f (1%) 
NEXT 

"Spektrallinien 

LOCATE 1,5:PRINT"Sinus"TAB (29) "Cos 
inus"” 

MOVE @,ybase2:DRAWR 151,Q:MOVER 9, 
@:DRAWR 151,0 

st=152/ (h4+1) 

FOR i%=® TO_h% 
MOVE (i7+0.5)*st,ybase2:DRAWR O,sc 
ale2xs (1%) :NEXT 

FOR i%=@ TO h2:MOVE (i%40.5)#st+16 
8,ybase2:DRAWR Q,scale2#c (1%) :NEXT 


RETURN 


Eingaben: 


‘ h%: Anzahl der Harmonischen 
" n%: Anzahl der Abtastpunkte (dab 
ei sollte n%>2#h%+1 sein) 
* #(®) bis #(n%-1): Funktionswerte 
(von @ bis 2up1) 
DIM cch%) ‚sth 
s h% dimension 


2 auf mindesten 
te Felder c und h 


"Ausgaben: 
" ctd) b) 
onstanten 

et1) bis cth%): Amplituden der C 
osinus-Harmonischen 
* s(1) bis s(ch%): Amplituden der 8 
inus-Harmonischen 


Amplitude der K 


d=2/n%:sind=SIN (d«PI) :cosd=C0S (d#P 
D)esing=B: cosq=1 

‘q hat in Abh{ngigkeit der Harmoni 
schen den Wert q = kärdkpi = k4#2# 
pi/nz 

FOR k%=@ TOD h% 

"Soertzels Algorithmus: Summen ueb 
er fti)*sinti#g) und f(i)*cos(ixg) 


ul=0:u2=8:t=2#4cosq 

FOR 1 TO 1 STEP - 
t*ul-u2:u2=ulzul=uß: NEXT 
Eik4)=d* (f (BD) +ul*cosq-u2) 
S(k%)=d* (ul*sing) 
"Sinus/Cosinuswerte fuer q:=g+dxpi 
--) qr=k%*2*pi/n%, berechnen 
neuscosg*cosd-sing*sind: sing=cosq* 
sind+sing*cosd: cosq=neu 

NEXT 

cet@)=c(9)/2 

RETURN 


END 


ua=f (i%)+ 


Listing. Fourier-Analyse per Computer 


L9F@BI 
L4AQQ1 
ESAZEI 
[54F4] 
EBEFBI 
139841 
LCS9A1 


L5SEAI 
CD7B8] 


CBAD2] 
L169C1 
[2616] 


158621 
[43821 
CAS4A1 
EBCIAI 


LEAREI 
[SBA21 


18538] 


CSCDEI 
[7246] 
C8BEB] 


LE4BE] 
[26543 
[D4201 
C4B1E1 
EB2BA] 
C6ES4] 
[5330] 
ECAECI 
LaACc2] 
CASIEI 


[24961 


LA4SC] 
[54723 
EFABEI 


LOCE41 


L97A2] 
EDSF@] 
[3488] 
[39821 
C3A841 
[32861 
CABC21 
LAFIEI 
LESFB] 


L9F7BI 
L9DEAI 
C3BD4] 
[9542] 
L1EBAI 
L87BE1 


LCBAAI 
[3678] 


[81DE1 


L9A961 
(26181 


CAA4BI 
ECEF@I 


L52DEI 
L4A10] 
[5878] 


[9348] 


[62443 
CAMACI 
LBAFCI 
[DSF21 
[3682] 
ECFEAI 
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Der neue 
»CcPC« 


Ein Bombenerfolg war unser Maschinencode- 
Prüfsummer »CPC« im letzten Schneider-Sonder- 
heft. Was den Commodore-64-Besitzern ihr »MSE«, 
ist den Schneider-Besitzern seitdem der »CPC«. 
Jetzt ist er sowohl kürzer als auch noch leistungs- 
fähiger geworden. 


nichts empfehlenswerter als das Programm »CPC«. 
Der Name kommt nicht von ungefähr - er steht für 
»Comfortable Program for Codeinput«. Diesen Komfort 
gewährleisten die vielfältigen Fähigkeiten des CPC. Er ist 
praktisch an beliebige Maschinencode-Listings anzupassen: 
Weder vor DATA-Ladern noch vor Hexdumps streckt »CPC« 
seine Waffen. Einzige Bedingung für Basic-Lader mit Prüf- 
summen ist, daß die Zahl der Byte pro Zeile konstant bleibt. 
Vielen brauchen wir die Details sicher nicht zu wiederholen, 
da sie bereits aus dem letzten Beitrag bekannt sind. Für neu 
hinzugekommene Leser führen wir sie hier dennoch auf. Die 
Vorzüge der neuen Version: 
- Dateinamen kann man jetzt in beliebigem Format eingeben. 
Wer mit Kassetten arbeitet, darf also Namen mit einer Länge 
von bis zu 16 Zeichen verwenden, wer Disketten bevorzugt, 
setzt wahlweise die Laufwerksnummer oder den User- 
Bereich voran. 
- »OPC« setzt HIMEM automatisch auf Adresse 20000. 
- Der Aufruf der Routine »Parameter einstellen« erfolgt auto- 
matisch bei der Code-Eingabe oder DATA-Erzeugung. 
- Das Unterprogramm »Parametereingabe« arbeitet komfor- 
tabler und ist dadurch einfacher einzustellen. Die einzelnen 
Punkte sind numeriert. Ein Druck der jeweiligen Zifferntaste 
wechselt die Einstellungen (zum Beispiel von »hex« auf 
»dez«), wie Sie in Bild 1 sehen können. 
- Die Routine »Erzeuge DATAs« verarbeitet jetzt auch die 
Startadresse 8000 hex korrekt und die Vorgabe eines Offset 
ist berichtigt. 
- Der erzeugte Basic-Lader ist kürzer und schneller und 
erhält automatisch den SAVE-Befehl zur Speicherung des 
erzeugten Maschinencodes. 
- Jetzt sind auch DATA-Lader ohne Prüfsumme oder mit Add- 
statt mit Hash-Prüfsumme zu erzeugen. 


ERBLC 
Comfortahle Program for Codeinput 


y 4 Eingabe langer Maschinencode-Programme ist 


<ENTER> geht’s weiter 


1-8) oder ENTER: M 


Bild 1. Das Untermenü »Parameter bestimmen« zeigt 
die Standard-Einstellungen für Basic-Lader in Happy- 
Computer 


-Durch diverse Einsparungen hat»CPC«nurnocheineLänge 
von 10 KByte. 

— Zwei Hilfsprogramme unterstützen das Hauptprogramm 
»CPC.BAS« (Listing 2). Für noch komfortablere Bedienung 
belegt »CPC.HLP« (Listing 1) die Funktionstasten mit allen 
Hex-Ziffern und setzt die Farben auf eine augenfreundliche 
Kombination. »CPC.INF« finden Sie nur auf der Leserservice- 
Diskette, denn es enthält eine Kurzanleitung für »CPC«. 

- Die Routine »Code eingeben« verarbeitet jetzt bis zu 128 
Byte formatierter Eingabe. So sind nun auch DATA-Lader mit 
sehr langen Zeilen abzutippen. 

- Die Eingabe von Dezimalzahlen war bisher etwas kompli- 
ziert. Um das nötige dreistellige Format einzuhalten, waren 
bei ein- oder zweistelligen Zahlen entweder führende Nullen 
voranzuschicken oder stets die Leertaste (oder <ENTER>) 
zu drücken. Nun ist, wenn Sie im Parameter-Menü »Ende 
annehmen« auf »Nein« einstellen, jedes Byte mit der Leerta- 
ste oder <ENTER>, beziehungsweise dem Dezimalpunkt 
zu bestätigen. 

Das Programm »CPC« verhilft in komfortabler Weise zu 
einer einfachen, schnellen und sicheren Eingabe von 
Maschinencode-Programmen. »CPC«-Benutzer geben nur 
zirka 60 Prozent des Listingumfangs von Basic-Ladern ein. 

Nach dem Start erscheint das Hauptmenü mit fünf Punkten. 
Die Eingabe der Anfangsbuchstaben ruft das jeweilige Unter- 
programm auf. 


Lade Code 

lädt eine Binärdatei von Kassette oder Diskette. Die Lade- 
adresse des Programms müssen Sie eingeben; sie darf 
jedoch nicht unter 20 000 liegen. Andernfalls laden Sie esan 
eine höhere Adresse. Drücken Sie bei der Aufforderung, den 
Datenträger bereitzumachen, <ESC> oder <CTRL+C>, 
bricht die Routine ab. 
Schreibe Code 

sichert den Inhalt eines Speicherbereichs auf Disketteoder 
Kassette. Sie müssen die Anfangs- und die Endadresse 
angeben. Beide Werte lassen sich an den Zeilenadressen der 
DATA-Listings ablesen. Haben Sie den Codein einenanderen 
Bereich geladen oder eingegeben, weil er sonst unterhalb 
der Adresse 2000 stände, berücksichtigt CPC das hier nicht. 
Sie müssen später den Code an die richtige Adresse laden 
(zum Beispiel; »LOAD "CODE ”,3000«). Auch diese Routine 
ist mit <ESC> oder <CTRL+C> abzubrechen. 
Code eingeben 

ist die wichtigste Routine des »CPC«. Zunächst geben Sie 
im automatisch erscheinenden Unter-Menü »Parameter ein- 
stellen« die für das Listing erforderlichen Standards ein. Dar- 
auf folgt die Vorgabe der ersten Zeilennummer und der 
Schrittweite. 


> CPC.HLP -— Voreinstellungen LASECI 

[9212] 

> Farben LEC201 

1830 ° [90161 
184@ BORDER 4: INK 8,4: INK 1,26: INK 3,18 L[OA97Q] 
1050 ° [Ba1A1 
1868 '--> Tastatur - Zehnerblack CBa84) 
1970 CB41E] 
1088 KEY DEF 15,1,48,127,128 CA1921 
1290 KEY DEF 13,1,49,47,129 [B936] 
11@@ KEY DEF 14,1,50,47,138 [74881 
111@ KEY DEF 5,1,51,47,131 EZEAEI 
1128 KEY DEF 28,1,52,65,132 E1SQEI 
1130 KEY DEF 12,1,53,66,133 £c7181 
1148 KEY DEF 4,1,54,67,134 £7CC21 
1150 KEY DEF 10,1,55,68,135 EcD241 
1168 KEY DEF 11,1,56,69,136 [9C2EI 
1178 KEY DEF 3,1,57,70,137 t8166] 
1188 KEY DEF 7,1,46,38,138 L&DD&el 
1190 KEY DEF 6,8,13,139,14Q eDQIEI 
1298 " [95141 
1218 ‘Version vom 22.10.86 CBA241 

Listing 1. So ist der Zehnerblock hilfreich belegt 
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Drücken Sie hier einfach 
<ENTER>, bleibt der Zei |1gB "esse [L31DAI 
lenzähler auf Null. Nun 1191 "*BEISPIEL.DAT - DATA-Lader von ’CPC’* L[1BA81 
geben Sie noch die Start- |ıg2 "aununuuuunccccccccccccccceene [ASDBI 
adresse vor. BeiderEingabe |193 CDEB&] 
der Byte-WerteistdieGefahr |1@4 DATA 7C48,81,0A,AB,21,BE,AB,CD,Di ‚17ABl [489C3 
von Fehleingaben sehr |195 DATA 7C48,BC,C9,12,AQ@,18,0A,00,02,64E8 L3F74] 
gering, da nur die Ziffen 0 |196 DATA 9C59,09,08,53,43,41,4C0,C5,29@,@CE2| [9616] 
bis 9, beziehungsweise die |1@7 CDEBE] 
Buchstaben Abis Fzugelas- |198 ” LFECO]I 
sensind. EinDruckderLeer- |1@9 LFEC21 
taste, <ENTER> oder des |11@ no EDDBzB 
Punktes formatiert alle füh- |126 DATA 9CF@,19,22,A8,AC,22,2C,B3,2A,1B2C| LCBCAI 
renden Nullen automatisch |127 DATA 9CF8,AA,AC,22,2E,B3,E1,23,C1,7ESB| [3820] 
und schließt die Eingabe |128 DATA 9D@9,10,93,FB,C9,20,28,00,20,3F30 L[LA3161 
eines Byte ab. Die Tastenmit |129 DATA *ENDE* [83CC] 
Schrägstrichen (</> und 1139 adr=%9C4@:zeile=1@4:MEMORY adr-i1 LEA36] 
<\>) wiederholen das |131 READ d$: IF d$="#ENDE*"THEN 142 [8182] 
zuletzt eingegebene Byte |132 EDFBA] 
Dadurch ist gewährleistet, |133 ” ECDFBC]I 
daß Sie nurein Minimumein- |134 ” [FFBE] 
zugeben haben. Verzichten |135 EFFCO] 
Sie auf Prüfsummen (wovon |14@ IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
wir aber eindringlich abraten, in Zeile";zeile:STOP [3EBAI 
denn etwaige Eingabefehler |141 zeile=zeile+1:G0T0 131 [B@521 
sind so kaum zu finden), ist |142 SAVE"BEISPIEL.BIN" ,B,&9C48,&C7:END LOAF&] 
damit die Eingabe beendet. 
Ansonsten geben Sie nun 
die Prüfsummen ein. Ist die Bild 2. Ein beispielhafter Ausschnitt eines typischen DATA-Laders. Die Ziffern im 
Prüfsumme korrekt, ertönt unterlegten Bereich sind in jedem Fall einzugeben, während Sie auf die Eingabe 
ein Signalton und Sie gehen der Prüfsummen (eingerahmt) verzichten können. Dazu kommen noch die Start- 
zur nächsten Zeile. Fehler adresse (in diesem Fall 9C40 hex) und zum Speichern die Endadresse (hier 9D03 
korrigieren Sie mit Hilfe der hex). Den Rest des Basic-Laders ersparen Sie sich mit »CPC«. 
DEL-Taste. 


Erzeuge DATAs 

erzeugt aus Maschinencode im Arbeitsspeicher einen lauf- 
fähigen Basic-Lader auf Diskette. Gehen Sie bitte wie folgt 
vor: Stellen Sie zuerst die korrekten Parameter ein. Wählen 
‚Sie dann die Namen für den DATA-Lader und die später vom 
Lader zu erzeugende Binär-Datei. Nun erwartet »CPC« die 
Anfangs- und die Endadresse des Maschinencodes. Da die- 
ser nicht unter 20000 beginnen darf, manche Programme 
aber nur auf niedrigeren Adressen arbeiten, können Sie hier 
einen Offset von der Ladeadresse zur tatsächlichen Start- 
adresse eingeben. 

Beispielsweise steht ein Programm im Speicher ab Adres- 
se 6000 hex, soll aber so gespeichert werden, daß der 
Basic-Lader es auf 4000 hex erzeugt. Die Eingaben sind für 
diesen Fall: 

Startadresse=&4000, Offset=&2000. 

Wenn Sie kein Offset benötigen, drücken Sie einfach 
<ENTER>. Jetztfehltnurnoch die Nummer der ersten Zeile 
und die Schrittweite der Numerierung, bevor »CPC« mit der 
Erzeugung des Laders beginnt und ihn als ASCII-Datei auf 
Kassette oder Diskette speichert. 

Das Menü »Parameter bestimmen« bricht man mit <ESC> 
oder <CTRL+C> ab und beendet es mit <ENTER>. Die 
Tasten 1 bis 8 ändern einzelne Parameter: 
<1> Zeilenadresse dezimal oder hexadezimal anzeigen. 
<2> Byte dezimal oder hexadezimal erwarten und anzei- 
gen. 
<3> Anzahl der Byte pro Zeile. Eingabe in Form einer Zahl 
kleiner oder gleich 128. 
<4> Ende annehmen ist normalerweise »Ja«. Haben Sie 
»zwei Ziffern« bei hexadezimaler oder »drei Ziffern« bei dezi- 
maler Eingabe gewählt, geht »CPC« automatisch zum näch- 
sten Byte über. Ist dieser Punkt »Nein«, müssen Sie jedes 
Byte mit der Leertaste, <ENTER> oder dem Punkt be- 
enden. 


yi 


<5> Prüfsumme abfragen. »Nein« ist nur bei Basic-Ladern 
ohne Prüfsumme zu empfehlen. 

<6> Prüfsumme dezimal oder hexadezimal erwarten und 
anzeigen. 

<7> Länge der Prüfsumme. Minimal 4 bei hexadezimaler 
und 5 bei dezimaler Ausgabe (Voreinstellung). »CPC« be- 
nötigt diese Angabe hauptsächlich für das Erzeugen der 
Basic-Lader. 

<8> Prüfsummentyp. Viele Basic-Lader verwenden Prüf- 
summen des Typs »Add«, also eine einfache Addition aller 
Bytes einer Zeile. Die »CPO«-Lader verfügen jedoch über 
eine Hash-Prüfsumme, die Fehler und Vertauschungen 
erkennt. Falscheingaben sind hier fast unmöglich. Die Para- 
meter des in Happy-Computer verwendeten Eingabeformats 
sehen Sie in Bild 1. 

Während der Arbeit mit »CPC« beenden Sie jede Eingabe 
mit <ENTER> undkorrigierenmit <DEL>. Für Dateinamen 
müssen Diskettenbenutzer ein gültiges Format wählen. Bei 
allen Zahleneingaben ist eine dezimale oder hexadezimale 
Eingabe mit vorangestelltem »$«, »#« oder »&« wählbar. An 
jeder Stelle, an der eine Taste zur Bestätigung zu drücken ist, 
läßt sich die jeweilige Funktion durch <ESC> oder 
<CTRL+C> abbrechen. (Stefan Aust/ja) 


Steckbrief 
CPC 
CPC 464/664/6128 
Explora 
Kassette/Diskette 


Programm: 
Computer: 


Checksummer: 


Datenträger: 


a ‚HOMECOMPUTERWORLD.COM 


1008 
1210 


1028 
1058 
1040 
1050 
1968 
1070 
10890 


1090 


‘==> "CPC = Comfortable Program for 
‚Codeinput" by St. M. Aust 


> Initialisierung 


CLOSEIN:MEMORY 19999 

KEY DEF 66,0,3:CALL &BB48 
brk&=CHR$ (3) !bel1$=CHR$ (7) :back$=CH 
R$ (8) ter $=CHR$ (13) scIr$=CHR$ (16) 


del$=back$+c1r$:cur 1$=CHR$ (143) +bac 
k$: cur2$=CHR$ (211) +back$ 
CE 0123456789" :hx4="@123456789ABC 


DIM b#(128) „H1(Wafltl=lsfllD=irf 
HB STSTEL TIER (TITAN FL IB 
ENV 1,15,-1,20:ENV 2,15,-1,4 


> Menue 


MODE 1:PAPER @:PEN 1:PAPER#1,@:PEN# 
1,1: PAPER#2,@:PENN2,3 

LÖCATE 18,1FPRINT"C PC" 

LOCATE 4,2: PRINT"Comfortable Progra 
m for Codeinput" 


LOCATE &, 7: PEN 1:PRINT"Geschrieben 
von Stefan M.Aust" 

LACATE 8,8:PRINT"Version II - Oktab 
er 1986" 

SQUND 1,490,0,15,1:S0UND 2,458,2,15 
„1:5OUND 4,500,0,8,1 

ÜHILE SUt1)< >ArWEND 

n=6: y=6:321=29:yl=15:6G05UB 331Q0:WIND 
DW SWAP 1 

LOCATE 9,3: PRINT" (L)ade Code" 


LOCATE 7,5:PRINT" (S)chreibe Code" 
LOCATE 7,7:PRINT" (Code eingeben 
LOCATE 7,9:PRINT" (Eirzeuge DATAs 
LOCATE 9,11:PRINT" (B)eende _CPC" 
WINDOW#2,1,40,23,23: PRINT#2,TAB(12) 
“Bitte waehlen: "scuri$; 

GOSUB 3410: p=INSTR("LSCEB"+brk$,a$) 
:IF p=® THEN PRINT bell$;:60T0 1308 


x=3: y=17:x1=18:y1=3:G0SUB 3318 
PRINT#2,a$:0N_p GOTO 1338,1420,152@ 
‚1880,287@,267@ 


> Lade Code 


PRINT#1,"<2>(L)ade Code" 

WINDOW SWAP 2: PRINT TAB(1B) "Name: " 
;:GOSUB 286B:n$=b$ 

PRINT TAB(11) "Startadresse: 
B 2750: start=b 
isk/Kassette einlegen & Tast 
e_druecken" 

3410: IF brk THEN 1158 
+n$,start:G0T0 1138 


SOsu 


> Schreibe Code 


PRINT#1,"(S)chreibe Code" 
WINDOW SWAP 2: PRINT TAB(12) "Name: 
}:GOSUB 2860: n$=b$ 


PRINT TAB(11)"Startadresse: "3:G05U 
B_ 2750: start=b 
PRINT TAB(12) "Endadresse: "3:G0SUB 


27508: finish=b 
PRINT"Disk/K; 
e druecken 
GOSUB 3418: IF brk THEN 1138 
SAVE" ! "+n$,b,start,finish-i 
0 1130 


ette einlegen & Tast 


==> Code eingeben 


PRINT#L,"(C)ode eingeben" 
GOSUB 2470: IF brk THEN 1130 ELSE WI 


NDOW SWAP 2 

PRINT TAB(11) "Startnummer: "}:B0SUB 
2758: nr=b 

PRINT TAB(19) "Schrittweiter "3:605U 
B 2750: inc=b 

PRINT TAB (18) "Startadre: "3:B08U 
B 2750: start=b 

GOSUB 3230: LOCATE#1 „32,2: PRINTHL,"C 
C)ode eingeben" 

IF_fLC2) THEN he 

1=3 


1=2 ELSE h$= 


hel+1:xa=lstxe=kath#15 

PRINT:PRINT USING" HH4#) "snrzsIr 
+L(A)THEN PRINT" "HEX$ (start, a)": " 
ELSE PRINT USING"#4H: "sstartz 


FOR i=@ TO #1(3):b$(i) 


NEXT 


1 
ELSE IF x>xe THEN PRINT CHREUBICHR 
$(11)ıx=xa:y=VPOS (HB) 


191181 


(53881 
C8F14] 
[9816] 
[CFEBI 
[B61A] 
CAC781 
[9D261 


CD1841 
LAS®41 
LOBA&I 


C52BA] 
127721 
c9B181 
CBATEI 
[921C1 


[34641 
(74581 


T@1EEI 
CB9C@] 
L7E&AI 


CCSB61 
CB@741 


LAEBCI 
CA7881 
LF2EB] 
LE11E] 
L267C1 
[B93E] 


LFAD21 
LS566E1 
[24321 
L7CFA1 
L9@1C9 
C4BBQ1 
[B6281 
LEDBAI 
LSCE61 
182481 
L7CF61 
EFCS21 
L4EBA] 
L971C1 
C7F@EI 
[9528] 
[37981 
L13E61 
Cara] 
LDSFCI 


CB1FB1 
EDAS4] 


cODaB1] 
EBFLEI 
CCB48] 
[9322] 
C48CA] 
L1A46] 
LBC@B] 
CB9GE1 
168441 
LD77@1 
L7FIEI 
C37BA1 


1A6921 
EBAEAI 
C1A221 


LDDSEI 


b$=b$ (p) :LOCATE x,y:PRINT b$3 
Imax=1:IF f1(Z)THEN GOSUB 2958 ELSE 
GOSUB 2970 

IF f1(2)=@ THEN b=VAL(h$+b$): IF b>2 
55 THEN PRINT bell$;:60T0 1480 
IF_brk THEN 1130 ELSE IF del=@ THEN 


F_p>® THEN p=p-1:x=x-h EL 
RINT bells; 


GOTO 1468 
LOCATE x ,yıPRINT b$; :b$ (p)=b# 
Koxthap=prls IF n<fLCSITHEN 1660 
FOR i=® TO f1(3)-1:POKE startti „VAL 


(h&+b$ (1) )zNEXT 
IF f1(5)=® THEN 1830 

GOSUB SA8@:LOCATE x „yaPRINT"= 
x+2:b$="":lmax=f1(7) 

IF #16) THEN GOSUB 2950 ELSE GOSUB 
2970 

IF brk THEN 113® ELSE IF del_THEN x 
=x-2:PRINT deläjdel#5:60T0 1710 
LOCATE x yiPRINT bs} 

IF 16) THEN pr2=VAL ("K"+bS)ELSE pr 
2=VAL (b#) 

1E pr©>pr2 THEN PRINT bei143 16010 1 
start=start+f1 (3) inr=nr+inc 

SOUND 1,400,0,15,2 

G0TO 1630 

bs(p)=" 
SE del=8: 
GOTO 1660 


> Erzeuge DATA's 


PRINT#1,"(E)rzeuge DATAs" 
GOSUB 247@: IF brk THEN 1138 
x=2:y=7:x1=37:y1=9:G0SUB S31@:WINDO 
W Swap 1 

LOCATE 2,1:PRINT"DATA-File-Name: "; 
:G0SUB 28648: dns=b$# 

LOCATE 2,2:PRINT"Code-File-Name: "5 
:B0SUB 28648: cn$=b$ 

LOCATE 4,4: PRINT"Startadresse: 
OSUB_ 2750: start: 
LOCATE 6,5: PRINT"Endadresses 
UB 275@:finish=b 

LOCATE 18,7:PRINT"Offset: 


y=17:x1=37:y1=4:G0SUB 331@:WIND 
GW Swap 1 

LOCATE 4,1:PRINT"Erste Nummer: 
SUB 2758: nr=b 

LOCATE 4,2: PRINT"Schrittweite: 
GSUB_ 2758: inc=b 

PRINT#2, "Disk/Kassette einlegen & T 
aste druecken" 

GOSUB 3410: IF brk THEN 1138 

for: IF farm THEN nns="Q@B@@"ELSE 
nns= 
st2=start:start=starttoffs: finish=f 
inish+offsinr2=nr+4*inc 

di=6: IF LS) THEN di=d1+5+tf1(8)=D) 


pin= 


F_p>i THEN p=p-1:x=x-h EL 
RINT bells; 


d2=5: IF fL(SITHEN d2=d2+5+ (1 (8)=@) 
PRINT#2, "Erzeugung beginnt..." 
OPENOUT" "Hans 5 l 


ha='% "4dns+" 
en 

PRINT#9 nr; " 
arenr+ine 
PRINT#F nr; 
FRINT#9 nr; 
arsnr+ine 
PRINT#9 ,nr4" ""inr=nr+ine 

PRINT#9 ‚nr "DATA "senr=nr+ine 

IF #L(1) THEN PRINT#9 ,HEX& (start-off 
S,A) ELSE PRINTH9 USING" AHHNN" star 
t2offs; 

FOR i=® TO L(H-1:IF FLC2ITHEN IF 
+orm THEN FRINT#9,",";HEX$ (PEEK (sta 
rt+i) ,2)5:60T0 2190 ELSE PRINT#9,", 
";HEXE(PEEK (start+i))}:00T0 2190 
as=STR# (PEEK (start+i) EPRINTR9,","; 
RIGHTS (nn$+MIDS (a$ ,2) 2) 5 

NEXTEIF FLSI=D THEN PRINTH9:GOTO 2 
GOSUB 3480: IF FL&) THEN PRINTH9,"," 
;HEX$ (pr „#1 (7) ):G0T0 2220 

as=STR$ (pr) :PRINTHF," "HRIGHTE (nn$+ 
MID$ (a$,2) ,#1(7)) 
IF_INKEY$=brk$THEN CALL %B092:G0T0 
1138 

start=start+fl(I:IF start<finish T 
HEN 2158 

FRINT#9 ‚nr; "DATA *ENDE*"tnr=nr+ine 
PRINT#9 nr; "adr=";z1F #11) THEN PRI 
NT#9 "U" +HEX$ (st2,4) ;ELSE PRINT#F,M 
ID$ (STR$ (st2) „2 

FRINT#9, ":zeile: 


- DATA-Lader von 'ERC 
+STRING$ (LEN (h$) 42): 


"'+h$snrenr+ine 
""+STRING$ (LEN (h$) 42) 3 


MID$(STR$ (nr2) ,2) 


ESB9EI 
196441 
[72021 
LAEFCI 
caa9C] 
Lan2aı] 
C06981 
L6ECC1 


L24F81 
TEASAI 


CAs701 
151241 


LADaCI 
Laracı 


176641 
ECEQEI 
120441 
EB1A6] 
[2422] 
LABAAI 
1752C1 
[99301 
L7CFB] 
CBF221 
CB322] 
EBC6A] 
LA4681 
E6BQEl 
£D2D21 
CBC48] 
LECaB1 
CFEBBI 
[86CC9 
L7DC61 
[B34E1 


[48663 
CFES2] 


LBAFEI 
L712A1 
CEC161 
c341C] 
[88881 
CE436] 
C13CE1 


tAacaı 
E92AG] 


L48C41 


L473C1 
L37DA1 


185481 


c33B81 
L206E1 
195141 
Car7EI 
C958E1 
194441 
173191 
Lac44] 


[513AJ 
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senr=nr+ine CCB843 90 ELSE ins=dz$ L2EEB1 
227@ FRINT#7,":MEMORY ";:IF st2=32768 TH 282@ IF INSTR(in$,a$)>@ AND b<imax THEN 
EN PRINT#9,"&7FFF"ELSE FRINT#9,"adr b$=b$+as:b=b41: PRINT a$;ELSE PRINT 
1" 197521 beils; 154261 
2288 FRINT#9 ,nr; "READ d$: IF d$="+CHR$ (34 2830 G0T0 2798 156301 
) H" #ENDE#"HCHRS (34) H"THEN" ;nr+diin 2848 b=VAL(b#):IF b<@ THEN b=b+6553& 19044] 
einr=nr+ine L61E41 2850 RETURN LB39E1 
2290 IF #1(S)THEN PRINT#9 nr; "pr=@"snr=n 2860 " [CBZE] 
r+ine 125441 2878 ‘--> Sub: Filename-Input 130641 
23008 FRINT#9,nr3"FOR i=1T0" fl (3) snrenr+ 10232] 
ine CEABEI a max=16 TE9261 
2310 IF #1(2) THEN PRINT#9 nr; "READ as: GOSUB S15Q: IF a=13 THEN RETURN GA1cı 
VAL ("+CHRS (34) +" RN +CHRE (34) +" a8 IF a=127 THEN GOSUB 5200:G070 2900 L7aaAI 
nr=nr+ine ELSE PRINT#F,nr; "READ a 292® IF a>3i AND a<127 AND b<imax THEN b 
ar=nr+ine LE45@1 #=b$+a$ıb=b+1: PRINT aszELSE PRINT b 
2320 PRINT#9,nr;"POKE adr,aradr=adr+1 eilt; CRRCCI 
renr+ine [04961 2930 GOTO 2908 [63241 
2330 IF f1(5)=@ THEN 2370 ELSE IF #1(8)T 2940 ' [c82C1 
HEN 2358 CA146I > Sub: Hex-Zahl eingeben c81221 
2540 PRINT#9 ‚nr; "pr=pr+a"nr=nr+inc:GOTO s=hr$:G0T0 2990 [61281 
2370 CBACAI > Sub: Dez-Zahl eingeben L1F22) 
2350 PRINT#9 ‚nr; "pr=pr&2: IF pr >6553STHEN 2980 in#=dz#:60T0 2990 111281 
r=pr-25535" ınr=nr+ine cespa3 2990 ' [0536] 
2360 PRINTA?,nr 3 "pr=UNT (pr) XOR asif pr<@ 3O08 ‘--> Sub: Input ta5Acı 
THEN pr=pr+65556" nr=nr+inc L6B721 3018 ° [BA161 
2370 FRINT#9 ‚nr; "NEXT i"inrenr+inc [3@881 3020 b=LEN(b#) ıbrk=B: IF del THEN del=0:6 
2390 IF f1(5)=@ THEN 24280 £78581 OTO 318@ ELSE del=@ CBF621 
2590 IF f1(6) THEN FRINT#9 nr; "READ pr$ip 3030 GOSUB 3158 LABIEI 
7 2=VAL ("+CHRE (54) 4" N+CHRE (34) +" +pr 304@ IF a=3_THEN brk=1:6070 3128 LA6BB1 
$) if pr2<@then pr2=pr2+65536" ınr=n 3@50 IF a=13 OR a=32 OR a=46 THEN 3128 [99361 
r+inc:B0T0 241@ LE97CI 306@ IF a=47 OR a=92 THEN b#=bb$:b=LEN (b 
2400 PRINT#7,nrz"READ pr2":nr=nr+inc L1Ascı b$) RETURN 169601 
2410 FRINT#F nr; "IF pr<>pr2 THEN PRINT"+ 307@ IF a=127 THEN 3100 147081 
CHRS$ (34) +"Pruefsummenfehler in Zeil 3080 IF INSTR(inF,as)>@ AND b<lmax THEN 
@"+CHR$ (34) +4" zeileı STOP" snr=nr+inc b#=b$+af:b=b4H1:PRINT as;ELSE PRINT 
L9F521 beils; 106241 
2420 FRINT#9 nr; "zeile=zeile+";MID$ (STR 3@9@ IF fL(A)THEN 3050 ELSE IF b=Imax TH 
ine) „295 "36010" nr -d2*incinrenr+in EN 3120 ELSE 3038 t57AB1 
< CaBACI 3100 IF b>@ THEN GOSUB 3200:60T0 s030 LEI20I 
2430 PRINT#9 ‚nr; "SAVE"+CHRE (34) +cn&+CHRE 3118 PRINT bellk;:del=1 [R2DAI 
(34) +" „BR +HEX$ (st2) +" „R+HEXS (fin 312@ b$=RIGHT$ ( "ODQOR"+b$,1max) C74BE] 
ish-st2) inrenr+inc CC3D41 313® bb$=b$: RETURN LAaS81 
244@ PRINT#F,nr; "PRINT d$+END":CLOSEQUT [BC981 zıa0 ’ EBILEI 
245@ FRINT#2," und ist fertig.";bell# [7@C2] 315@ '--> Sub: Tastdruck nach a,as CBaDAI 
2460 GOSUB 3410:G0T0 1130 [46581 3160 PRINT cur2$; EDQEAI 
2470 .' [B7281 317@ a$=UPPER$ (INKEY$) IF a$=""THEN 3170 
2480 '--> Parameter einstellen [38821 L2FB6J 
2490 ' [B92C1 PRINT cir$; tE9721 
2500 x=1Q:y=B:x1=28:yl=14:G0SUB 3531 150981 B L7BAA] 
2510 WINDOW SWAP @,1:PRINT"Parameter bes [BA6@1 
timmen: " [2A243 321® IF b>@ THEN b=b-1:b$=LEFT$(b$,b):FR 
2520 LOCATE 1,3:50UND 1, EDCECI INT back#sclr$5ELSE PRINT bells; L359E1 
2530 PRINT" 1) Adresse 3228 RETURN £878E1 
(1) THEN_PRINT"hex "ELSE PRINT LARZEI 3230 ' [921E1 
254@ FRINT" (2) Byt, 3248 ‘--> Sub: Rahmen zeichnen 119361 
(2) THEN PRINT"hex"ELSE PRINT"dez" 169681 3250 ' [B922] 
2550 FRINT"(3) Byteanzahl ->"3#1(5)  E4B2C1 3248 MODE 2 C2B041 
256@ PRINT" (A) Ende annehmen -> IF #1 327@ MOVE 112,352:DRAW 527,352:DRAW 527, 
(A)THEN PRINT"nein"ELSE PRINT" ja<2> 399: DRAW’ 112,399: DRAW 112,352 CBDFEI 
“ [B2BC9 328@ MOVE 116,356:DRAW 523,3563DRAW 523, / 
2578 PRINT" (5) Pruefsumme ----> "zzIF fl 395:DRAW 116,395: DRAW 116,356 [81801 
(5) THEN PRINT"ja<2>"ELSE PRINT"nein 3298 LOCATE 28,25:PRINT"Zurueck mit ESC 
“ 134561 oder “C" CFS4E] 
258@ PRINT" (6) Pruefsumme -——-> ";sIF fl 33@@ WINDOW 1,88,4,24: RETURN L325E] 
t&) THEN PRINT"hex"ELSE PRINT"dez" [75821 3318 ' [9B1C1 
2590 PRINT"(7) deren Laenge -->";#1(7) L[&D6@] 3328 > Sub: Fenster oeffnen [8B461 
2600 FRINT" (8) und Typ -> 9; 3330 ' (92201 
(8) THEN PRINT"hash"ELSE PRINT" 334® WINDOWHL „x „x+x1-1,yy+yl-1:CL5#1 [S1E6] 
LBDCAI 335@ xpex*lö-laryp=415"yhlasnmeriHloriey 
2610 PRINT+PRINT"Mit <ENTER> geht's weit meylaia-1 139701 
er" LFAAAI 336@ PLOT xp,yp,1:DRAWR xm,@:DRAWR @,-ym 
2620 PRINT#2,TAB(11)"(1-8) oder ENTER:_" :DRAUR -xm,@:DRAWR Q,ym USFDAI 
keurisr L9ABEI 3378 xpoxp+4 yp“yp-Auxmexm- ai ynaym-a t85A21 
2630 GOSUB S41@: IF a$=brk#OR as=scr# THEN 338@ PLOT »p,yp,3:DRAWR xm,@:DRAWR Q,-ym 
RETURN C7E581 :DRAWR "xm, @: DRAWR_®,ym L27E2] 
264@ IF as<"1"OR as>"@"THEN PRINT beilsz 339@ WINDOW ‚x+1,x+x1-2,y+Hl,y+yl-2 159841 
:G0T0 2630 ELSE FRINT#2,as: #=VAL (a$ 3400 RETURN L7DBEI 
) (52761 3410 ' ECDIEI 
2650 IF f£>3_AND #437 THEN FL =1-FLiH) 342® ’--> Sub: Auf Taste warten CF@741 
ıG0T0 2520 T49421 3430 ' £02221 
2660 WINDOW SWAP @,2:FRINT TAB(12) "neuer 344@ WHILE INKEYS<I"":WEND CA79C1 
Wert: "}:G0SÜB 2758: #1 (#)=b:WINDOW 345@ a$=UPPER# (INKEY$) IF as=""THEN 3450 
SWAP 0,2:6010 25280 C6DF81 187BA1 
2670 ' 197201 3460 IF a$=brk$THEN brk=1 ELSE brk=@ 15@A41 
2680 ‘--> Beende CPC CFDi®] 347® RETURN L9F9CH 
2690 ' CED3@J 3480 ' L972C1 
2700 PRINT#1,"<2>(R)eende CPC" [Daas1 > Sub: Checksum bilden ca4281 
2710 WINDOW SWAP 2: PRINT TAB (9) "Zurueck EEG ERDIEI 
mit ESC oder coiası 351@ pr=®:IF fL(B)THEN 3540 [BD2E1 
2720 GOSUB 3410: IF brk THEN 1150 LFDSEI 3520 FOR i=@ TO #1(3)-1:pr=pr+PEEK (start 
2730 MODE 2 ESEL] +1) :NEXT LAgEAI 
2740 END LFaaB] 353@ RETURN tac961 
1952A3 3548 FOR i=® TO f1(S)-1:pr=pr*2:IF pr>65 
f 3 Hex-Dez-Input [E2881 535 THEN pr=pr-65535 LBASA1 
[972E1 3558 pr=UNT (pr) XOR_PEEK (start+i): IF pr<@ 
LCSBEI THEN pr=pr+65536 LFSC4] 
2798 GOSUR 3150: IF a=13 AND b$<>"&"THEN 356@ NEXT:RETURN LZ2BBEI 
2840 et.ler.2} 
289@ IF a=127 THEN GUSUB 3200:6010 279® (C8141 
2810 IF b=® THEN IF a>34 AND a<39 THEN i 3 N m 
n$=hx$:b$ G0TO 27 Listing 2. Eingabe von Maschinencode im Eiltempo 
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Backup- 
Master 


Ein universelles Kopierprogramm, das in alle 
Richtungen arbeitet, steht bei vielen Computer- 
Benutzern ganz oben auf dem Wunschzettel. Sie 
können diese Position jetzt getrost auf Ihrer Liste 
streichen. 


aß man von seinen Programmen immer mindestensje 
eine Sicherheitskopie anfertigen sollte, weiß wohl 
jeder - spätestens nach ersten üblen Erfahrungen. 
Doch gab es bislang kein wirklich universelles Kopierpro- 
gramm, das seinem Benutzer diese Fleißarbeit abnahm. Das 
übernimmt jetzt »Backup-Master«, denn es kopiert 
- von Kassette auf Kassette 
- von Kassette auf Diskette 
- von Diskette auf Kassette 
- von Diskette auf Diskette. 

Als ganz besondere Fähigkeit kommt hinzu, daß er auch 
headerlose Kassettendateien kopiert und dabei deren Kenn- 
byte sogar automatisch erkennt. 

Es lassen sich also ganze Disketten oder Kassetten in 
einem »Rutsch« wahlweise auf das jeweils andere Speicher- 
medium übertragen. Beim Kopieren auf Kassette erreichen 
Sie durch das 2-Block-Verfahren und hohe Baudraten nicht 
nur sehr große Geschwindigkeiten, sondern arbeiten dazu 
auch noch sehr platzsparend. 

Backup-Master ist mit seiner Menü- und Dialog-Führung 
leicht zu bedienen. Er gibt zu jedem geladenen Programm die 
Ladeadresse, Länge und Startadresse als hexadezimale 
Werte aus. Der Dateityp ist durch das gleiche Symbol darge- 
stellt wie beim CAT-Befehl im Kassettenbetrieb. 

Das Hauptmenü bietet Ihnen folgende Punkte zur Auswahl: 
Catalog: Entspricht dem Basic-Befehl CAT und wirkt wahl- 
weise auf Kassette oder Diskette. 

Baudrate einstellen: Die Übertragungsgeschwindigkeit für 
Kassettenspeicherungen läßt sich im Bereich von 1000 bis 
3500 Baud in 500-Baud-Schritten wählen. 

Header ausgeben: Zeigt Ladeadresse, Länge, Startadresse 
und Dateityp eines Programms von Kassette oder Diskette an. 
Parameter ändern: Im Bildschirm-Dialog ändern Sie in die- 
sem Untermenü wichtige Voreinstellungen des Programms. 

Wollen Sie den kompletten Inhalt einer Diskette oder Kas- 
sette für Backup-Zwecke kopieren, drücken Sie bei der 
Frage »Selektives oder totales Kopieren« die Taste <T >. Ihr 
CPC kopiert dann eine Datei nach der anderen, so wie er sie 
vorfindet, bis Sie mit <ESC> unterbrechen. Geht es Ihnen 
jedoch nur um einzelne Dateien, wählen Sie <S>. Bei Kas- 
settenbetrieb gibt der Computer nacheinander die Namen 
aller gefundenen Dateien aus und erwartet die Freigabe des 
Kopiervorgangs. Ist die Diskette als Quelle angegeben, ruft 
der Backup-Master deren Directory auf den Bildschirm. Dort 
bewegen Sie den Cursor auf die gewünschten Dateinamen 
und markieren sie mit <COPY>. 

Bei Speicherung auf Kassette sind Sie nicht an das Stan- 
dardformat mit seinen 2-KByte-Blöcken gebunden. Wahl- 
weise speichert Backup-Master beliebig große Dateien in 
jeweils nur zwei Blöcken. Das erhöht sowohl die Ladege- 
schwindigkeit als auch die Speicherkapazität der Kassetten. 

Die Extension des Disketten-Dateinamens ist beim Trans- 
fer nach Wunsch zu übernehmen oder abzuschneiden. 

Auch das Bezugslaufwerk und die Nummer des User-Be- 
reichs lassen sich wechseln. 
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Am einfachsten ist, die Dateinamen zu übernehmen. Wol- 
len Sie aber bereits beim Kopieren neue Namen vergeben, 
ändern Sie die Voreinstellung des letzten Untermenü-Punkts. 
Wichtig ist diese Funktion bei Kassettenprogrammen, deren 
Namen länger als acht Buchstaben sind und die auf Diskette 
übertragen werden sollen. 

Datei löschen: Entspricht in seiner Wirkung dem RSX-Befehl 
ERA und wirkt somit nur auf Diskette. 

Datei umbenennen: Entspricht dem Basic-Befehl REN. 
Ende: Abbruch des Programms mit einem Reset. 

Auch besonders lange Programme oder solche, die das 
Floppy-RAM im Bereich von AB4D bis ACOO hex belegen, 
sind auf Diskette zu transferieren (lesen Sie zu dieser Proble- 
matik im 4. Schneider-Sonderheft von Happy-Computer 
(SH 7/86) den Beitrag »Schwertransport«). Das funktioniert, 
weil der Maschinencode des Backup-Master in einem Spei- 
cherbereich liegt, den normalerweise keine anderen Pro- 
gramme nutzen: im Bildschirmspeicher. Er reserviert sich 
dort einfach die untersten sechs Zeilen. Gespeicherte Bild- 
schirminhalte und andere Dateien aus diesem Bereich lädt 
Backup-Master deshalb an eine andere Adresse. 

Geben Sie bitte zuerst Listing 1 ein. Es enthält den Basic- 
Lader für den nötigen Maschinencode, den es nach dem 
Start automatisch unter dem Namen »BACKUPBIN« spei- 
chert. Wenn Sie sich einen Gefallen tun wollen, erledigen Sie 
die Eingabe mit unserem speziellen Checksummer »CPC«. Er 
macht die Eingabe nicht nur absolut sicher, er verkürzt auch 
Ihre Tipparbeit drastisch, weil Sie nur noch gut die Hälfte des 
gesamten Listingumfangs zu verarbeiten haben. Lesen Sie 
bitte die entsprechenden Hinweise auf Seite 84. 

Listing 2 ist die kleine Routine zum Laden und Aktivieren 
des Maschinencodes. Arbeiten Sie mit Kassetten, speichern 
Sie die Binärdatei »BACKUPBIN« hinter der Laderoutine. 

Aber vergessen Sie bitte bei all der Kopiererei nicht, daß 
Kopien immer nur für den eigenen Bedarf fair und erlaubt 


sind. (Gerd Weinand/ja) 
Steckbrief 
Programm: Backup-Master 
Computer: CPO 464/664/6128 
Checksummer: Explora/CPC 
Datenträger: Kassette/Diskette 


[nisch up = Ma 2 Tor 0 [u Copucioht inEb hu ANTIGOET 5 
Selektiv oder total kopieren (8/12 $ 
Speichern in 2 Bloecken (4/02 J 
Extension nit abspeichern (4/0)? J 
Defaultlaufwerk (A-D)? A 

Userbereich (8-F)2 B 

Filenane aendern (J/N2 I 


Diverse Parameter erlauben Anpassungen 


Kopieren Kassetteykassette 
FA kopieren Bassettediskeite 
FB Kopieren Diskette)kasseite 
EM Kopieren DiskettebDiskette 


Headerloses File auf Hassett 
Henderloses File auf Diskette 


Cataloc 

HB File-Header ausgeben 

PR Disk-Files loeschen 
Disk-Files unb 


EÄ Faraneter aendern 
MM Programende 


Das Hauptmenü zeigt die Fähigkeiten 


DI =  „—. 
m 
1QB /kkksksckcnsceeeenereeeeeeeeeeeerereee 5 [5ID4] | 2825 DATA 8328,69,00,95,26,00,09,B9,21,78iF CiBBCI 
i@1 ‘x BACKUP.DAT — DATA-Lader von ‘CPL’ =» IEZFAI | 2@& DATA 83552,40,59,11,48,00,5E,2C,CD,GEAD LFCBBI 
102 /ruennnnnkneneneererenreneeneeensnnee [ASDEI | 227 DATA 93358, 9E,BC,D0,2A,20,B6,E5,11,7A03 I[S4EC] 
ıms : [DEB&] | 288 DATA 8340,09,08,D05,3E,16,CD,9E,BC,1744 [35961 
1@4 DATA BR@A,CD,4E,BB,3E,82,CD,GE,BC,6284 I[2ADCI | 2@7 DATA 83548,D1,E1,D8,19,22,61,B9,E5,4ASi [08761 
1@5 DATA 8@@8,97,47,4F,C5,CD,32,BC,C1,S8E9 I[C&DZ] | 218 DATA 835@,2A,64,B8,ED,52,22,5F,B8,17CE [78521 
104 DATA 8010,CD,38,BC,3E,01,01,14,1A,7CC2 I[B1741 | 211 DATA 8558,65,97,32,63,B8,3D,32,5D,523D [DQ6EI 
187 DATA @R18,CD,32,BC,11,04,00,21,86,7C84 [DA441 | 212 DATA 83559,59,21,5C,B8,34,11,4C,BB,5584 I[FS561 
1@8 DATA 8@2@,@1,CD,CQ,BB,21,@8,81,11,284E I[882C1 | 213 DATA 8368,86,8A4,CD,06,B9,C0D,95,26,3FB@ [27082 
199 DATA 9028,09,06,06,@D,CD,S@,9@,14,0@867 L1EG&I | 214 DATA 8378,CD,89,89,21,4C,B8,11,40,7112 LE@SEI 
110 DATA 8@3@,B4,@@,21,D2,@@,CD,C@,BE,se@ar IB@SA) | 215 DATA 8578,00,SE,2C,CD,9E,BC,D1,E1,0195 L4QCE] 
111 DATA 8038,21,15,81,11,02,02,@6,11,04F5 [5376] | 21& DATA 838@,D2,SE,16,0D,9E,B0,035,92,6E84 [SIEEI 
112 DATA 8@42,3E,55,32,38,B3,CD,80,B0,GBAC [EC&BI | 217 DATA 8S88,BC,3E,01,52,CC,B9,ED,5B,5781 [27661 
113 DATA 8048,11,2@,00,21,78,@@,CD,C@,@e@A IECECI | 218 DATA 837@,20,B6,CD,77,BC,D8,22,52,2586 [E276] 
114 DATA 8@5@,BB,21,26,81,11,86,84,86,5992 TE@F2] 219 DATA 83798,B6,32,2B,B6,11,15,0@,19,5945 L[2F2@1 
115 DATA 9058,@8,3E,FD,32,38,B3,CD,8@,1516 L1s7aı | 22@ DATA 83AB,7E,52,20,B6,23,7E,FE,CQ,SCHC L79ECI 
11& DATA 8@62,80,11,84,00,21,14,00,CD,5555 [&&CAl | 221 DATA 8SAB,50,82,3E,48,32,2D,B6,23,1F2B [64561 
117 DATA [7nası | 222 DATA 8SB9,25,7€,32,2E,B6,23,7E,32,0F52 [4A621 
118 DATA 5 (91AB] | 223 DATA BSBB,2F,B6,23,7E,32,30,B6,23,399F [3E861 
119 DATA 8079,80,80,CD,06,BB,CS,B1,81,7EF7 L[DSCB1 224 DATA 85CQ,7E,52,31,B6,97,07,34,39,5711 [79661 
120 DATA 8@80,/F3,E5,D5,CD,C6,BB,ED,S3,5sEs I[Ssi83 | 225 DATA 83C8,54,57,08,65,05,F5,21,FD,64D3 [77181 
121 DATA 8a8B}AB}AC,22,AA,AC,DI,26,00,7788 LFsası | 224 DATA 8300,06,CD,49,C6,CD,B1,BR,CD,58D7 [A521 
122 DATA B090,6A,22,AAJAC,6B,22)AL,AC,2IFB LECARBI | 227 DATA 83D8,C2,EE,47,F1,32,39,B6,70,501@ [86861 
125 DATA 8098,E1,C5,E5,7E,CD,AS,BB,@&,SF@C LS91C1 | 228 DATA 83E8,57,28,1A,18,82,05,05,0D,5105 LEEBA1 
128 DATA BOAB,0B}C5,CD,R6,E9,7E,E5,24,2950 LSAREI | 229 DATA 83EB,52,06,CD,D9,EF,CD,S2,06,B89E LBZ4EI 
125 DATA 8@A8,A6,AC,45,05,206,88,07,3@0,7CDE L[73AC] 23@ DATA 85F@,CD,52,06,28,08,C1,C1,ES,6A63 TABAEI 
12& DATA 8059,10,C5,F5,21,00,0@,ED,5B,2471 L[793C12 | 231 DATA 8SF8,CD,aD,Er,E1,C9,C1,E1,37,5289 [CC221 
127 DATA G@B8,A4,AC,CD,F9,BB,F1,C1,18,68B6 ICESE) | 232 DATA 8490,C9,CD,7A,BC,35E,28,32,86,52F2 L[17BA1 
128 DATA 8@CQ,@B,ED,SB,2C,BS,2A,A4,AC,ssB4 [C7@@3 | 235 DATA 8498,52,21,85,B2,35,5R,2B,B6,4B60 [135C1 
129 DATA AACB, 19,22,2C,B3,18,E0,2, [F29413 | 234 DATA 8419,06,24,CD,5A,BB,21,2C,B6,73B2 [38841 
130 DATA B0DD,53,2B,2B,2) »5B, teccal | 255 DATA 8418,CD,E8,C7,21,2E,B6,CD,E8,44AA [34261 
131 DATA 8@D8,AB,AC,ED,53,20,B3,C1,1@,6SAE [DEFAI 236 DATA 8420,C7,21,5@,B6,CD,E8,07,3E,62D8 L[9BCZ1 
152 DATA 9QE@,CA,E1,23,C1,1@,BE,ED,5B,56DD LF7@8) | 257 DATA 8428,@n,C3,5A,BB,sE,2@0,CD LACH] 
133 DATA 8@EB,A4,AC,21,08,@0,CD,BE,BD,7F55 [78821 238 DATA 8430,BB,01,02,84,D7,1 ‚ 150641 
134 DATA B@F@,ED)SB,ABJAC,19,22,AB,AC,7ESC L5S2C) | 237 DATA 8438,05,49,C6,7E,23,CD,SA,BB,4EC5 LFD14] 
135 DATA G8F,22,2C,BS,2A,AA,AC,22,2E,098A LECCAI | 242 DATA 8448, 10,F9,C9,@0,@C,1F,1C,02,2F46 LB734] 
158 DATA 8108,BS,E1,23,01,18,93)FB,C9,6A4S L9A7BI | 241 DATA 8448, 18,20,31,20,18,20,AB,6F,0039 LFSEAI 
137 DATA 8108,42,61,63,6B,75,7@,2D,4D,SiEF [6268] 242 DATA 8458,70,69,65,72,65,6E,2@,4B,2BSB L[C7441 
138 DATA 811@,61,73,74,65,72,63,6F,70,2622 L[ssE83 | 243 DATA 8459,61,73,73,65,74,74,65,3E,26F4 [33321 
139 DATA 8118,79,72,69,67,68,74,20,31,29B1 [@9@E] | 244 DATA 8460,4B,61,73,73,65,74,74,65,36E5 [6424] 
14@ DATA 9120,39,38,36,28,62,79,41,4E,1478 (S@E41 | 245 DATA 8468,1F,10,03,18,290,52,20,18,08F0 [14041 
141 DATA 8128,54,49,53,4F,46,54,28,20,35C@ LFD@2]1 246 DATA 8478,20,45,6F,70,69,65,72,65,8A7D [85541 
142 DATA 813@,47,65,72,64,2@,57,45,69,325F [28F@)] | 247 DATA 8478,6E,20,4B,61,73,73,65,74,329A [90421 
143 DATA 8138,6E [06261 | 248 DATA 8489,74,45,36,44,69,73,6B,65,22F7 LE2561 
144 DATA tc9F8) | 247 DATA 8488,74,74,65,1F,10,04,18,2@,2ABQ [75421 
145 DATA [90143 | 258 DATA 8498,33,20,18,20,4B,6F,7@,69,13ED LEFSA] 
146 DATA 8158,35,39,30,20,43,6F,6 [Bis] | 251 DATA 8498,65,72,65,6E,20,44,69,73,24F1 [9AZAI 
147 DATA 9158,65,6D,20,29,04,32,1 t2Die) | 252 DATA 84AB,6B,65,74,74,65,3E,4B,61,2627 [8D4C1 
148 DATA 8160,20,20,20,42,28,61,20,63,1887 LAD743 | 255 DATA 648, 73,73,65,74,74,65,1F,10,2CB6 LEC7AI 
149 DATA 8168,20,68,20,75,20,7@,2@,2D,@293D Ls@@G1 | 254 DATA 8469,05,18,20,54,20,18,20,4B,02AB LCSFCI 
150 DATA 8170,20,4D,20,61,20,73,28,74,@01AB L19C4) | 255 DATA sör, 20, LAS441 
151 DATA 8178,20,65,20,72,20,20,20,56,0BF& LD2DB2 | 256 DATA 84C0,44,69,73,6B,65,74,74,65,32E5 [S7AC1 
152 DATA 8180,20,20,31,2E,30,20,20,20,1DA@ LasBA) | 257 DATA BACH,SE,44,9,73,6B,69,74,74,0648 L2AME] 
1553 DATA 8188)20,20,28,43,6F,70,79,72,1AB8 LB@F6) | 258 DATA 8408,65,1F,1C,07,18,20,35,20,56BA [2AM6] 
154 DATA 8190,69,67,68,74,20,20,28,31,26F1 L[&4E@] 259 DATA 8408, 18,20,48,65,61,64,65,72,8970 L3B@A] 
155 DATA 8198,39,38,36,20,2@,20,62,79,177D L9EFBI2 | 260 DATA B4EQ,6C,6F,73,65,73,20,46,69,260D LEDS41 
156 DATA 81AQ,20,20,20,41,4E,54,49,53,1BF1 [BAI@] | 261 DATA 84E8,6C,65,20,61,75,66,20,4B,2F6B LAIAN] 
157 DATA a2 Da,1n,srsn Larızı | 262 DATA BAEBSEISTSSTSTEN Ta Ta EST zen LBLE2I 
158 DATA 8,B4,3: tD8743 | 263 DATA 84F8,1C,08,18,20,36,20,18,20,002@ L7iFAl 
159 DATA Tısa,ao,22158AR IDe203 | 264 DATA B500,48,65) 61,84,85,72; }6C,6F,3577 L[192C1 
168 DATA 81C9,20,B6,21,50,81,7E,2 [D74812 | 265 DATA & [CESEI 
161 DATA 81C8,28,05,CD,5A,BB,18,F tczecı | 266 DATA [21841 
162 DATA 81D9,46,01,00,BC,ED,79,3 M C4B762 | 267 Data CDISE] 
163 DATA 81D8,01,08,BD,ED,79,21,34,82,1A56 [47601 | 268 DATA [89821 
164 DATA B1E0)11,F0,C5,@1,10,02,ED)B@,2DD2 LEC74] | 267 DATA 8528,74,61,6C,6F,67,1 E349A1 
165 DATA B1E8,11,F@,CD,@1,1@,@2,ED,BQ,2CD2 t&DA2] | 278 DATA 8530,18,28,48,29,18,28,46,69,BFAS LSBF@I 
168 DATA B1F@}11,F@,D5,01,10,@2,ED,B@,2FD2 9388] | 271 DATA 8538,60,65,2D,48,65,61,64,65,2C61 LDAs2I 
167 DATA B1F8,11,F@,DD)@1,1@,@2,ED,BG,2ED2 IDEAEI | 272 DATA 8549,72,28,61,75,73,67,65,62,S8DC LAS101 
168 DATA 8209)11,F0,E5,01,1@,@2,E0,B@,29D2 [23421 | 273 DATA 8548,65,6E,1F,1C,@C,18,2@,4C,2B2C L[F9941 
189 DATA 8208,11,F0,ED,®1,10,@2,ED,B@,2eD2 [26701 | 274 DATA 8550,20,18,20,44,69,73,6B,2D,145F L[SFiEI 
178 DATA 921@,11)F@,F5,@1,10,@2,ED,R@,28D2 L164Al) | 275 DATA 8558,46,69,60,65,73,20,6C,6F,3isF [7A721 
171 DATA 1}F@,FD,@1,10,@2,ED,B@,2AD2 L[@178] | 27& DATA 8548,45,73,63,68,65,4E,1F,10,2612 [2540] 
172 DATA 182,@0)11,12,5@,CD,66,11sC LIECCI | 277 DATA 8548,0D,18,20,52,20,18,20,44,Q0C4 LSDE&I 
173 DATA 1B,CD,@6,89,C3,F@,C5,@@,6iC2 LFSC2] | 278 DATA 8578,69,73,68,2D,46,69,60,65,2407 [9B841 
174 DATA 8230,00,00,00,20,21,F@,CD,CD,@s9F L2Es@1 | 277 DATA 8578,73,20,75,60,62,65,6E,65,3BCD [DF96) 
175 DATA 8238,49,C6,CD}7D/BC}CD}66,BB,@DiS L7EICI | 288 DATA BSB@,6E,6E,65,6E,1F,1C,@E,18,264C [BAB2] 
178 DATA 8240/FE.45,CA,CD/F7,CD,F@,ED,7ESI LiBsC) | 281 DATA 8588,28,42,20,18,28,42,61,75,05BF LDSF2I 
177 DATA 8248,38,F3,F5,CD,4C}BB,F1,FE,3228 [72@E) | 282 DATA 8599,44,72,61,74,65,20,65,69,26EB [BE26] 
178 DATA 8250/AC,CC,ES)EE)FE,S2)CC,S7,@@97 ISS@C) | 285 DATA 8598,6E,73,74,65,60,60,65,6E,2164 182821 
179 DATA 825BJEF,FE,S1,CC,SE,DE,FE,S2,41A& [@BS6) | 284 DATA BSAR,ıF,1C,@F,18,20,58,20,18,0eF8 160401 
180 DATA 8268,CC.B1.DE,FE,SS.CC.SS.DF,S@71 IS@F6I | 285 DATA 8548,20,58,61,72,61,60,65,74,0Da2 LaSiEı 
181 DATA B24B}FE,34,CC,F@,ES,FE,SS,CC,SBF6 LAFS6ı | 286 DATA 85B0,65,72,20,61,65,6E,64,65,2E2D [09541 
182 DATA 827@!B1.DF,FE,SACC,BB,FE,FE,76AZ LaDSEI | 287 DATA 85B8,72,6E,1F,1C,11,18,20,45,204D [73541 
183 DATA 8278,43,CC,DD,E4,FE,42,CC,99,@@B9 [4FiE) | 2868 DATA 85C8,20,18,20,59,72,6F,67,72,1598 [55081 
184 DATA 828@,EF,FE,S@,CC,@9,EE,FE,4B,4CB4 [26461 287 DATA 85C8,51,60,6D,65,6E,64,65,907,221D T&ABEI 
185 DATA 8288,CC,4C,F7,18,A7,7E,23,B7,6E51 L[S9E81 27@ DATA 85D8,00,41,20,6F ,64,65,72,20,10C@ LSEF2I 
186 DATA 8298,C8,CD,5A,BB,18,F7,3E,BA,S4DA L[AA2Z21 271 DATA 85D8,42,37,07,20,00,31,2E,20,2C78 L[FS2C]1 
187 DATA 8298,CD,5A,BB,SE,@D,CS,SA,BB,67EB I[CE64) | 292 DATA BSEB,S1,30,50,50,20,42,61,75,11sF [22081 
188 DATA 82AQ,06,08,21,08,01,23,97,BC,@4F6 LaFs@l | 295 DATA 8SEB,64,0A,BA,@D,52,2E,20,51,3049 [9CAB] 
187 DATA 82A8,C2,61,C6,1@,F5,C9,18,C@,64FC ILSCCEI | 294 DATA 85F0,35,30,30,20,42,61,75,64,1194 L[BIEEI 
198 DATA 82B0,)@7,18,C0,87,@F,C@,07,12,1E54 L[AB441 | 295 DATA E5F8,0n,84,0D,33,2E,20,32,350,04B4 [92501 
191 DATA 82B8)C8,87,21,8C,B8,06,1@,CD,4815 L42721 | 27& DATA 8808,30,30,20,42,61,75,64,BA,16SE [6SEBl 
192 DATA 82C0,82,C7,ED,5B,28,B6,CD,8C,s5AlE [BA18] 297 DATA 8608,04,00,34,2E,20,32,35,3@,05B2 LED141 
193 DATA 82C8,BC,3A,2F,B&,FE,18,38,86,59C6 L[BSEAI 298 DATA 8618,58,28,42,61,75,64,BA,BA,1C76 L9FB6] 
192 DATA 82D@,34,23,B6,B7,2@,1D,CD,ES,@82B I[SBBA) | 297 DATA 8618,0D,55,2E,28,35,50,50,30,0D@8 [39021 
195 DATA 82D8,E7,3E,@2,32,0C,B8,3A,2B,7BBF [ällE] | 388 DATA 8628,20,42,61,75,64,BA,BA,0D,BBE1 [07041 
19& DATA 82E0,B6,2A,2C,B&,ED,SB,2E,B&,59BE [&EZEI | S@1 DATA 8428,36,2E,20,33,35,30,38,20,1698 [@9C41 
197 DATA 82E8,ED,AB,30,B6,CD,98,BC,D@,2C8@ LA1ss] | 382 DATA 8630,42,61,75,64,04,04,0D,42,3180 L[7iEEI 
198 DATA 82F0,C3,8F,BCCD,BS,E7,SE,@1,SF59 [7DsAl | 3@5 DATA 8658,69,74,74,65,28,77,61,65,2125 LO@FCI 
199 DATA 82F8,32,5C,B8,97,32,50,B8,21,1105 ICEsA) | 3@4 DATA 8640,68,60,65,6E,20,53,69,65,25BB [34561 
200 DATA 8300,00,08,22,5F,B8,2A,2C,B6,865& L[2E261 | 3@5 DATA 9648,29,28,31,2D,36,29,3A,20,1FB@ [SE221 
2@1 DATA 8388,22,61,B8,5D,32,63,B8,5A,1CC6 I[B3S621 5@& DATA 8558,07,28,00,00,0A,0D,42,69,0309 L[BO2BEI 
202 DATA BS10,2B,B6,52,5E ‚BE ,20,2E,B6,5E22 C@0923 
‚4,8, 2A, 30,86, 22,66, 1EDA 683 E . 
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3@7 DATA 8658,74,74,65,20,51,75,65,6C,2A5A 
B,61,73,73,65,74,74,2548 
9,65,67,6E,60,65,6 

310 DATA 8670,65,&E,2C,28,50,4C,41,5° 
311, DATA 8679,20,75,6E,64,20,65,69,6 


F,67,20,76,6F ‚6E,2078 
4,69,73,6B,65,74,74,0948 
Q,6F ,64,65,72,20,4B,33CB 
x ‚28 65,74,74,65,20, a 


165,60,65,6B, 74,61 
F,64,65,72,20,74,3A74 
1,6C,20,6B,6F ,70,2862 


326 DATA 86F@,72,6E ‚20,69 ,6E,20,32,20,25R4 
327 DATA 86F8,42,6C,4F,65,63,&B,65, 66,530 
328 DATA 8700,20,28,4A,2F ,4E,29,3F,20,135A 
329 DATA 8708,20,0R,04,0D,45,78,74,45,0055 
33@ DATA 8710,6E,73,69,6F ,6E,28,6D,69,2353 
351 DATA 8718,74,20,61,62,73,70,65,69,5AFB 
332 DATA 8720,63,68,65,72}6E,20,28,4A,23EA 
333 DATA 8728,2F ‚4E,29,3F,20,00,0A,aA,asce 
14 ,65,66,61,75,60,7 
1,75,66,77,65,72,6B,2423 
8,41,2D,44,29,3F ‚20, 122A 
A,QA,aD, ss, 73,65,72,8@CC 
338 DATA 8750,62,65,72,65,69,63,68,20,2264 
337 DATA 8758, 28,30,2D,46,29,3F,20,@ 


E,20,28,4A,2F ‚4E,21BB 
0,00,0N,0A,@0D,4E,1F6C 


345 DATA 8788,46,49,40,65,20,&B,6F,7 
346 DATA 8790,69,65,72,65,6E,20,28,44,2634 


29,36 ,20, aA, 
‚8A,0D,42,49,74,74,65,28,@AGA 
349 DATA 87A8,51,75,65,60,60,64,69,73,3DF1 
350 DATA 87B0,6B,65,74,74,65,20,69,6E,2614 
351 DATA 87B8,20,4C,61,75,66,77,65,72,0424 
352 DATA 87C0,4B,20,08,@A,0A,0D,42,& 
353 DATA 87C8,74,74,65,20,50,69,65,& 
354 DATA 8708,64 ,69)73,6B,65,74,74,6 
355 DATA 87D8,20,49,6E,20,4C,61,75,66 
356 DATA 87E0,77,65,72,6B,20,00,0A,0l 
357 DATA 87E8,14,AC,6F,61,64,69,6E,6 
358 DATA 87F0,20,00,28,65,69,6E,6C,6: 
359 DATA 87F9,67,65,4E,20,75,6E,64,2 
368 DATA 8800,65,69,6E,65,20,54,61,7: 


8830, 4E ‚60 ,65,67,65,4E,20,20,2438 
367 DATA 8838,52,48,43,2B,50,40,41,59,S1FB 
368 DATA 8840,24,75,6E,64,20,65,69,6E,D4E8 
369 DATA 8848,45,20,54,61,73,74,65,20,3452 
370 DATA 8850,64,72,75,65,63,6B,65,6E,2460 
371 DATA 8a58, 2E ‚0A, @D,07,00,00,00,00, 1450 
372 DATA 8840,80,00,00,00,46,69,6C,45,0329 
373 DATA AB48,2D,48,65,61,64,65,72,00,0048 
374 DATA 8870,04,0D,14,53,61,76,69,6E,859C 
375 DATA 8878,67,20,20,08,42,69,74,74,3CA8 
376 DATA 8880,65,20,46,69,60,65,6E,61,3699 
377 DATA 8889,40, 65,20,65,69,6E,67,65,2FCB 
378 DATA 8890,62,65,6E,34,20,07,00,42,277E 
379 DATA 8878,69,74,74,45,20,6E,65,75,2157 
380 DATA 8BAB,65,6E,00,0,04,0D,42,69,2929 
381 DATA 8848, 74,74,65,20,61,6C0, 74,65, 2895 
392 DATA B8B@}6E,00,97,DF }6A,C6,97,DF,29A7 
383 DATA 88B8,&D,C6,21,F@,D5,CD,49,C6,@7E8 
384 DATA BECD,CD,@6,BB,06,00,CD,45,07,7379 
305 DATA B8CH,CD,2D,FF,21,3E,DE,DA,D4,73D8 
396 DATA 88D0,DF ,38,F@,2A,2C,B6,CD,83,7F81 
387 DATA 88D8,BC,D@,CD,BD,C7,21,B4,D7,7F73 
388 DATA 8BEQ,CD,49,C6,CD,06,BB,CD,76,63E8 
389 DATA 8BE,C6,3A,22,B6,B7,28,03,21,661F 
399 DATA 88F@,3E,DE,CS,D4,DF,97,DF,6A,saD@ 
391 DATA 88F8,C6,97,DF,73,C6,21,5F,D7,SCCD 
392 DATA 8908,CD,49,C6,3A,D8,A6,C6,41,6435 
395 DATA 8908, CD,5A,BB,21,8E,D7,CD,49,6S8F 
374 DATA 891@,C6,CD,@&,BB,21,F@,D5,CD,589F 
395 DATA 8918,49,C6,CD,96,BB,06,00,CD,@7CD 
396 DATA 8920,45,C7,CD,2D,FF,21,A9,DE,BECO 
397 DATA 8928,DA,D4,DF,38,F@,CD, 18,E7,4403 
398 DATA 8930,02, 1B,DF,CD,83,BC,D@,CD,7F75 
399 DATA 8938, BD,C7,2A,32,B6,7E,B7,20,6026 
a00 DATA 8940,06,CD,A1,C7,C3,83,DF,11,2FAB 
aa DATA 8948,A4,AC,01,08,00,7E,FE,2E,798A 
402 DATA 8950,28,0E,FE,00,28,15,ED,AQ,OB2E 
403 DATA 8758,EA,D9,DE,7E,FE,2E,20,0B, 5863 
484 DATA 8940,3E,28,71,01,04,00,01,ED,BerF 
405 DATA 8768,B0,18,03,3E,08,91,47,97,5F9D 
486 DATA 8970,12,21,A4,AC,CD,82,07,E5, 1AQB 
407 DATA 8978, 21,FD,DD,CD,49,C6,E1,E5,3807 
aaa DATA 8988,CD,49,C6,E1,ED,5B,28,BA,44E2 
497 DATA 8988,CD,8C,BC,CD,72,C6,D8,CD,5835 
418 DATA 8998,30,C6,34,22,B6,B7,F5,CC,1CAA 
411 DATA 8998,52,C6,00,52,06,F1,CA,A9,BBE? 


EFCSAI 
tazia) 
L9B7C1 
L&F7@3 
[E74] 
[87083 
[9838] 
CCSSAI 
E117C1 
ECF1@) 
173641 
169321 
147621 
C98SE] 
120341 
CASSAI 
158241 
CAFSZI 
CB7341 
LA73@1 
162441 
CAD441 
E2E121 
C945E) 
[E83] 
CEF423 
[28781 
L7A2C3 
125581 
CFa@R 
caA441 
CAZEAI 
128081 
161681 
CDF223 
CC166] 
[33861 
(46161 
[5056] 
196421 
CaasE] 
13748] 
EFDICI 
(31381 
£9D323 
Car7a1 
[21663 
CAQS41 
CAsaAJ 
CAASQI 
LASB&] 
CSASCI 
[5186] 
157861 
[B922] 
[E2621 
124381 
(8376) 
E1D2AJ 
C9A641 
LF14E] 
164501 
LACFCI 
CC5241 
L94D6] 
LSBC6J 
E@E1B] 
CA4541 
C971E1 
c854AJ 
122881 
CZAZEI 
L163A) 
16752] 
LE24C) 
CD4123 
EDF@aCI 
[30061 
CF9821 
CAFICI 
LOASE] 
[12303 
Ei6BE] 
[50623 
EFDSEI 
[SECCI 
1372A1 
ESDQEI 
LEGERI 
TaEZAI 
C&BB61 
LA1s81 
LA@DEI 
196D8) 
EF2C2] 
1898A1 
E2B1E] 
ECB&EI 
c38723 
tDACBI 
[98381 
CAQF21 
Eiracı 
C17@C1 
E7@EEI 


412 
413 
414 
415 
Al& 
417 
#18 
4197 
428 
a21 
422 
423 
424 
425 
426 
427 
428 
4297 
438 
431 
432 
433 
434 
435 
436 
437 
438 
437 
aaa 
Aa 
442 
443 
244 
445 
a46 
447 
248 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
457 
468 
A61 
462 
463 
464 
465 
466 
467 
468 
469 
478 
471 
472 
473 
474 
475 
476 
477 
478 
479 
a80 
a81 
482 
483 
484 
485 
486 
487 
388 
489 
498 
a 
492 
493 
4974 
495 
496 
497 
498 
4997 
sea 
saı 
582 
583 
594 
sa5 
586 
587 
588 
587 
sıa 
sıı 
512 
513 
514 
515 
516 


Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


S9AB,DE,21,A7,DE,C3,D4,DF,97,7BE1 
89A8,DF,6D,C6,77,DF,70,06,21,63E5 
8959,38,D7,CD,49,C6,3A,D8,A6s,32BE 
8958,C6,41,CD,SA,BB,21,8E,D7,6BD7 
89C2,CD,49,C6,CD,26,BB,CD,F@,6366 
87C8,F5,C5,E5,21,B4,D7,CD,49,525F 
87D2.C6,CD,86,BB,E1,C1,C5,E5,5E53 
89D8,21,82,D7,CD,49,C6,E1,E5,2647 
89E0,06,8C,C5,CD,F7,C7,CD,52,111C 
89E8,C6,C1,E1,E5,CD,45,C7,2A,47E8 
89F0,2C,B6,CD,83,BC,E1,C1,D8,2D26 
89F8,C5,E5,CD,BD,C7,E1,E5,06, 4DCa 
SAQR,0C,3A,24,B6, 57,20, 18,01,0277 
BAQ8,07,20,09,3E,20,ED,A?, 20, 0584 
8A19,03,E4,99 ,DF,ED,4 
BA1B,7B,C6,EL,C1,Di 


" ‚F@,DS, 
BA3@,06,BB,CD,F@,FI 
8A38,CD,49,C6,CD,06,B 
BAAQ,EF ,D@,21,B1,DF,C3,D4,DF ‚4833 
8A48,E5,21,18,D7,CD,49,C6,E1,7291 
BASQ,ES,CD,06,BB,2A,85,B2,CD,A85D 
8A58,5A,5B, 22,85, B2,E1,FE,4E,0876 


8A70,00,00,00,00,3: 
8n7a, DF, 70, C6,97,Df 
snea, 44, 07, JcD, ‚34, ’F 
8A88,C6,CD,52,06,21,68,D7,CD,57AB 
EICH 34,F7,78,59,20,06,F5,97,2335 
8498, 32,34, B6,F1,32,36,B6} 77, 0DAD 
BAAR, 32,35,86,97,CD,52,C6,21,0D7D 
SAAB, SB,D7,CD,49,C6,3A,35,B6,3374 
BABQ,32,DB,A6,C6,41,CD,5A,BB,3693 
SABB, 21,8E,D7,CD,47,C6,CD, 06, 25FC 
SACQ,BB,CD,F@,FS,CH}ES,21,82,7AEC 
8AC8,D7,CD,49,C6,E1,E5,06, 0C,591C 
BAD8,C5,CD,F7,C7,C1 ,E1,E5,CD,47DB 
8AD8,45,C7,2A,2C,B6,CD,83,BC, ISFE 
BAEBJE1,C1,D8,C5,ES,3E,0A,CD,5197 
BAEB,SA,BB,CD,BD,C7,3A,36,B6, 17BA 
SAFQ,32,D8,A6, 3A, 34, B6,B7,20,3R56 
BAFB, 17,21,5F,D7,CD,49,C6,3A,0SAA 
8600, 08,A6,06,41,C IB, 21 ,5F07 
8608, 8E,D7,CD,49,C 16, BB, &A4S 
8618, E1,26,0C,CD,82,C7,05,E5,7A33 
8618, 21 ,FC,DD,CD,49,C6,E1,C1,38A3 
8620, &5,C5,CD,F7,C7,C1,E1,E5,5106 
8528, CD,8C,BC,CD,92,C6,E1,C1,585B 
8530,02, 11,0C,88,19,10,01,C9,6D83 


8648, D7,CD,49,C6, 3A, D8,A6,C6,SEBA 
8558,41 ,CD,5A,BB}21,8E,D7,CD} 1163 
8658, 49,C6,CD,Q6, BB)E1,C3,40, 085% 
8B6Q,E6,21,31,D6,0D,49,C6,97)7657 
8668, DF,70,C6,CD,06, BB,FE,44,64F4 
8B70,CC,5A,BB, ‚28, 1C, JFE, AB, MH 662A 
8578, BQ,E7,28,EF ‚CD, SA,BB,97,@DD1 
8BAQ,DF ,6A,C6,CD,52,C6,21,F0,602A 
8688, D5,CD,49,C6, 3E,@1,32,CC,5DDC 
8590, B8,ED,5B,20,B&4,CD,9B,BC,692E 
8698, CD,@6,BB,C9,CD,@9,B97,2A,7BEA 
8BAB,2C,B&,ES,ED,SB,2E,B6, 19 ,2AES 
BBAB, 11,4E,A6,ED,52,E1,DB,2A,Q19E 
8BBQ,32,B6,CD,82,07,E5,2A,2C,20D4 
8BBB, B6, 22,77 ,FF ‚2A, 2E,B6,22,5236 
SBCQ,7A,FF ,22,A2,FF 2A, 30,B6,0B26 
85C8,22,7C,FF ,3A,D7,A6,32,62,1666 
8BDQ,FF,11,00,00,06,42,21,42,7ADB 
8BD8,FF,7E,23,85,5F ,38,01,14,6E7E 
8BEB, 18,F7,21,AS,FF,73,23,72,3DB@ 
aBEB,E1,E5,CD,8D,EF,11,00,4@,5FCC 
BBF@,E1,CD,BC,BC,06,7F 721,62, 586C 
&BFa,FF ,7E,23,C5,CD,95,BC,C1,4DBS 
8Ca0,30,30,10,F5,01,00,08,24,1962 
8C08,20,B6,7E,23,C5,CD,95,BC,34FA 
8C18,C1,38, 1F,0B,77,BQ,20,F2,6E4A 
8C18,2A,2E,B6,7C,FE,@8,38, 0A, 282A 
8C20,CD,80,BC,38,85,CD,95,BC,508A 
8C28,38,F6,CD,8F ‚BC,CD, 7A,BC,364C 
8C30,87,C9,E1,C9,3E,@7,05,54,794@ 
8C38,BB,E5,D5,05,21,B2,FF,11,7@1F 
8C49,68,B8,Q1,QE,@d,ED,B@,21,1035 
8C48, D2,FF,@1,0B,@@,ED,B@,C1,5445 
8CS@,D1,E1,C7,00,00,00,00,00,47E0 
8C80,00,00,00,00,FE,42,C8,FE,0796 
8C88,43,C8,FE,AC,C,FE,48,CB,@D6R 
8C9@,FE,50,C8,FE,52,C8,FE,31,7D9D 
8C98,D8,FE,37,3F ‚C9,21,5D,D4,5050 
SCAQ,CD,49,C6,E5,CD,81,BB,CD, 6787 
8CAB,86,BB,FE,53,32, 122; B6,28,376C 
SCB@,@F,FE,54,FS,97,32,22,B&, 3052 
SCBB,F1,28,@5,CD,B@,E7,18,E7,783B 
8CC8,CD,SA, BB, Ei,CD, 149) ICa, ES, 6F55 
8CCB,CD,26,BB,FE,4A,32,23,B4,7DE8 
8CD@,28,0F,FE,4E,F5,77,32,23,0953 
8CD8,B6,F1,28,05,CD,B@,E7,18,67&E 
SCE@,E7,CD,5A,BB,E1,CD,49,06,4458 
8CE8,ES,CD,06,BB,FE,44,32,24,4C28 
8CF@,B6,28,0F,FE,4E,F5,97,32,5FB8 
8CF8,24,B6,F1,28,05,CD,B@,E7,21BB 
8D@8,18,E7,CD,5A,BB,E1,CD,49,2E4F 
8D88,C6,E5,CD,26,BB,D6,41,32,45B8 


12641 
LE7BAI 
150241 
C&asa1 
EcD2A1 
EBOBAI 
[5A2@] 
C48D21 
LaREA] 
E7F1AI 
Eısaal 
ESF5@] 
cacıa) 
E7FACI 
Eia1al 
LASCHI 
LAC9CI 
CABSB] 
EıD1a 
EA4281 
EF7@AI 
CA9BR] 
EF614] 
EBQECI 
EDFEAI 
Lananı 
LLSFAI 
EDFF@I 
EZABEI 
LF8141 
[6E6B] 
C9B981 
EC9BAI 
LAQEEI 
tEDF&1 
L2asAl 
CAASA] 
E351C9 
caa7cı1 
EBASC1 
LE@BE1 
L4872] 
CDAAEI 
c8104] 
COSEC1 
LA738] 
c37D81 
L76201 
C&B101 
Ea84A] 
CFAZAI 
LE7941 
Licpal 
L9A6Q1 
C96F@] 
L7@FA] 
CA4B4I 
LEA46] 
LA42E] 
EBFACI 
Laar@ı 
C5AS@] 
[31521 
EC65C1 
LaiSEl 
c2C021 
EDBF2I 
L78D41 
EB6FCH 
CSEDB] 
[41561 
C92DC1 
E64B29 
122461 
ESF129 
E12aA] 
ESAEAI 
[82121 
CCBFAI 
E1BDC] 
[BsECH 
[4180] 
156D61 
Ec7amı 
CABaA] 
E9SCEI 
c71281 
132781 
195221 
ESDSEI 
LE2DAI 
c81591 
C74BC1 
LEZACI 
CB2F41 
EDF&B] 
[E448] 
E2DBAJ 
CDFEEI 
LAFAA] 
CBF1AI 
L8B22] 
E16F21 
CDDSCı 
E2DD21 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


8D1@,D8,A6,B7,28,07,FE,24,38,526@ 
8D18,05,CD,BA,E7,18,EC,C6,41,2BQD 
8D2@,CD,5A,BB,E1,CD,49,C6,E5,6F55 
8D28,CD,26,BB,D6,38,FE,00,38,7F42 
8D58,QE,FE,BA,S8,@F ‚D6,07,FE,3798 
8D58,8A,38,84,FE,10,58,@25,CD,84C7 
8D48,BQ,E7,18,E4,32,D7,A6,C6,6FC& 
8D48,350,FE,39,38,02,06,07,CD,2QEB 
8D58,5A,BB,E1,CD,49,C6,CD,86,13FC 
8D58,BB,FE,4A,20,07,32,37,B6,6904 
8D68,CD,5A,BB,C3,84,BB,FE,4E,6C2E 
8D68,C4,B0,E7,20,E9,CD,5A,BB,5495 
8070,97,32,39,B6,03,84,BB,CD,4EF3 
8D78,D9,EF,CD,8D,EF,32,@8,EF,417F 
@D88,21,06,EF,11,28,40,01 ,85,aCF7 
8088, 80,ED,B®,SE,@1,DD,21,2@,2D9E 
&D98,4@,DF,@B,EF ,‚DF,70,C6,03,1E27 
8D78,@D,E7,02,40,00,A4,AC,2A,38E2 
8DAB,C0,27,2D,C0,07,E5,E5,86,6A00 
BDAB,BC,CD,68,BB,F5,C0D,9C,BB,37EF 
SDE®,F1,E1,CD,5A,BB,ES,CD,9C,5B8A 
8DBB,BB,18,EE,E1,E1,C9,CD,60,4F86 
SDC@,BB,12,13,3E,5F,CD,5A,BB,5943 
@DCB, 1@,F4,C9,21,23,DE,CD,49,2D83 
8DD®,C6,21,8D,DE,CD,49,C6,CD,s1@D 
SDDa,DF,EF,CD,8D,EF,32,87,EF 34361 
SDEB,21,A4,AC,11,08,48,@01,0C,2C1E 
SDEB,20,ED,B@,21,2F,DE,CD,49,2C85 
8DF@,C6,21,0D,DE,CD,47,C&,CD,61@D 
SDF8,DF ‚EF,CD,8D,EF ‚32,8A,EF ,437B 
SE@®,21,83,EF,11,00,30,01,@A,2C78 
8EB@8,20,ED,BB,3E,@2,DD,21,00,2D86 
SE1B,30,DF,@E,EF,CS,BQ,EF,87,2731 
9E18,30,04,30,00,00,40,00,A4,1EA4 
SE2B,AC,06,00,7E,B7,28,@4,23,5553 
8E28,04,18,F8,78,09,21,87,CF,1B91 
8E38,CD,47,C6,CD,06,BB,FE,31,63C1 
8E38,38,04,FE,37,38,85,CD,BQ,@14E 
8E49,E7,19,F0,CD,5A,BB,D6,30,66F@ 
8E48,21,4D,81,3D,28,1C,21,DE,819C 
8ES@,80,3D,28,16,21,A7,20,3D,0889 
8E58,28,18,21,85,88,3D,28, 84, ICDE 
8E&@,21,6F,20,3D,28,@4,21,5F ,09DD 
8E68,@0,5D,C3,68,BC,21,08,DE, 1484 
8E78,CD,47,06,21,A4,AC,36,B0,69EC 
8E78,C3,34,BD,21,FD,DD,CD,49,7FFF 
SE88,C6,21,40,00,ED,5B,2E,B6&,65AE 
8E88,3A,CD,BB,C3,9E,BC,08,08,3378 
8E90,20,00,00,00,77,32,37,B6,B4A8 
8E98,DF,78,C6,3E,15,CD,5A,BB,6E33 
BEAQ,21,FF,SF,ES,D1,13,01,20, 2056 
SEAB, 10,36, 00,ED,BQ, 11,FF,3F ‚OFSS 
SEB®,DS,CD,7B,BC,E1,E5,97,11,4403 
SEBB, 89,20,CB,BE,23,1B,BA,28, 1AAD 
SECR,F7,3E,86,CD,5A,BB,CD,6C,7EDA 
SECB,BB,E1,23,3A,22,B6,B7,20,6086 
8EDB,28,11,A4,AC,26,00,C5,01,Q@FBB 
SED8,08,20,ED,B@,SE,2E,12,13,1SDF 
SEEB,@1,03,00,ED,BB,23,23,23,0BF7 
SEEB,C1,04,7E ,D6,20,FE,35B,38,6196 
SEF@,ES,78,32,37,B6,21,A4,AC,6D6@ 
SEFS,C9,E5,21,02,0@,11,12,4D,57ED 
8F@8,CD,66,BB,E1,06,28,CD,F7,670D 
8F@8,C7,3E,2E,CD,5A,BB,06,83,6523 
8F18,CD,F7,C7,3E,28,CD,S5A,BB,427B 
8F1B,23,23,23,7E,D6,28,FE,SB, 1D37 
8F20,38,E2,21,02,00,11,12,50,22B8 
8F28,CD,66,BB,11,A4,AC,21,01,6EAS 
8F38,@1,E5,CD,75,BB,CD,11,EF,2111 
8F38,CD,@6,BB,E1,E5,F5,CD,75,7B65 
8F48,BB,CD,?C,BB,CD,11,EF,CD,7ZICE 
8FA8,9C,BE,F1,E1,FE,EB,20,26,74£6 
8F5@,3A,37,B6,30,32,37,B6,E5, 0505 
8F58,CD,75,BB,3E,16,CD,5A,BB,&CCB 
8F6&B,SE,@1,CD,5A,BB,86,@C,CD,0655 
SF6B,2A,EF,SE,16,CD,5A,BB,97,2E81 
8F7@,CD,5A,BB,E1,18,2F,FE,FC,68@0C 
8F78,20,02,E1,C9,FE,F@,20,05,0445 
8F8@,ES,C1,2D,18,2D,FE,F1,28,45B2 
8F88,85,E5,C01,2C,18,24,FE,F2,207E 
8F9@, 20,@F,E5,C1,7C,FE,01,28,834A 

15,3E,4F,2D,D6,0D,67,18,0362 
1,FE,F3,20,28,ES,C1,7C0,2804 
SFAB,FE,42,20,03,3E,F4,20,06,69GE 
8FBQ,2D,67,E5,CD,75,BB,CD,6Q,@FaE 
BFBa,BB,E1,C2,8D,F6,CD,B@,E7,7053 
8FCR,CS,E1,C3,8D,F6,FE,QD,C4,4EE6 
8FC8,BQ,E7,02,8D,F6,CD,6C,BB,75B7 
8FD@,21,A4,AC,3A,37,B6,47,09,2C87 
SFDB,CD,49,C6,21,7D,CF,CD,49,6F17 
SFEB,C6,CD,26,BB,D6,41,FE,02,5D7A 
SFEB,30,F7,47,C6,41,03,50,BB,204B 
SFF®,DF,6R,C6,21,F@,DD,CD,49,6AF7 
SFF,C6,21,38,D6,CD,49,C6,CD,672D 
008, 06,BB,26,QQ,FE,AB,CC,SA,2AlE 
9008, BB,28,2E,FE,44,C04,BQ,E7,5D17 
7018, 20,ED,CD,5A,BB,CD,52,C6,31CE 
9218,CD,52,C6,DF ,78,C6,CD,D9,66EB 
9028,EF,CD,52,06,26,00,E5,7E,4364 


9038, 23,0D,52,C6,21,F@,D5,CD,274F 
9940, 49,C6,CD,@6,BB,CD,32,C6,OAAE 
9048,CD,52,C4,21,8C,E8,E5,11,4F@B 
9asa,a0,08,SE,2C,CD,Al,BC,E1,2075 


EF9BCI 
CA9F41 
EBCAEI 
c34001 
L7BEB] 
CA38E1 
EDSEAI 
TEECQI 
EoASa] 
T14AEI 
LAEB2ZI 
C35141 
E17a21 
176721 
[D4261 
C2ABEI 
Eir20] 
C31A61 
LEB961 
CEEABI 
EBDICI 
[66581 
E91141 
CACE61 
Laasa] 
[F9921 
[11681 
ECDIEI 
E1CSC1 
E14D6) 
LAFZEI 
[26AB1 
CA1D01 
ECCEB1 
[6148] 
LA9B2] 
EDB1A1 
[oQA6] 
CESB21 
Laa721 
c5D381 
£5C783 
LEBZEI 
LaDACı 
L7CDEI 
E1AA2I 
[34021 
EBFDAI 
[35 
L8B38J 
LQE7AI 
EAZD&J 
[5A32] 
EDBCEI 
LEAASI 
EDDB41 
E13A81 
Es9CCH 
E1B781 
C&EEA1 
CAADBI 
cB1AB1 
t2E121 
CA2DB1 
[A636] 
EF@AgI 
ECDD&] 
CA6EB1 
EBEESI 
[22461 
EIECEI 
[98241 
EF7aCI 
[83881 
ESCE6] 
CFB4@J 
EAD721 
CA7881 
LACE6I 
E11ERI 
E35B@] 
CB7ARI 
EB6D21 
CA7DA1 
ECBSEI 
{91421 
[946C3 
[9371 
[a4ER] 
178581 
EDBSAI 
t2DEB1 
LAA7Bı 
1C2221 
LEIBAI 
Eopnc1 
[6212] 
[ABS] 
L1C98J 
132221 
EFSCEI 
682021 
[Q&r&l 
EB6C8] 
EFaaB] 


622 DATA 9858,E5,CD,52,C7,CD,7D,BC,E1,41F5 CB12A] 
623 DATA 9868,CD,49,C06,3E,@A,CD,SA,BB,sC8B [44341 
624 DATA 9848,CD,5D,C7,CD,@06,BB,C3,F@,SEsA [355Al 
625 DATA 9878,C5,21,DF,F7,CD,49,C6,CD,785D LF7221 
&25 DATA 9@78,26,BB,FE,4A,CD,SA,BB,C2,3214 [ABB] 
627 DATA 9Q8@,F@,C5,C7,00,57,49,72,6B,52F3 [67941 
628 DATA 9@88,60,69,63,68,20,28,4A,2F,27EB [90881 
629 DATA 909@,4E,29,3F,27,20,00,00,20,2BD@ L[93QE1 
63@ DATA 9BAR,20,02,RQ0,00,CD,06,57,21,0723 L[DAEBI 
631 DATA 9@A8,82,D7,CD,49,06,21,40,20,6FC4 L[BC9CI 
‚an, = [3042] 
633 DATA 7@B8,38,B6,1B,3E,168,CD,75, 28, 364A [C9761 
634 DATA 9UCa,FS,DS CD, ’D6, FE,DI, 38, @C,5SFCB [67501 
635 DATA 90C8,B7,2 F6,31,08,C0,CD,29, 4003 EBCASI 
636 DATA 98D@,B9,C3,F@,C5,21,88,28,CD,7D65 LFCEAI 
637 DATA 9@D8,9D,28,D1,CD,61,28,FE,@1,5025 L4SAE1 
638 DATA 9@E@,28,17,B7,28,E6,21,78,FE,@21A L[A1BCI 
639 DATA 9@EB,CD,49,C6,CD,61,28,21,F@0,43CA LIiCF23 
649 DATA 98F@,D5,CD,47,C6,CD,86,BB,18,5B9E [67281 
641 DATA 9GF8,AB,DD,ES,E1,11,44,88,ED,7185 L[1DC61 
642 DATA 9100,52,22,2E,B6,3E,82,32,2B,2E97 [184Q1 
&43 DATA 91@8,B6,21,6A,FE,CD,49,06,34,571A [@7E21 
644 DATA 9118,CD,B8,CD,15,FF,CD,52,C6,54DE L[B2441 
645 DATA 9118,CD,BD,C7,C3,09,B7,@A,@0D,5FAS L[9B1E1 
646 DATA 9120, van 5 ‚ee 6E,62,79,74,65,3599 [25621 
12834] 
L4EDEI 
L7D9EI 
ESEC6I 
=B7,, ; [SCAEI 
652 DATA 915@,CD,86,BB,21,F0,D5, CD, 49,7777 CB1CA] 
653 DATA 9158, E6, CD,@6,BB, JED, Fa, FD, Dr, SFBD L7FAEI] 
654 DATA 9168, 73,C6,CD,Al 167)38}FB,C5, ı1C5B [3882] 
655 DATA 9168,E5,21,FD,DD,CD,49,C6,E1,6E91 LOFZA] 
65& DATA 9178,E5,C0,49,C64,E1,C1,ED,5B,41@8D L[5D841 
657 DATA 9178,28,B6,CD,8C,BC,CD,92,06,2BD6 [ASS61 
658 DATA 9188,D8,CD,5C,C6,21,A8,FE,C3,SES7 [77181 
659 DATA 9188,D4,DF,2E,55,CD,CD,29,D@,588E [83301 
668 DATA 97198,11,20,28,62,CD,CD,297,D@,0B7E [85741 
661 DATA 97198,EB,24,20,09,EB,25,2@,F4,73E8 L[8F8AI 
662 DATA F1AB,61,79,92,4F,9F,47,EB,09,3C4AB [65021 
663 DATA 91A8,EB,CD,CD,29,D@,7A,CB,3F,5BS1 [C75A1 
664 DATA 91BQ,CH,5F,8A,94,38,EA,91,38,7132 [28821 
665 DATA 91B8,E7,7A,1F,8A,67,22,CE,B8,64D4 L[iD@8] 
666 DATA 91C2,CD,B@,29,D8,32,CD,B8,57,4145 LDFB2] 
667 DATA 9108,C09,5F,87,87,07,07,E6,0F,7237 [9DBA] 
668 DATA 91D8,CD,22,FF,7B,E6,@F,FE,BA,78AA LIASCI 
669 DATA 91D8,39,02,06,87,06,30,03,5A,051C LAC7ZAI 
678 DATA 91E0,BB,3A,22,B6,B7,C8,CD,52,5B78 L[B4ECI 
671 DATA 91E8,C6,CD,52,C6,21,24,D7,CD,569B [DSF81 
672 DATA 91F@,49,C4,CD,@6,BB,FE,4A,28,BASC TECIEI 
673 DATA 91F8,12,FE,4E,C4,B@,E7,2@0,F2,35AE [ES@41 
674 DATA 92@@,CD,5A,BB,CD,7D,BC,CD,92,6BAd [166A1 
675 DATA 928@8,BC,37,C9,CD,5A,BB,3E,@0B,467B [E8281 
676 DATA 9218,CD,5A,BB,C3,5A,BB,08,0@,6B6C L9FEEI 
677 DATA 9228 ‚22,08, 20,00,0 2,20,00,2100 TE3441 
678 DATA 9258,00,020,00,20, 20) 20,20,20,03EB L7189A1 
679 DATA 9260,20,20,20,20,20,20,42,41,1F45 L43A8] 
&88 DATA 9248,43,4B,55,50,2D,4D,41,53,3C4D [BQ4B1 
681 DATA 927@,54,45,52,20,20,20,63,6F ,3229 L[LS3D61 
682 DATA 9278,70,79,72,69,67,68,74,2@,2CC® LAFSEI 
&83 DATA 9280,31,37,38,36,20,20,62,79,139D L@SF6] 
684 DATA 9288,20,41,4E,54,49,53,4F,46,BFiC I[2ASEI 
685 DATA 9290,54,20,20,20,20,20,00,00,2580 L[@47E1 
685 DATA *ENDE* TBBDCI 
697 zeile=194: MEMORY &7FFF LFD241 
688 READ d$:IF d$="#ENDEX"THEN 788 [1904] 
687 adr=VAL("R"+d$) [E6181 
698 pı L4EiCI 
691 FOR i=1 T0 8 [85721 
692 READ a$:a=VAL( L2C5@] 
693 POKE adr ,a:zadı ED92CI 
694 Brapnece pr>65535 THEN pr=pr-65535 ED&ACI 
695 pr=UNT(pr)XOR a:IF pr<@ THEN pr=pr+64553 
& £3DC4] 
696 NEXT i [3F1Al 
697 READ pr$:pr2=VAL("&"+pr$):IF pr2<® THEN 
pr2=pr 2465536 L59A61 
698 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";zeile:STOP EDD2EI 
699 zeile=zeile+1:G0T0 488 [B8981 
7a@ SAVE"BACKUP.BIN",B,&8000,%1296:END L[F3481 
ng 1. »Backup-Master« (Schluß) 
12 °BACKUP-MASTER L73AE] 
28 "copyright 1986 by ANTISOFT EBDFAI 
38 "Gerd Weinand / Herrenstr. 14 / 5598 
Cochem [QE44] 
33." L7FSE1 
40 MEMORY &7FFF L9ESBI 
58 LOAD"backup.bin" ‚28008 [C1CB] 
sa TALL &B0aB [59681 
Listing 2. Diese Routine dient dem einfachen Aufruf 
des Backup-Master 
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Schrift beliebig groß 


Mit verschiedenen Schriftgrößen sah es bisher auf 
den CPC-Monitoren mager aus. Unsere Befehlser- 
weiterung »Scale« schafft Ihnen jetzt freie Bahn. 


or allem Spiel- und Grafik-, aber auch Anwender- 

programme profitieren von einem ansprechenden 

Bildschirmaufbau. Sei es, um optische Reize zu er- 
zeugen, oder auch »nur« für eine bessere Übersicht. Bisher 
stand jedoch kaum ein brauchbares Hilfsmittel zur Verfü- 
gung. Alles was es gab, war beispielsweise Software, die 
erlaubte, die drei Schriftgrößen der verschiedenen Bild- 
schirmmodi zu verbinden. 

Wir stellen Ihnen hier nun mit »Scale« eine RSX-Befehls- 
erweiterung vor, die sich nach Belieben in jedes Ihrer eige- 
nen Programme integrieren läßt. Sie besteht aus weniger als 
200 Byte Maschinencode und ist im Speicher zwischen den 
Adressen 3FFF und ACOO hex frei verschiebbar. Listing 1 
enthält den Basic-Lader. Speichern Sie ihn sicherheitshalber 
bitte unbedingt sofort nach der Eingabe. Nach dem Start er- 
zeugt er selbsttätig die Binärdatei »SCALE.BIN«. Eine ein- 
drucksvolle Demonstration finden Sie in Listing 2. Die Zeilen 
10 bis 90 zeigen, wie man den Scale-Maschinencode in Pro- 
gramme einbindet und ihn dabei automatisch unterhalb der 
Speicher-Obergrenze ablegt. Die eigentliche Demonstration 
beginnt ab Zeile 100. Wie Sie auch dort sehen können, ist die 
Syntax des neuen Befehls 
| SCALE,x_größe,y_größe, "Text” 

Die beiden Parameter »X__größe« und »Y__größe« müssen 
jeweils mindestens den Wert 1 besitzen und geben den 


108 RR LAMBERT 
i@1 '* SCALE.DAT — DATA-Lader von 'CPC' * LSDSE! 
102. RR LICBAI 
103 * TDEB&I 
184 DATA 7C40,01,0A,AB,21,@E,AB,CD,D1,17AB [48901 
185 DATA 9C48,5C,C7,12,AQ,18,2A,00,0@,644E8 L3SF741 
106 DATA 9C58,20,08,53,43,41,4C,C5,00,0CE2 [96161 
197 DATA 9C58,FE,03,28,08,CD,08,B9,3E,7D64 LAQCCI 
108 DATA 9C68,16,03,93,CA,F3,3A,8F,B2,23DC [46F2] 
127 DATA 9C68,32,38,83,30,78,B2,32,39,84D5 [45501 
118 DATA 9C7®,B3,CD,C6,BB,ED,53,AB,AC,7E6B L[DESBJ 
111 DATA 7C78,22,AA,AC,26,0@,DD,6E,04,2FCC I[S1F6] 
112 DATA 9CB9,22,44,AC,DD,6E,82,22,A6,23Ch L&FCBI 
113 DATA 9C88,AC,DD,66,21,DD,6E,00,46,6AB6 [99EA] 
114 DATA 9079,23,5E,23,56,EB,C5,ES,7E,@2F8 [ECCAI 
115 DATA 9C98,CD,AS,BB,@6,08,C5,CD,06,5A08 LA7FOI 
116 DATA 9CAB,B9,7E,ES,2A,A6,AC,45,05,5ACF [A454] 
117 DATA 9CA8,06,08,87,30,1@,05,F5,21,00BF [81561 
118 DATA 9CHQ,00,00,ED,SE,A4,AC,CD,F9,1EES [A336] 
119 DATA 9CB8,BB,F1,C1,18,0B,ED,SB,2C,7B16& L[8B2C] 
120 DATA 9CC9,B3,2A,A4,AC,19,22,2C,BS,ADEB [76001 
121 DATA 9CC8,10,E0,2A,2E,B3,2B,2B,22,32E0 [B498] 
122 DATA 7CDB,2E,B3,ED,SR,AB,AC,ED,53,2549 [@34C1 
125 DATA 9CD8,2C,B3,C1,1@0,CA,E1,23,01,26B3 L[@SC6] 
124 DATA 9CEB, 10,BB,ED,SB,A4,AC,21,08,398A TAsEBI 
125 DATA 9CEB,@0,CD,BE,BD,ED,5B,AB,AC,2BAB [5596] 
126 DATA 9CF@,19,22,AB,AC,22,20,B3,2A,1B2C [CBCAI 
127 DATA 9CFB,AA,AC,22,2E,B3,E1,23,C1,7ESB [38201 
128 DATA 9D88,10,793,FB,C7,00,88,00,08,3F30 LAs16] 
127 DATA *ENDE* LBScC) 
130 adr=%97040:zeile=1Q4:MEMORY adr-i LEAS6I 
151 READ d$: IF d$="*ENDER"THEN 142 L21821 
152 pr=® [538A1 
133 FOR i=1 TO 8 E1A6Q] 
134 READ at: a=VAL(""+as) LE@SEI 
135 POKE adr ‚a:adr=adr+1 LEB1A] 
156 #2: IF pr>65335 THEN pr=pr-65535, _ [459A] 
137 NT{pr)XOR asIF pr<® THEN pr=pr+6553 
LAaB23 
138 NEXT i [2ca8J 
139 READ pr$:pr2=VALC"&"4pr$)sIF pr2<® THEN 
pr2=pr 2465536 107941 
14@ IF pr<>pr2 THEN PRINT"Pruefsumnenfehler 
in Zeile";zeil L3EQA1 
141 zeileszeile+ [B@521 
142 SAVE"SCALE. BIN" ‚B,&ICAR,&C7 EıDaaı 
143 PRINT d$:END CEDFCI 
Listing 1. Basic-Lader des SCALE-Befehls 


Copyright 19386 hy 
Happy-Computer 


PFlo 


So oder ähnlich kann in Zukunft auch Ihr Bildschirm 
aussehen, wenn Sie mit »Scale« arbeiten 


Betrag der Vergrößerung in x- und y-Richtung an. »Text« steht 
für die auszugebenden ASCIl-Zeichen. Die Koordinaten für 
die Ausgabe der vergrößerten Zeichen legen Sie durch Posi- 
tionierung des Grafikcursors fest (MOVE). Freunde der 
Maschinensprache-Programmierung finden in Listing 3 den 
kompletten Quellcode. 

Nun steht Ihrer Arbeit und dem Vergnügen mit Scale nichts 
mehr im Wege. Viel Spaß! (Gerd Weinand/ja) 


Steckbrief 
Programm: Scale 
Computer: CPC 464 
Checksummer: Explora/CPC 
Datenträger: Kassette/Diskette 
18 adr=HIMEM-196:MEMORY adr-i LFSF4] 
28 LOAD"scale.bin",adr [9B78] 
38 "Adressen anpassen [8SFB@] 
40 a=adr+18 L48DA] 
52 POKE adr+11,INT(a/256) :POKE adr+1Q,a- 
2S6* INT (a/256) [57C61 
60 a=adr+14 CACD61 
78 FOKE adr+5,INT(a/256):POKE adr+4,a-25 
6*INT (a/256) [58161 
88 a=adr+1@:POKE adr+2,INT(a/256):POKE a 
dr+1 ,a-256*INT (8/2586) LE1421 
98 CALL adr: ‘Befehl einbinden L82DE] 
100 [DEB@] 
11@ ° #*** SCALE-DEMD L8@DEI 
120 ° TE@BA] 
13@ MODE 1:INK 8,@:INK 1,26: INK 2,16: INK 
3,8:BORDER & t721E1 
140 SCALE 
tAa7ı8ı 
158 "SCALE":MOVE 124,394: !SCALE 
[A288] 
168 SCALE 
[24681 , 
178 a$="Copyright 1986 by":MOVE 58 
SCALE ,A,2,@a: 1SDC4J 
188 "ANTISOFT":MOVE 164,220: 1SC 
ALE,5,3,@a$ 188A23 
198 POKE &B28F ‚%C3: a: 
ALE,5,12,@a8 L1EEBI 
2u@ POKE &B28F,115:a: 
ALE,30,2,@a$ LaADaı 
Listing 2. Demonstration des Befehls SCALE 
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210 FOKE &B28F ,79:a$= ":MOVE 299,138: 

CALE,SB,10,@a$ 177C41 CALL  ASKCUR 5 Grafikeursor-Position laden 
en a NEE ES 1D  (XOS),DE ; X-Position zwischenspeichern 
230 PEN 1ICAlL &BB1B [DEEA1 1 (NPOS),KL 5 Y-Positäon nwischenspeichern 
248 FOR i=1 TO 24:PRINT CHR&{11);:NEXT 19850] u 40 
258 PEN 1:a$="Anwendung: ":MOVE 9,398: !SC m L,(IX4) ; X-Größe nach L 

ALE,6,4,@2$ cD2cc1 10 (cnass) ir 
268 PEN 2:a$="Der !SCALE - Befehl":MOVE D 1,(I2) -Größe nach L 

8,290: !SCALE,4,2,@a$ L16AB1 Li 
278 a$="vergroessert£S>alle":MOVE 0,230: L (1EROSS) ‚HL 

!SCALE,4,2,@a$ [DSsEI » H,(IX#1) 

BeBJASS ER LEHENS SSR UL ENIER IL HOVELA SL znE BEE 1 L,(T40) 5 Stringleseriptor in HL speichern 
298 ase"sonah122>in X-,<2dals":MOVE @,11 De) „ötrliglänge Shin epeichemt 

8: ISCALE,4,2,@2* LFB221 ES 
388 a$="auch in Y-Richtung.":MOVE 0,58: 1 ı E, (EL) ; Stringadresse (Lov-Byte) 

San wi a 
318 DD, i Stringadresse (High-Byte 

20 WINDOW#L,1,48,6,25:CL5#1 [52661 . ER N r 
Ei Er t23bönostigttäädrei "MOVE 0,29 Se F EX DEAL ; mit HL vertauschen: Stringedresse in HL 
MOVE 0,230: !SCALE,A, LETTER: PUSH BC ; Stringlänge merken 
ve DE TC6CEI PUSH HL ; Stringadresse nerken 
Vergroesserung D A,(HL) ; Zeichen nach A 
a: Ver sr telesrung=iNOVE En CAIL GERT; Natrinadnesne des Zeichens nach HL 
tSCALE,4,2,@a$ L61E41 m 88 ; Höhe des Zeichens 
3. Stringvariable":MOVE 0,58: !SC B 
a. air sie een HDD: PUSH BC iöhe des Zeichens merken 
398 FOR i=1 TO 26:PRINT CHR&(11)5:NEXTEM e Jet RO elnasie lien 

ODE @:RANDOMIZE TIME LBE2A] D Am) ; Zeichennatrix-Reihe nach A 
480 WHILE INKEY$="" LC1EAI PUSH HL ; Matrixedresse des Zeichens nerken 
418  a$=CHR$ (RND (1) #90+33) [86261 2 HL, (CROSS) ; Y-Größe 
330 AmaRNDe1) #659: ya=AnD11)+399 EaıBaı 

= :ym= ; 
Mao FRoRNDiatar” ca73A1 Lt nn 
4508 PEN fa:MOVE xm,ym: ISCALE,x,y,as [16061 m B8 ; Breite des Zeichens 
A6B WEND 137081 ; 
470 FOR i=1_TO 26:PRINT CHR$(11)3:NEXT:M BREIT: RICK ; Au Links rotieren; achtes Bit nach CARRY 
ODE 2:PEN ı E2BA4] IR NONONK  ; kein Punkt: weiten bei NOINK 
PusH BC ; Breite des Zeichens nerken 
Listing 2. Demonstration des Befehls SCALE (Schluß) PUSH AR ; Natrixreike in Akku merken 
an} #L,0 ; Y-Offset 
ID DE,(KEROSS) ; X-Offset 
CALL  DRAIR ; Linie relativ ziehen 
et ; Matrixreihe 
POP BC ; Breite des Zeichens 
u B sierung ab 4000 hex AR WEITER ; NODIK überspringen 
; RSK-Befehl >>SCHLE< < Version von 15.04.86 NOT: ID DE,(&B320) ; Inufende X-Ordinate 
; von Gerd Neinand, Herrenstn.14, 5590 achen 1D _HL,ÜKEROSS) ; X-Offset 
5 ADD HL,DE ; Addieren 
; erster Paraneter; X-Größe ı» (88320) ‚HL; neue X-Ordinate speichern 
; zweiter Parameter: Y-Größe WEITER: DINZ BREIT 
; dritter Paraneter: Stringrariable ; 
$ 1D  HL,(B3AE) ; laufende Y-Ordinate 
Io EU ac DEE HL 
KCROSS ERU Aa Dr ; ninus 2 
YGROSS  EQU BACA6 n (B32E),HL ; neue Y-Ordinete speichern 
OS EU Lucas 1D DE,(KOS) ; Linker Rand des Zeichens 
Be TI 1D (1B32C),DE ; neue X-Ordinate speichern 
GEIMK EU BBAS Pop BC ; Y-önöbe 
DRAMR ERU  BEBRO DINZ  10OR 
KoVE EU ABB PP HL ; Natrixadresse 
ASKCR ERU 43806 m BL ; nächste Matrixreihe 
INT: ıD BC,RSK ; Adresse der Befehlstabelle POP BC ; Höhe des Zeichens 
2 HL,KERNAL  ; vier freie Byte Für Betriebssystem DINZ BOCH 
CalL LGEKT ; Befehl einbinden ; 
BET ; zurück ins Basic 1 DE,(XGROSS) ; X-Größe 
Bst DM TBLE ; Adresse des Befehlsnanens ID HLENS ; *8= Linken Rand nächstes Zeichen 
IR START ; Aufruf der Befehlsroutine CALL SBDBE ; vorzeichenlose Multiplikation 
KERNAL: DS 4 ; vier Byte Für Betriebssysten D DE, {XP0S) ; absolute Ordinate linker Rand 
TABLE: DM " SCAL" ; Befehlsname in Großbuchstaben ADD HL,DE ; abs. und rel. Ordinsten addieren 
BB 08 ; "8" 480 hex (letzter Buchstabe) ıD (XP0S),HL  ; in XPOS speichern und 
Bo ; Ende der Befehlsnanens-Tebelle 1D  (WBRC),EL ; als laufende X-Ordinate speichern 
1 HL,(MOS) 
[02 3 ; drei Paraneter? » (2328) ,HL  ; neue Y-Ordinste 
m ZPARIM  ; wenn ja: weiten bei PARAM PP HL ; Stringadresse 
CAtL 83900 5 Basio-Interpreter einschalten m m 5 nächstes Zeichen 
D 186 ; Fehlercode > >OPERAND NISSING< < PP Et ; Stringlänge 
Fa 7%) ; Fehlermeldung ausgeben und ins Basic DINZ LEITER 
; Et ; Interrupts wieder zulassen 
PARAN: DI ; Interrupts sperren RET ; Fertig 
) A,({$B28f)  ; Text-Farbstift nach A 
DD (88338) ‚A Fe . 
1 A,(88290) 5 Text-Peper nach A Listing 3. Der Assembler-Quellcode zeigt 
ı (83339) ‚A die Arbeitsweise 
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Programme in der Zange 


Oft wünscht man sich, Dateien würden weniger 
Kapazität des Speichermediums beanspruchen. 
»Kompex« macht diese Träume wahr. 


sie macht die Arbeit auch unübersichtlicher. Wenn 

Sie nun beispielsweise Ihre 20 Programme auf nur 
noch zwei Disketten (oder auch Kassetten) unterbekommen, 
anstatt wie bisher mit derselben Software derer vier zu bele- 
gen, wäre das nicht die Erlösung? Kein träumerisches 
Wunschdenken, sondern ein durchaus realisierbares Vor- 
haben, wie unser Programm-Paket »Kompex« mit Bravour 
unter Beweis stellt. Dieser Name beschreibt die Verknüpfung 
der Funktionen beider Programmteile. Die Silbe »Komp« steht 
dabei für »komprimieren«. Die nötige Rückwandlung der 
gestauchten Daten übernimmt dann der »Expander« (des- 
halb »ex«). Wie funktioniert nun dieses praktische Utility? 

Kompex untersucht den zu komprimierenden Speicher- 
bereich auf Byte-Wiederholungen. Einzelne Bytes erfahren 
keine Veränderung, während aufeinanderfolgende gleiche 
Werte zu jeweils drei Byte zusammengesetzt werden, die 
den Wert und die Anzahl der Wiederholungen enthalten. Im 
theoretischen Fall, daß der Quell-Speicherbereich nur aus 
Byte-Pärchen besteht, würde dies einen Zuwachs von 
50 Prozent bedeuten. In der Praxis aber tritt der Fall einer 
Vergrößerung nur äußerst selten ein. Meist ist mit einer 
Ersparnis von bis zu 50 Prozent zu rechnen. 

Während der Komprimierung (und natürlich auch bei der 
späteren Expansion) steht sowohl der Quell- als auch der 
Zielcode im Arbeitsspeicher. Die maximale Länge zur Bear- 
beitung ist dadurch natürlich beschränkt. Je nach Beschaf- 
fenheit sind jedoch normalerweise auch Speicherbereiche 


V erschwendung von Speicherplatz ist nicht nur teuer, 


von weit mehr als 20 KByte zu verarbeiten. Eine optimale 
Nutzung des verfügbaren Speicherraums ergibt sich, wenn 
Sie den Quellcode an eine möglichst hohe Adresse laden und 
die Anfangsadresse für den komprimierten Code an eine 
niedrige. Der wachsende Zielcode darf ruhig die unteren 
Byte des Quellcodes überschreiben, sofern dieser Teil 
bereits verarbeitetist. Ist das nicht gewährleistet, bricht Kom- 
pex mit der Meldung »BREAK« ab. Diese Überprüfung arbei- 
tet nur dann korrekt, wenn der Quellcode oberhalb des Ziel- 
codes liegt. 

Nach der Eingabe der Basic-Lader speichern Sie sie bitte 
zunächst sicherheitshalber. Nach dem Starten erzeugen 
beide jeweils eine Binärdatei mit Maschinencode. Listing 1 
speichert den Kompressor »KOMPEX.KMP«, den Expander 
enthält »KOMPEX.EXP« in Listing 2. 

Eine stellvertretende Befehlsfolge zur Benutzung des 
Kompressors ist 
10 MEMORY adresse-1 
20 LOAD "KOMPEX.KMP”,adresse 
30 1%=0 
40 LOAD "QUELL”,anfang 
50 CALL adresse,anfang,länge,zieladresse, @1% 

60 SAVE "ZIEL”,b,zieladresse,1% 

Zeile 10 reserviert dem Maschinenoode des Kompressors 
Speicherplatz. Der Wertfür »adresse« ist variabel, daKompex 
frei verschiebbar ist. Nach dem Laden definiert Zeile 30 eine 
Integervariable, die später Bedeutung erhält. Das Quellpro- 
gramm lädt dann Zeile 40; »anfang« steht für dessen Lade- 
adresse. Der Aufruf in Zeile 50 benötigt als Parameter auch 
die Länge des Quellcodes (»länge«), die Adresse, ab der der 
Zielcode abzulegen ist (»zieladresse«), und »I%« für die Rück- 
meldung der Länge des komprimierten Endprodukts. Die bei- 
den letztgenannten Werte benötigen wir auch wieder in Zeile 


100 HH LSLDAT 


101 '*KOMPEXK.DAT — DATA-Lader von 'CFC' * 
102. RR 


15 
184 DATA ASOB,FE,84,C0,DD,6E,2@,DD,66,697C 


SSaN\SH2UuN-S8 


DATA A538, FD,77,88,23,FD,23,0C,20,662C 
DATA A540,03,04,28,3E,57,7E,FD,77,04AD 
DATA ASaB OB, 25,ED,25,0C, 20,03 184, „1582 L9FBEI 


Neekbonen 


122 DATA A590,01,C9,CD,08,B9,CD,#B,CB,2DB1 


123 DATA #ENDEx 
124 adr=&AS@B:zeile=1Q4: MEMORY adr-1 
ENDEX"THEN 136 


125 READ d$: IF d4= 


adr=adr+i 
pr>65535 THEN pr=pr-65535 


130 pr=pr #2: 
131 BTEÜNT (pr) KOR a:IF pr<® THEN pr=pr+6553 


132 NExT 

133 READ pr$tpr2=VAL("&"+pr$) IF pr2<@ THEN 
Ppr2=pr 2465536 

134 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
„in Zeiletgzeilaißten 

ile+1:G0T0 125 

132 BAVERKONFER. Kir" B, KAB0O, 898: END 


[2E1@] 
LBISEI 
c7c@2] 


Listing 1. Mit dem Kompressor bringen Sie Ihre Pro- 


gramme in ein platzsparendes Format 


L31D41 
[7988] 
LASDBI 
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101 '*KOMPEXE.DAT - DATA-Lader von ’CPC’ * 
192.14 


105 
104 DATA AS@Q,FE,@4,C0,DD,6E,08,DD,66,697C 
185 DATA A588, @1,ES,DD}4E,02,DD, 66,03, 272B 
186 DATA AS19,E5,DD,}4E,04,DD,66,05,E5, AFDF 
187 DATA A518,DD,6E,06,DD,66,07,C1,FD,7A4S 
108 DATA AS28,E1)E9,21,00,00,ED,42,E5,4E35 
107 DATA AS2BJCH, \EL,AF}B9} 20,05,58,20,A6FA 
ASS@,02,E1,C9, 7E,FD, 77,00, 0C,21BB 
A538, 28,03, 04,28,2D, 23, FD, 23, 127D 
DATA A548,57,7E,FD,77,00,0C, 20,03, 2CA3 
DATA A548,04,28,2F,23, IFD, 23,BA,20,09E8 
DATA ASSBJEF ,57,7E,FE,00,28, 1C,5F 627 
DATA A558, 7a, FD} 77, 80,FD,23 \FS}FD,OADS 
DATA AS40}7D,BD,20,0B,FD,ES,FD,6C,109A 
DATA AS&B,FD,7D,FD,E1,BC,28, 13,F1,75E7 
DATA AS78,1D,20,E6,23,00,20,BC,04,19EC 
DATA A578, 20,59, E1,AF,BD,20,02, BC, 2D48 
128 DATA AS8@,C8,E9,CD}00,69,CD,6B,CB, A101 
DATA A588, 52,DD,E1,DD,75,@0@,DD, 74, 0DD& 
122 DATA AS9@,D1, M:cH JcD, MM B9,CD, WI:H ’cB} }2D81 
124 DATA *ENDE* 
125 adr=&AS@8: zeile=104:MEMORY adr-i 
126 READ d$: IF d$="#ENDE#"THEN 137 
127 pr=® 
128 FOR i=1 TO 8 
129 READ a$:a=VAL ("&"+a$) 


13@ FOKE adr ‚aradr=adr+1 

131 pr=pr*2: IF pr>65535 THEN pr=pr-65535 

132 Pr=UNT(pr)XOR arıF pr<@ THEN pr=pr+4553 
& 


[-1=] 
> 
3 
E 


Solsusunz 
3 


10498) 


LA1AB] 
133 NEXT i EICFEI 
134 READ pr$:pr2=VAL("&"4pr$):IF pr2<@ THEN 
pr2=pr 2+65536 

THEN PRINT"Pruefsummenfehler 
zeile:STOP 
156 zeile=zeile+1:60T0 126 
137 SAVE"KOMPEX.EXF" ‚B,UAS0B,&78: END 


CA7aAı 


[38129 
122623 
CADGEI 


Listing 2. Vor der Nutzung der komprimierten Programme 
müssen Sie sie wieder expandieren 


YAyyyw HOMESOMPUTER 


60 zum Speichern des Zielcodes. Merken Sie sich bitte den 
Wert der Variablen »I%« für die Expansion. Sie istnötig, daein 
gestauchtes Programm natürlich in dieser Form nicht funk- 
tionsfähig ist. 
Den Expander laden Sie beispielsweise mit 
10 MEMORY adresse-1 
20 LOAD ”KOMPEX.EXP”,adresse 
30 LOAD ”ZIEL”,anfang 
40 CALL adresse,anfang,länge,zieladresse,start 
Laden Sie das codierte Programm soweit wie möglich an 
hohe Speicheradressen. Wenn Kompex dann bei der Expan- 
sion noch nicht gelesene Bytes zu überschreiben droht, 
bricht er auch hier ab. Wählen Sie für <start> anstelle einer 
Adresse die Null, kehrt der Expander ins Basic zurück. 


Wenn Sie nun jedes gespeicherte Programm mit einem 
Lader versehen, der Kompex enthält, läßt es sich automa- 
tisch beim Laden mit »RUN ”LADERNAME ” « expandieren. 

(Andreas Illenseer/ja) 


Steckbrief 
Programm: Kompex 
| Computer: CPC 464/664/6128 
| Checksummer: | Explora/CPC 
Datenträger: Kassette/Diskette 


Das Diskett 


Viele Fähigkeiten der 3-Zoll-Diskettenlaufwerke 
unterstützt das Amsdos nicht. »Disk Plus« macht 
sie aber jetzt sogar aus dem Basic zugänglich. 


as Disketten-Betriebssystem der CPC-Serie - Ams- 

dos genannt - ist mit einer tückischen Eigenart 

behaftet. Es bringt während des Programmlaufs 
meist an den unpassendsten Stellen seine Fehlermeldungen 
aufs Tapet. Da diese nicht zu unterdrücken sind, kehrt es 
dann zum READY-Modus des Basic-Interpreters zurück und 
bricht so den Programmlauf ab. 

»Disk Plus« ist eine RSX-Basic-Erweiterung und ergänzt die 
Basic-Befehle DIR, ERA und REN. Sie entlockt dem DOS 
Informationen, die sonst aus dem Basic nicht zugänglich 
sind. 

Im einzelnen stehen folgende neue Befehle zur Verfügung: 

GETDIR,@name$, @a$(0) 
liest das Directory der Diskette in die Stringdimension a$(). 
Dabei hält er die alphabetische Reihenfolge ein und duldet 
nur Einträge, die mit der Maske »name$« übereinstimmen 
(wie unter CP/M: »*.*«, »B?.*«, »*.BAS« und so weiter). Die 
Stringdimension müssen Sie ausreichend groß dimensionie- 
ren und jeden String mit zwölf Zeichen vorbesetzen. Dazu 
dient beispielsweise der Befehl »a$(0)=space$(12)«. 

TESTDRIVE, @status% 
übergibt in der Variablen »status%« den Wert Null, wenn er im 
Laufwerk keine Diskette findet. Ist eine Diskette eingelegt, 
enthält die Variable den Wert -1. 

TESTNAME,@name$, @status% 
unterdrückt den »Bad Command Error, der sich immer dann 
meldet, wenn der Benutzer dem DOS einen unzulässigen 
Dateinamen vorsetzt. Das Auftreten dieses Fehlers zeigt eine 
Null in der Variablen »status%« an. 

TESTFILE,@name$, @status% 
prüft, ob der in »name$« angegebene Dateiname auf der Dis- 
kette vorhanden ist, und meldet dessen Existenz mit dem 
Wert -1 in der Variablen »status%«. 

SET.RO,@name$ 

SET.RW,@name$ 

SET.SYS,@name$ 

SET.DIR,@name$ 

Das DOS kann nicht nur Dateien löschen oder umbenen- 
nen, sondern auch schützen oder verstecken. Bisher war 
das nur über CP/M möglich. SET erledigt nun diese Arbeit. 
Mit dem Zusatz »RO« (Read Only) schützt er den Eintrag 
»name$« vor dem Löschen, »RW« (Read-Write) macht diese 
Veränderung wieder ungeschehen. »SYS« (System) ver- 
steckt Dateien vor den Augen des Benutzers. Sie erscheinen 


im Directory einfach nicht mehr. »DIR« (Directory) bringt sie 
wieder ans Tageslicht. 

ATTRIBUT,@name$, @rostatus%, @sysstatus% 
gibt den Status der Datei »name$« aus, der mit dem vorange- 
gangenen Befehls-Quartett festzusetzen ist. Zwei Variablen 
zeigen den Zustand des Eintrags. »rostatus%« ist Null, wenn 
der Eintrag zum Löschen freigegeben ist, -1 signalisiert den 
Schutz. »sysstatus%« bekundet mit dem Wert -1, daß: 
»name$« versteckt ist, und mit einer Null das Gegenteil. 

Nach der Eingabe des Basic-Laders (Listing 1) speichern 
Sie ihn bitte erst einmal zur Sicherheit. Nach dem Start 
erzeugt er auf der Diskette die Binärdatei »DISK-+.BIN« mit 
dem Maschinencode der Befehlserweiterung. Wie bei allen 
RSX-Befehlen beginnen auch diese mit dem senkrechten 
Strich, den Sie durch Druck der Tasten <SHIFT> und 
<@> erhalten. Die Befehle aktivieren Sie durch 
MEMORY ROFFF 
LOAD *DISK+.BIN” 
CALL &A000 

Eine Anwendung zeigt Listing 2, das den Einsatz des 
Befehls GETDIR demonstriert. 


(Stefan Aust/ja) 


Steckbrief 
Programm: Disk Plus 
Computer: CPC 464/664/6128 
Checksummer: Explora/CPC 
Datenträger: Diskette 


100 DAUERT 
1@1 ‘* DISK+.DAT - DATA-Lader von 'CPC' * L[DASAI 
102  — LICBAT 


124 DATA AB®Q,01,09,AQ,21,68,AQ,C3,D1,1447 
185 DATA ABQB,BC,26,AQ,C3,60,00,03,5A,4F8C 
186 DATA AB18,A1,C3,7C,A1,C3,A9,A1,C3,6BED 
197 DATA AB18,DC,A1,C3,E9,A1,C3,F6,A1,57F9 
188 DATA AB2B,C3,04,A2,C3,32,A2,47,45,7823 
197 DATA AQ28,54,44,49,D2,54,45,53,54,3C46 
11@ DATA AQS@,44,52,49,56,05,54,45,53,3D61 
111 DATA ABSB,54,4E,41,4D,05,54,45,53,32D1 
112 DATA AB48,54,46,49,4C,C5,53,45,54,31DA 
113 DATA AQ48,2€,52,CF,33,45,54,2E,52, 1026 
114 DATA AQSQ,D7,53,45,54,2E,44,49,D02,7280 
Ai 


119 DATA AQ78,CD,CD,CF,CD,2B,2B,7E,32,41CA 
122 DATA ABB@,57,A1,23,23,E5,CD,C7,CD,BBCF L7ECAI 


Listing 1. Der Basic-Lader für die Befehlserweiterung 
»Disk Plus« 


A, om 
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CA@BCI 
[4768] 
LO9FCI 
[F384] 
EF&1EI 
169083 
ESCAAI 
12588) 
EF&CBI 
LFS7EI 
[Aare] 
t8B1E] 
LA7CEI 
EFSFB] 
197683 
13484] 
£8D2C3 
(72083 
ECSE4] 
LASSE] 
[@&DEI 
CABQsı 
12400] 
[asAa] 
c18D02) 
[a6B8) 
E719E] 
CDC3@) 
£&17C] 
C79BC1 
EDFECI 
CBDCBI 
LEAE2I 
[E6221 
EDBABı 
C6B84) 
LE1343 
C7CBBJ 
LAsB2] 
[IEZEI 
[BAEEI 
12592] 
15246] 
LSFF23 
[3638] 
Ca5841 
[72283 
187103 
LDFF7E3 
[F1621 
LicaE] 
LEA1Cı 
[58761 
TICACI 
[29241 
TFACa] 
E2B723 
[28461 
L&C44] 
14538] 
[72F21 
CAEEBI 


121 DATA AQB8,22,58,A1,CD,A6,DA,CD,14,1826 
122 DATA AB9B,CE,CD,83,D6,DD,E1,AF,F5,4D87 
123 DATA AB98,CD,78,D6,38,86,F1,CD,AF,SBB1 
124 DATA ABAB,AB,18,F4,F1,2A,58,A1,77,4695 
125 DATA ABAB,CD,F9,AQ,CD,1E,A1,C9,05,4333 
126 DATA ABBB,ES,DD,ES,4F ‚86,00,CD,37,5C03 
127 DATA ABBB,A1,79,B8,28,32,CD,25,D6,5774 
128 DATA ABCA,S@,0C,04,CD,2B,A1,3A,57,14AF 
127 DATA ABCB,A1,B8,20,EA,18,25,D5,34,75E4 
130 DATA ABDA,57,A1,B7,20,01,@0D,CD,4E,1788 
131 DATA AQD8,A1,CD,37,A1,B8,28,@F ,CD,6B43 
132 DATA ABEQ,32,A1,EB,CD,37,A1,EB,CD,22A7 
133 DATA AQEB,48,A1,EB,3D,18,EE,D1,@C,1426 
134 DATA ABF@,CD,48,A1,797,DD,El,EL,CI,öISF 
135 DATA AQFB,C9,B7,C8,F5,4F,CD,39,Al,SEBF 
136 DATA A100,54,50,13,06,08, 1A,CB,BF,SE41 
137 DATA A1@8,77,13,23,18,F8,36,2E,86,3D62 
138 DATA A110,03,23,CB,BE,1@,FB,CD,2B,191D 
137 DATA A118,A1,0D,20,E1,F1,C9,4F ,SA,5DD8 
148 DATA A120, az A1,B9,C8,DD, 36,00, ‚ao, 1658 
141 DATA 
142 DATA 
143 DATA 
144 DATA 
145 DATA ” 
146 DATA A150,C8,3C,CD,2B,A1,18,F8,08, 
147 DATA A158,00,00,DF ,5E,A1,C9,61,A1,184F 
148 DATA A148,87,CD,73,CD,CD,C2,CD,CD,3647 
149 DATA A168,CF,CD,FD,7E,@@,E5,CD,3@,4EBE 
158 DATA A170,C6,E1,30,85,CB,6F ‚C2,D®,5BA® 
151 DATA A17B,A1,C3,D6,A1,DF,8@,A1,C9,75E3 
152 DATA A180,83,A1,@7,CD,73,CD,CD,C1,64@7 
153 DATA ALBB,CD,CD,CF,CD,ES,CD,C7,CD,4SAF 
154 DATA A190,11,E4,00,CD,98,CA,D5,CD,SBDF 
155 DATA A178,ED,DA,D1,E1,30,08,13, 153305 
156 DATA AIRES IDIEE raB Ca: 
157 DATA E\ „AD,Al, Bi 
158 DATA ALB@,CD,73,CD,CD,C1,CD,CD,Cı 
159 DATA ALBG,CD,ES,CD,C7,CD,CD,SB,DA,4F28 
140 DATA A1CQ,CD,14,CE,CD,83,D6,CD,78,7@D2 
161 DATA A1C8,D6,E1,DA,D@,A1,C3,D6,A1,4209 
162 DATA AID@,S6,FF,23,36,FF,C9,36,08,277@ 
163 DATA A1D8,23,36,00,C9,DF,E@,A1,09,1463 
164 DATA AIEQ,E3,A1,87,CD,12,42,CB,FE,568@8 
165 DATA AIE8,C9,DF,ED,A1,C7,F@,A1,87,4@3D 
166 DATA AIF@,CD,12,42,CB,BE,C9,DF,FA,7D6B 
167 DATA AIF8,A1,C9,FD,A1,07,CD,12,A2,74FA 
168 DATA A20@,23,CB,BE,C9,DF,88,A2,09,3F45 
169 DATA A288,8B,A2,87,CD,12,A2,23,CB,23A5 
178 DATA AZ18,FE,C9,CD,77,CD,CD,C2,CD,5785 
171 DATA A218,CD,5F,AZ,ES,ES,CD,2C,A2,6FD& 
172 DATA A220,E1,E3,CD,7A,D9,CD,98,D6,525A 
173 DATA A228,58,F1,E1,[9,E5,21,09,88,374E 
174 DATA A230,19,C9,DF,36,A2,09,39,A2,20R4 
175 DATA A238,87,CD,73,CD,3D,CD,C1,CD,s1ES 
176 DATA A240,CD,CF,CD,ES,CD,CF,CD,ES,4498 
177 DATA A248,CD,5F,A2,CD,D7,D7,E1,DC,6D62 
178 DATA A250,D8,A1,D4,D6,A1,CD,DF,D9,S@FB 
179 DATA A258,E1,DA,D8,A1,C3,D6,A1,CD,S2DF 
188 DATA A260,C7,CD,CD,A&,DA,CD,14,CE,2602 
181 DATA A268,CD,85,D6,CD,78,D6,D2,@C,5668 
182 DATA A270,D5,C9,00,80,00,00,00,08,58C0 


183 DATA »ENDE« CFICCI 


184 adr=LAQ@Q:zeile-1B4: MEMORY adr-1 CABZA1 
185 READ d$:IF d$="sENDEx"THEN 196 TAEAs1 
185 pr=@ Copici 
187 FOR i=1 TO 8 CBC72] 
188 READ afza=VAL("L"+as) CA9S@1 
187 POKE adr ‚aradr=adr+1 TBC2C9 
198 pr=pr#2: IF pr>65535 THEN pr=pr-65535___ [67941 
191 pr=UNT(pr)XOR a:IF pr<® THEN pr=pr+6553 
& CEEB2] 
192 NEXT i 132081 
193 READ pr&tpr2=VAL("&"4pr$)sIF pr2<Q THEN 
pr2=pr2+65536 CCD943 
194 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";zeile: STOP eD21c] 
195 zeile=zeile+1:G0T0 185 [0376] 
19% SAVE"DISK+.BIN" „B,2AQQQ,%271: END [93301 
197 PRINT d$zEND CAsQE1 
Listing 1. Der Basic-Lader für »Disk Plus« (Schluß) 
10 CB92C9 
2@ '* GETDIR.BAS - DISK+ Demo * 17000) 
EIBBRELTULELLEITERERTEURERTE ET [31301 
38 IF HIMEM=-40959 THEN 40 15180) 
5® MEMORY &PFFFSLOAD" 'DISK+.BIN"SCALL &A 
000 180701 
60 DIM a$(63) :st7=8 LAAE4I 
78 FOR i=® TO 63:a$(i)=SPACES(12):NEXT [13461 
88 MODE 1:PAPER B:PEN 1:PRINT"BITTE DISK 
ETTE EINLEGEN":PRINT"UND EINE TASTE D 
RUECKEN" 144341 
98 WHILE INKEYS<>"":WEND:CALL &BBB& L64E41 
192 !TESTDRIVE,‚@stz LAIBEI 
118 IF st%=® THEN PRINT"GG" ECABCI 
mes L1EFAI 
158 !TESTNAME,@names ‚@st7 [23743 
148 IF st7=@ THEN 120 LOFBEI 
152 !GETDIR,@names ‚@2$ (B) [70283 
188 1=ASC (names) -1!#=1 13972] 
178 FOR Toı 78081 
188 FOR TO LENtasti)) [C1Da] 
190 PEN Fr4f=f+1414=3)«3] LEAE2I 
288 FRINT MID$ta$ti) ‚3,1)3zNEXT [24281 
Z1@ PRINT:#=f+1+(#=3) #3: NEXT LCCBEI 
220 FEN 1:PRINT:PRINT"Ende (J/N): 
ZBBBA L&2F81 
23@ WHILE INKEYS<C>"":WEND 198301 
Za0 as=UFPERS(INKEYS)SIF asc>"J"AND as) 
"N"AND as<>CHR$(1SITHEN 240 LB548] 
258 PRINT a$:IF a$<>"J"THEN 7@ La@2A3 
248 END [B71E] 
Listing 2. Die Demonstration zeigt eine Anwendung des 
Befehls GETDIR 


Zahlenumwandlung 


Computer können eines ganz besonders gut: mit 
Zahlen umgehen. Oft ergibt sich in Programmen 
auch die Notwendigkeit, Zahlen in Worten auszu- 
geben. Mit »Ziffwort« ist das kein Problem mehr. 


ehmen Sie an, Sie wollten ein Programm schreiben, 

das beispielsweise automatisch Überweisungsfor- 

mulare ausfüllt. Dann stehen Sie vor einem großen 
Problem: Wie bringen Sie Ihrem Computer die korrekte 
Schreibweise für Zahlen bei? Diese Aufgabe erledigt nun 
»Ziffwort«, das sich als Unterroutine in eigene Programme 
einfügen läßt. Es wandelt alle positiven Zahlen zwischen 1 
und 999999999 sowie die Null in Klartext um. Sie überge- 
ben ihm in der Variablen <zahl> den Wert zur Umwandlung. 
Die Routine ab Zeile 2230 dient nur der Demonstration und 
gibt die gewandelte Zahl auf dem Bildschirm aus. Dort über- 
nehmen Sie dann das Ergebnis für die weitere Bearbeitung. 
(Valentin Gerber/ja) 


Steckbrief 


Programm: Ziffwort 

Computer: CPC 464/664/6128 
Checksummer: Explora 
Datenträger: Kassette/Diskette 


1020 REM rm CFOFAI 
1810 REM *« (c) Gerber Valentin ” EDA4CI 
1820 REM « Dianastr. 16 ” CS2CC] 
1038 REM * 8013 Haar * [95881 
1D4@ REM nn t@9@21 
19858 DIM s$(28) ‚stelle (9) LAFD2] 
1262 MODE 2 L29BC1 
1278 FOR k=® TO 28:s$(k)="":NEXT ECF261 
1282 LOCATE 7,18 LasBA] 
1298 INPUT "Bitte geben Sie die 

einde Zahl in Ziffern ein: "‚zahl L&CHB@]J 


Listing. »Ziffwort« arbeitet als Demonstration auch allein, 
ist aber als Unterroutine in Programme einzubinden 


96, ww. HOMECOMPUTER 


1108 
1110 


1120 


1138 


CLS 

IF zahl=® THEN s$(1) 

10 

IF zahl>1@“9 THEN CLS:LOCATE 4,3:PR 

INT "Die eingegebene Zahl ist zu gr 

oss. Druecken Sie bitte irgend eine 

Taste.":CALL &BB18: GOTO 1940 

IF zahl<1i THEN CLS:LOCATE 4,3: PRINT 

"Die eingegebene Zahl ist zu klein 

. Druecken $ie bitte irgend eine Ta 

ste. ":CALL &BB18: GOTO 1068 

REM aaa a 

VOR 

REM Zerlegung der eingegebenen Zahl 

in ihrı iftern 

REM RRHHHRSARRRRRSROHR 

N 

zahl#=STR# (zahl) 

FOR ii=® TO F:stelle(ii)=@:NEXT 

FOR zif ® TO LEN(zahl#)-1 
stelle(ziffer)=VAL (MID$(zahl#,L 

EN(zahl#)-ziffer,1)) 

NEXT 

REM RHOHRRRRRRRERRR 

Pen 


"Null":60T0 22 


1230 REM Bearbeitung der Million 
en 
1240. REM emnnnnnS 


BR 
i=t 

hunderter=stelle (8) 
zehner=stelle (7) 

einer=stelle(6) 

IF (stelle(8)+stelle(7)+stelle(6))= 
@ THEN GOTO 137@ 

IF (stelle(B)+stelle(7))=@ AND steil 
le(6 THEN s$(i)="eine":s$ti+1)=" 
million":i=i+2:G0T0 137@ 

GOSUB 1558 

s#(i+1)="millionen" 

i=i+z 

REM Rss 
RR 


REM Bearbeitung der Tausen 
der 
REM Rss 


a 
hunderter=stelle(5) 
zehner‘ 
einer=: 
IF (stelle(5)+stelle(4)+stelle(3))= 
@ THEN GOTD 1488 

IF (stelle (5)+stelle(4))=Z AND steil 
let3)=1 THEN s$(i)="ein":B0T0 1438 
GOSUB 1530 

s$ (i+1)="tausend" 

+2 

REM RRSRRSRRRRRRHRRRR 
PER Le ee 


REM Bearbeitung der Hunder 
ter 
REM HRnaSSSR 


ee 
hunderter=stelle(2) 
zehner=stelle(1) 

einer=stelle(@) 

GOSUB 1530 

60T0 2158 

zwischenwert=hunderter 

IF zwischenwert=@ THEN GDTO 1610 
GOSUB 1930 

i+1)="hundert" 

isi+2 

REM HRHRHRHRHRHGRRRRRRERE 
EOLULELUUE DEE DET 

REM Umwandlung der Einer- und Zehn 
erstellen bis 19 

REM HRSG 
DEI EU EEE TER Eee 

k=i@*zehner teiner 

IF k=® THEN GOTO 211@ 

IF k=1 AND stelle(@)=1 THEN ss(i)=" 
eins":G0T0 2108 


IF k=1 THEN s$(i)="ein":G0T0 2108 
IF k=2 THEN s#(i) :G0T0 2108 
IF k=3 THEN s#(i) G0TO 2108 
IF k=4 THEN :60T0 2128 
IF k=5 THEN 

IF k=6 THEN s#(i)="sechs":G0T0 2108 
IF k=7 THEN 60T0 218 
[ 

IF k=8 THEN G0TO 2198 
IF k=9 THEN 60T0 2128 
IF k=1@ THEN s$(i)="zehn":G0T0 2108 
IF k=11 THEN s#$(i)="elf":G0T0 2128 
IF k=12 THEN s$(i)="zwoelf":60T0 21 


aa 


IF k=13 THEN s$(i)="dreizehn":60T0 


c21881 
[62541 


[28621 


LSBECI 
LA7EBSI 
L@2AEI 


L39EC) 
LABZCI 
LEDSB] 
CCES2] 


109241 
CED461 


L&DE6I 
C8BEB] 


C3FEAI 
LD77E1 
[26121 
C4288] 
[14961 


CBFEAI 


L14E4] 
£599C1 
LF@B6] 
TAAA6I 


L3BECI 
C4D361 


CAFFBI 
1a4191 
[88861 
[76943 


LOBCEI 


LB8823 
L58AB] 
CDD141 
LIBARI 


L72F8] 
[B3461 


CDaF4J 
[C2BEI 
[3684] 
[1688] 
[57AB] 
£9E12] 
CA248] 
[B486] 
15768] 
CDF281 
LFAB2I 


CDSFB] 
177441 
CABEAI] 
CB8CA] 
coprel 
CD886] 
C618C) 
[B196] 
CB864] 
C848C] 
CCEACI 
14854] 
LCABEI 
LE7SEI 
CD78E1 


C2SDE] 
LAEE&1 


casaaı 


1770 
1780 
1798 
1800 
1818 
1820 
1839 
1848 
1858 
1868 
1870 
1880 
1898 
1900 
1910 
1920 
1930 
1940 
1958 
1968 
1978 
1988 
1998 
2002 
2218 
2020 
2030 
2242 
2050 
2868 
2878 
2080 
2098 
2100 
2118 
2128 
2130 
2140 


2150 
2160 


2170 
zı80 
2190 
2200 
2210 


2220 
2230 


2240 
2258 
2260 
2270 
2280 
2299 
2300 
2310 


2320 
2330 


2100 
IF k=14 THEN s$(i)="vierzehn":GOTO 
2108 

IF k=15 THEN s$(i)="fuenfzehn":B0T0 
2100 

IF k=16 THEN s$(i)="sechzehn":GOTO 
2100 

IF k=17 THEN s$(i)="siebzehn":G0T0 
zıo0 

IF k=18 THEN s$(i)="achtzehn":GOTO 
zı00 

IF k=19 THEN s$(i)="neunzehn":GOTO 
2108 

IF einer=@ THEN G0T0 2028 


zwi schenwert=einer 

GOSUB 1930 

$i+1)="und" 

i=i+2 

60T0 2020 

REM RR 
RA 


REM Umwandlung der Hunderters 
tellen 
REM und Zehnerstellen von 20 
bis 99 
REM Ran 


RR 


IF zwischenwert=1 THEN s$(i)="ein": 

RETURN 

IF zwischenwert=2 THEN s#(i)="zwei" 

: RETURN 

IF zwischenwert=3 THEN s$(i)="dri 

: RETURN 

IF zwischenwert=4 THEN s$ti)="vier" 

: RETURN 

IF zwischenwert=5 THEN s$(i)="fuenf 

"RETURN 

F zwischenwert=& THEN s$ti)="sechs 
ETURN 

IF zwischenwert=7 THEN s#ti)="siebe 

n" RETURN 

IF zwischenwert=B THEN s$ti)="acht" 

: RETURN 

IF zwischenwert=7 THEN s$(i)="neun" 

z RETURN 

IF zehner=2 THEN s$(i)="zwanzig":60 

To 2198 

IF zehner=3 THEN s$(i)="dreissig":B 

oT 2188 

IF zehner=4 THEN s$(i)="vierzig":60 

TO 2198 5 

IF zehner=5 THEN s$(i)="fuenfzig":B 

0To 2188 

IF zehner=& THEN s$(i)="sechzig":60 

TO 2198 

IF zehner=7 THEN s$(i)="siebzig":GD 

TO 2198 

IF zehner=8 THEN s$(i)="achtzig":60 

To 2198 

IF zehner=9 THEN s$(i)="neunzig":G0 

TO 2108 

isi+l 

RETURN 

REM RR 


a a 


REM Umwandlung in Grossbuchst 
aben 
REM nen 


Dee 
buchstabei$=LEFT$ (s$(1) ‚1) 
grossbuchstabe$=CHR$ (ASC (buchstabei 
#)-32) 

s# (1)=grossbuchstabe++RIGHTF (s#(1), 
LEN(s$(1))-1) 

REM 30 RR 
ERROR 

REM Ausgabe des Resultate 
s 

REM RR 
ROHR 
zi#=s#(1)+u# (2) 456 (3) +58 (A) +04 (5) 4m 
EICHE TI DET EI DERT IC DET TETDETT TERN 
> 


224=5$ (12) +58 (13) 454 (14) +84 (15) +wht 
16)+5$ (17) +54 (18) +5# (19) +58 (20) 
ns=" Zahl "+STR$(zahl)+" lautet i 
n Buchstaben: " 

LOCATE (B@-LEN (m$) )/2,8 

PRINT m# 

LOCATE (88-LEN(z1$))/2,10 

PRINT zi$ 

LOCATE (B@-LEN(22$))/2,11 

PRINT z2$ 

LOCATE 22,24 

PRINT "Bitte druecken Sie irgendein 
e Taste." 

CALL &BB18 

G0TO 1260 


Listing. »Zitfwort« (Schluß) 


LES321 
[685A1 
tB21A] 
[183C1 
LZF2E] 
£D42C] 
[815C1 
ai 
Kae 
£CD2B8] 
t771C1] 
177001 
L1BE6] 
[76BC] 
tiDF4] 
[999C] 
L@BA&1 
13074] 
1B79C] 
tA25C] 
[9164] 
[D9281 
LFCSCI 
[BBSC] 
LEFFSE] 
[8882] 
[51521 
[4712] 
[BA34] 
[59381 
EFF361 
[86661 
LCC9CI 
[CE88] 
14892] 
CDB2@] 


EDC961 
16482] 


CF376] 
CR27AJ 
LO49E] 
140201 
173901 


L786E1 
123121 


EBFE@] 
LBFS8] 
[894€] 
ECA2AI 
C2ACE1 
L1C321 
£49D41 
LSC661 


L3A141 
[27&C1 
[84181 
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nteressantes Nachsch nd 
. ri} 
gleichzeitig ein wertvolles Archiv! 
Kennen Sie alle »Happy Computer«- Ausgaben von 1985? Suchen Sie einen ganz bestimmten 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 
einer speziellen Anwendung? 
Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen 
Seiten eine Zusammenstellung aller wesentlichen Artikel der noch lieferbaren Ausgaben, En 
Und so kommen Sie schnell an die gewünschten Ausgaben: Prüfen Sie, welche Ausgabe in 
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Die Ausgaben 


6/85, 7/85 und 9/85 


sind bereits vergriffen 


und nicht mehr lieferbar! 


Auch die bisher 
erschienenen Sonderhefte 


können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/84:-SINCLAIR 
Unentbehrliche Informationen zu den Sinclair 
Computern 2X8] und Spectrum. 


SONDERHEFT 01/85: SPECTRUM 
Anwendunc one Listings und Tips& Tricks. 
faralle Spectrum fans. oc nes 
SONDERHEFT 02/85: SCHNEIDEI 
‚Eine Fülle wertvoller Beiträge und Listings 
für alle Schneider-Anwender. 


SONDERHEFT 03/85: SP! = 
Ein Super-Nachschlagewerk für alle Spiele-Fans mit 
100 Spielen im Test und großer Marktübersicht, 


SONDERHEFT 01/86: SCHNEIDER 2. 
‚Noch mehr Tips und Tricks für Einsteiger und Fort- 
geschrittene mit vielen interessanten Programm-Listings, 


SONDERHEFT 02/86: ATARI 1 
Besonders 800 XL- und 130 XE-Fans erwarten jede Menge 
Anwendungs- und Spiele-Listings sowie Informationen. 


SONDERHEFT 03/86: 6800er 

Umfassende Informationen zur neuen Computer- 
Generation und eine große Vergleichstabelle, die im 
Detail über alle 68000er informiert, 


SONDERHEFT 04/86: SCHNEIDER 3 
Eine Erweiterung für alle Schneider-Anwender, Super- 
Programm-Listings und großer Einsteiger-Teil. 
SONDERHEFT 05/86: PROGRAMMIERSPRACHEN 

Fuß fassen in »Pascals, »C« und »Forth« mit jeweils ei- 
‚nem grundlegendem Kurs und vielen Anwendungs- 
Listings. 


SONDERHEFT 06/86: 68000er 2 
Umfangreicher Listingteil, viele Informationen, Tips 
und Tricks für Anwender der 68000er-Computer. 


SONDERHEFT 07/86: SCHNEIDER 4 
Mit den Schwerpunkten Joyce und CP/M plus, Rat- 
‚schlägen zur Vortex-Karte und vielen Tips & Tricks. 


SONDERHEFT 08: COMPUTER ALS HOBBY 
Wissenswertes für Einsteiger und zusätzliche Informa- 
tionen zur Fernsehsendung Computerzeil. 


SONDERHEFT 09: 680000 3 
Mit den Schwerpunkten Sound- und Videodigitalisie- 
‚rung und Spieleprogrammierung. 


‚SONDERHEFT 10/86: SCHNEIDER 5 
Der neue Schneider-PC wird vorgestellt. Wieder viele 
‚Hilfestellungen und Kurse. 


SONDERHEFT 11/86: SPIELE-TESTS 
‚Alles über aktuelle Spieletests, Computerprogramme, 
Grafik- und Musik-Software. 


SONDERHEFT 12/85: 6800er 4 
‚Ausführliche Testreihe aller Grafikprogramme für 
AtariST, Amiga und Sinclair QL sowie viele Grund- 
lageninformationen zu diesen Computern. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 
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Am besten gleich 
mitbestellen: 
Die Happy-Computer- 
Sammelboxen 


Für alle Leser, die »Happy 
Computer« regelmäßig 
kaufen, sammeln oder im 
Albonnement beziehen, 
gibt es ein interessantes 
Service-Angebot: die Hap- 
py-Computer-Sammelbox! 


Mit dieser Sammelbox 
bringen Sie nicht nur 
Ordnung in Ihre wertvol- 
len Hefte, sondem schaf- 
fen sich gleichzeitig ein 
interessantes und attrakti- 
ves Nachschlagewerk. Ein 
kompletter Jahrgang (12 
Ausgaben) paßt in eine 
der praktischen Sammel- 
boxen! 


Übrigens: Die Sammelbox 
ist nicht nur ein prakti- 
sches Aufbewahrungs- 
mittel: Sie eignet sich 
auch hervorragend als 
Geschenk für Freunde 
und Bekannte zu vielen 
Anlässen. 


u 


Einerlei? 


Es gibt viele Wege, die Inhalte verschiedener 
Dateien miteinander zu vergleichen. »Fcomp« ist 
sicher der leichteste. 


gramm, das zwei Programme auf Diskette vergleicht und 
Unterschiede auf dem Bildschirm ausgibt. Das passiert 
stets dann, wenn man zum Beispiel ein neues Programm ent- 
wickelt oder verändert. »Welche Version ist denn nun die neu- 
ere?«, Solche und ähnliche Fragen beantwortet in Zukunft 
schnell und vor allen Dingen vollautomatisch unser Pro- 
gramm. Einzige Vorbedingung: Sie geben das Turbo-Pascal- 
Listing »Fcomp« ein und compilieren es. Rufen Sie dann die 
fertige Utility auf, Sie brauchen nur noch die Dateinamen der 
beiden Probanden einzugeben und können sich gemütlich 
zurücklehnen. Fcomp zeigt Unterschiede dann mit der Num- 
mer des unterschiedlichen Bytes innerhalb der Datei an. Auf 

Wunsch erfolgt die Ausgabe auch über Drucker. 
(Thomas Bullinger/ja) 


| Bi wieder wünscht man sich, man hätte ein Pro- 


Filecon; 


Version 1. 


Drucker (j/n) ? n 


4. Datei ? progran 
2. Datei ? progran.bak 


BeEB: 35 30 , Baar: 30 24 , Baal: 3143 , 0240: 36, 48, 
8243: 2B 52 , 0244: 49 24 


Die Unterschiede zweier Dateien auf einen Blick 


Steckbrief 
Programm: Fcomp 
Computer: CPC 464/664/6128/Joyce/PC 
Datenträger: Diskette 
Besonderes: Turbo-Pascal-Programm 


progran FileConp; | Vergleich zweier Dateien ] [Ur] 


const block_groesse = 128; 
naxblock =512; [‚max. 64 Köyte pro Datei | 
nexver = 1024; [ max. 1 K Vergleiche ] 


var 3 string[14]; 
file, file2 : file; 


_L grosse ; Integer; 


file 2 grossse : Integer; 
blookcar byte; 
block-index : integer; | Adresse eines Interschiedes ] 


block_puffer_1 : array[1..512] of byte; 
block_puffen_2 : array[1..512] of byte; 


ver-indeg  : Integer; 
ver-file : text; 
ende_flag 1 boolean; 
druck : boolean; 
druck_char ı char; 


procedure Writellex (b:byte); 
var bicbyte; 


procedure Writellibble (bibyte); 
begin 
bi=b+90; 
At (b > 839) then 
bid+n 
wnite(chr(b)); 


1f (druck) then 
weite(lst,chr(b)); 


end; | WriteNibble | 


begin 
bi := b str 4; 
Writetbble (bi); 
bi te band $00; 
WriteNibble (b1); 
end; | Writelex | 


procedure ver_bloek; | Vergleich zweier Bloecke } 


while ((not ende_flag) and (1 <= block_groesse)) do 
degin 
£ (ver_index < maxver) then | nur bis zur Grenze des Erlaubten! 
begin 
if (block_puffer. 
begin [1 
block index 


] <> bloek-puffer.2[i]) then 


+ 255 + ((blosk.nr-1) # block groesse); 
:x)); | Adresse anzeigen | 


ritehex(block guffer_t[i]); | 1. Datun } 
witel' '); 
if (druck) then 
wite(lst,' '); 
writehex(block_puffer_2[1]); [ 2. Datun ] 
witel' N); 
if (druck) then 
witellst,' , '); 
if ((ver_index nod 4) = 0) then | Nach 4 Adressen ] 
begin | Zeilenvorschub } 
writeln; 
1£ (druck) then 
writeln(Ist); 


end; 
ver.index :* ver.index + 1; 
end; 
end 
else | Mehr als max, Unterschiede gefunden } 
begin 


imei+l; 
end; | Schleife | 
ver_block | 


begin | Hauptprogramm 


elrser; ( IDGON auf Bildschirm ] 


highvideo; 
writeln(! Y; 
writeln(! Pileconp Y; 
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ZZ SE — I _ = 
writeln(' Version 1.0 Y); bloeknr 
uriteln(! ) ver_inder 
Zowvideo; file_1 gross 
sepent | Drucker je oder nein ] file 2 groesse : 
eotogy(1,6); if ((file_1grossse > mexblock) or (File_2 grosse > maxblock)) then 
elreol; ende_flag := true 


write ('Drucker (j/n) ? '); 
readin(druck_char); 
untt] (druck.ehar in [15","7", "0", "N)); 
druck_char := upcase(druck_char); 
druck := (druck_char = 'J"); 
Af (druck) then 
vriteln(1st); 
vepeat | Filenane 1 erfragen } 
gotoxy(1,8); 
elreol; 
write('1. Datei ? '); 
veadin(fllenane); 
assign(file_1,filenane); 
{91-] reset(file1); (81 
until (foresult = 0); 
1f (druck) then 
witeln(lst, 1. Datei : ",filenane); 
rapent | Filenane 2 erfragen | 
gotoxy(1,9); 
clreol; 
write('2. Datei ? '); 
readin(filenane) ; 
assigu(file_2,filenane); 
{$7-} reset(file2); [Sr] 
until (loresult = 0); 
if (druck) 
begin 
writeln(1st,'2. Detei 
writeln{1st); 
end; 
writeln; 


"£ilenane); 


else 

ende_flag := false; 
ühlle (not ende_flag) do [ Ueberpruefung bis zun Ende ] 
begin 


blockresd(file_1,block puffer_1,1); 
blockrend(file_2,block puffer_2,1); 
ver.block; 
if (not ende_flag) then 
begin 
block.nr := blockar + 1; 
if ((block.nr > file_1groesse) or (block. nr > file_2_groesse)) then 
ende_flag := true 
else 
ende_flag ;= 
end; 
end; 
writeln; 
writeln('Es wurden "‚ver_index - 1, ' Unterschiede gefunden.'); 
writeln; 
if (druck) then 
begin 
veiteln( 
writeln(. 
writeln(1st); 
end; 
end. 


wurden '‚ver_index, ' Unterschiede gefunden. '); 


Listing. Wer kein Turbo Pascal besitzt, findet auf der 
Leserservice-Diskette die lauffähige COM-Datei des 
Programms 


Turbo macht sich dünn 


Der Platz auf einer 3-Zoll-Diskette von Schneider 
ist rar. Verzichten Sie auf die Bibliothek von Turbo 
Pascal, und bei jedem Programm gewinnen Sie 
8 KByte. 


in unter Turbo Pascal geschriebenes Programm läuft 

nur, wenn der Programmcode auch die Bibliothek ent- 

hält. In dieser Bibliothek stehen die Routinen, die den 
Computer zu seiner Arbeit anhalten. 

Jedes Programm enthält diese Bibliothek in genau gleicher 
Form. Sie steht so natürlich auch mehrmals auf der Diskette. 
Hält man den Compiler nun dazu an, die Routinen nicht in den 
Code einzubinden, sondern einen Aufruf der in einer Sam- 
meldatei stehenden Programmteile einzusetzen, dann spart 
man pro Programm 8 KByte Speicherplatz. 

Programme ohne Bibliothek kennzeichnet unter Turbo Pas- 
cal der Zusatz ».CHN«, lauffähige Programme mit Bibliothek 
hingegen ein ».COM«. Das Programm »Commande im Listing 
wird mit der Vorgabe »C« compiliert, enthält also die Biblio- 
thek. Alle anderen Programme, die auf der Diskette stehen, 
müssen mit »H« compiliert werden, enthalten also nur den 
eigentlichen Code. Starten Sie nun Command, so fragt der 
Computer Sie nach der aufzurufenden Datei. Diesen Namen 
geben Sie ohne den Zusatz ».CHN« an. 

Die Eingabe wird so lange angefordert, bis ein gültiger 
Name genannt oder bis <CTRL-C> gedrückt wird. Um Kom- 
plikationen zu vermeiden, muß die Startadresse der Pro- 
gramme immer gleich sein. (Lothar Paucker/hg) 


IPUTER! 


Steckbrief 


Programm: | Command 


Computer: CPC 464/664/6128/Joyce/PC 
Datenträgeı Diskette 


Listing. Platzsparen mit »Command« 


Besonderes: Turbo-Pascal-Programm 


program command; 


var filename: file; 
com ı string(.8.); 


begin 
repeat 
elrser; 
write ('Command: '); 
readln (com); 
(*$1-%) 
assign (filename,com+'.CHN'); 
chain (filename); 
(*$I+*) 
until ioresult = 0; 
end. 
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»Bad sector« entschärft 


Die Fehlermeldung »Bad sector« unter CP/M 2.2 
bereitet vielen Anwendern Kopfzerbrechen. Das 
muß nicht sein. 


kann, ist die Fehlermeldung »BDOS Error: Bad sec- 
tor«. Das bedeutet nicht nur, daß die verwendete Dis- 
kette defekt ist, sondern auch, daß CP/M nach dem Drücken 
einer Taste das laufende Programm abbricht. So kann neben 
dem Ärgernis, daß ein Sektor der Diskette unleserlich ist, der 
weitaus größere Schaden auftreten, daß wertvolle Daten, die 
im unterbrochenen Programm bearbeitet wurden, verloren- 
gehen, weil der Anwender sie nicht mehr speichern konnte. 
CP/M 2.2 besitzt nun eine Besonderheit, die jedoch selten 
beschrieben wird: Wenn Sie nach der Fehlermeldung die 
ENTER-Taste drücken, ignoriert CP/M den Fehler. Dadurch 
erhalten Sie die Gelegenheit, die Daten im Speicher zu 
sichern und die Arbeit mit einer einwandfreien Diskette zu 
wiederholen. 
Unter CP/M Plus tritt das Problem bei defekten Sektoren 
nicht auf, denn hier können Sie mit »Ignore« den defekten 
Sektor ausklammern. (Martin Kotulla/ma) 


D: Schlimmste, was einem bei CP/M 2.2 passieren 


GRAPHICS PEN auf 
CPC 464 


CPC 664 und 6128 kennen den Befehl GRAPHICS 
PEN, der die Farbe des Grafikstifts festlegt. Auf 
dem CPC 464 können Sie diesen Befehl simu- 
lieren. 


nem Gerät programmiert, möchte öfters die Farbe des 
Grafikstiftes, der über die X/Y-Koordinaten gesteuert 
wird, ändern. Auf dem CPC 664 und 6128 geschieht dies 
einfach mit dem Befehl GRAPHICS PEN. Leider fehlt dieser 
Befehl beim CPC 464. Besitzer dieses Computermodells 
können den Befehljedoch durch folgende Befehlsfolge simu- 
lieren: 
x=XPOS:y=YPOS:PLOT 800,800,penfarbe:MOVE x,y 
Den Variablen x und y werden die aktuellen Grafik- 
Koordinaten zugewiesen. Der PLOT-Befehl setzt einen 
unsichtbaren Punkt (die Koordinaten liegen außerhalb des 
Bildschirms) und ändert die Stiftfarbe in den Wert der Varia- 
blen penfarbe. Anschließend wird der Grafikcursor wieder 
auf die alte Position gesetzt. (Martin Kotulla/ma) 


3 eder CPC-Besitzer, der häufig und gern Grafik auf sei- 


Reset auf Umwegen 


Ein versteckter RESET-Befehl löscht Ihre Pro- 
gramme, wenn ein Unbefugter darauf zugreifen 
möchte. 


aß CALL O oder die Eingabe des RSX-Befehls IBASIC 
einen Reset auf dem Schneider CPC hervorruft, wis- 
sen die meisten CPC-Besitzer. Wer diese Befehle in 
seinem Programm an geeigneter Stelle versteckt, erreicht, 
daß das Programm abstürzt, sobald es gestartet wird. Nur der 


Anwender selbst weiß, wo der Befehl entfernt werden muß, 
damit das Programm einwandfrei funktioniert. 

Dieses Verfahren ist jedoch mittlerweile so bekannt, daß 
der Programmschutz von jedem halbwegs informierten Pro- 
grammierer entfernt werden kann. Neu ist dagegen folgende 
Lösung, die ihr Geheimnis nicht so schnell preisgibt: 

10 POKE &BB5A,&07 

Dieser Befehl verbiegt den Vektor für die Bildschirmaus- 
gabe auf den Maschinensprache-Befehl RST 0, der einen 
Reset auslöst. Der erste PRINT-Befehl im Programm, der auf 
diesen POKE-Befehl folgt, löst einen Reset aus, der das Pro- 
gramm und alle Daten löscht. 

Wenn Sie den Befehl gut in Ihrem Programm verstecken, 
die beiden hexadezimalen Werte nicht direkt, sondern über 
Variablen zuweisen und das Ganze mit GOSUBs verschach- 
teln, ist die Chance ziemlich groß, daß dieser Schutz von 
fremden Programmierern nicht entdeckt wird. Sie müssen 
nur noch darauf achten, daß Ihr Programm auch einen PRINT- 
Befehl enthält, der den Reset auslöst. (Martin Kotulla/ma) 


SUBMIT ohne Bild- 
schirmausgabe 


Viele Anwender empfinden es als störend, daß 
CPIM die Zeilen einer SUBMIT-Datei bei der Aus- 
führung auf den Bildschirm ausgibt. 


Ausführung einer SUBMIT-Datei jedesmal die Be- 

fehlszeilen angezeigt werden. Um wieviel professio- 
neller würde es wirken, wenn sich die Bildschirmausgabe 
unterdrücken ließe. Unter MS-DOS bewirkt der Befehl ECHO 
OFF das Abschalten der optischen Anzeige, doch unter 
CP/M gibt es offiziell keinen vergleichbaren Befehl. 

Unter CP/M Plus läßt sich jedoch ein Trick anwenden, der 
die Bildschirmausgabe abschaltet. Das Standardprogramm 
DEVICE.COM gestattet es, die Zuweisung der logischen und 
physikalischen Peripheriegeräte zu verändern. Legen Sie 
doch einfach die Bildschirmausgabe (CONOUT) auf das Null- 
Device (NUL): 

A>DEVICE CONOUT:=NUL 

Sowohl im Direktmodus als auch in SUBMIT-Dateien wer- 
den von nun an alle Bildschirmausgaben unterdrückt. Am 
Ende eines SUBMIT-Durchlaufs wird die Bildschirmausgabe 
wieder eingeschaltet: 
A>DEVICE CONOUT:=CRT 


A uf die Dauer geht es etwas an die Nerven, daß beider 


(Martin Kotulla/ma) 


DDT zeigt 
Grafikzeichen 


Nur ein kleiner Patch versetzt den CP/M-Debugger 
DDT.COM in die Lage, auch Grafikzeichen darzu- 
stellen. 


Speicherauszug auf dem Bildschirm oder Drucker 

auf. Alle Datenbytes mit Werten zwischen 31 und 

127 werden als ASCII-Zeichen dargestellt. Bytes, die nicht 

innerhalb dieses Wertebereichs liegen, symbolisiert der 
Debugger durch Punkte. 

Dieses Verfahren istfür den Anwendernichtakzeptabel, da 


D er Dump-Befehl »D« des DDT-Debuggers listet einen 
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der Schneider CPC die ASCIl-Zeichen ab dem Wert 127 als 
Grafikzeichen auf dem Bildschirm ausgibt. Da hätte man 
natürlich auch gerne, daß der Debugger die Grafikzeichen 
beim Auflisten des Speicherinhalts anzeigt. 

Dies ist mit einem kleinen Patch machbar. Lassen Sie den 
Debugger sich selbst aufrufen, und ändern Sie den Inhalt der 
Speicheradresse 0OE37 hex in FF hex um. Dieser Wert gibt 
die Obergrenze der Datenbyte-Werte an, die der Debugger 
als ASCII-Zeichen darstellt. Anschließend speichern Sie den 
gepatchten DDT wieder auf Diskette. 

So gehen Sie im einzelnen vor: 

A>DDT DDT.COM 
-50E37 

0E37 7F -> FF 
0E38 "C 


A>SAVE 19 DDT.COM (Martin Kotulla/ma) 


Zeichendefinition 
geht doch 


Konnten Sie Ihrem Schneider-Drucker DMP-2000 
schon einmal selbstdefinierte Zeichen entlocken? 
Unser kleiner Tip sagt Ihnen, wie das geht. 


des DMP-2000 schon einmal versucht hat, seinem 

Drucker zu einem neuen Zeichensatz zu verhelfen, 
scheitert bald. Das liegt aber nicht am Programm, sondern am 
falsch eingestellten Dip-Schalter. Der vierte Schalter auf der 
zweiten Leiste (DS2-4) muß nämlich auf »ON« stehen. Wenn 
Sie den Drucker dann aus- und wieder eingeschaltet haben, 
läuft das Programm einwandfrei. (Michael Strasser/hg) 


J eder, der mit Hilfe des Beispielprogramms im Handbuch 


TYPE mit Wildcards 


Der TYPE-Befehl hat einen großen Nachteil: Er 
erlaubt nur eindeutige Dateinamen. Eine Kon- 
struktion wie TYPE *TXT ist unmöglich. Auch PIP 
CON:=*TXT funktioniert nicht. 


Textdateien einer Diskette anschauen. Der TYPE- 
Befehl erlaubt allerdings keine Eingabe von Wild- 
cards, so daß man alle Dateinamen von Hand eingeben muß. 

Ein kleiner Trick hilft, um die Eingaben aller Dateinamen her- 
umzukommen. Kopieren Sie dazu mit PIPCOM die Dateien 
auf eine andere Diskette (am besten eine RAM-Disk) und 
geben Sie als Option »Echo« an: 

A>PIP C:=A:*.TXT[E] 

Hierdurch gibt CP/M beim Kopieren alle Dateien auf den 
Drucker aus. Wenn die Textausgabe beendet ist, können Sie 
selbstverständlich die kopierten Textdateien wieder löschen. 

Mit <CTRL+P> erhalten Sie zusätzlich die Möglichkeit, 
den Befehl »PIP LST.=*.TXT« zu simulieren. 

PIP hat bei der Echo-Funktion die unangenehme Eigen- 
schaft, das EOF-Zeichen 26 mit auszudrucken, wodurch 
unter CP/M 2.2 ein Fenster gesetzt wird. Deshalb sollten Sie 
vor dem Ausdruck das Programm CTLOFF (Happy-Compu- 
ter, Ausgabe 9/86, Seite 76) starten, das den Ausdruck des 
‚Steuerzeichens verhindert. Unter CP/M Plus ist diese Vor- 
sichtsmaßnahme nicht nötig. (Martin Kotulla/ma) 


G:: möchte der Anwender sich sämtliche 


RAM-Disk ohne 
Gefahren 


Wer bei der Textverarbeitung statt Diskette eine 
RAM-Disk verwendet, bedenkt oft nicht, daß bei 
einem Absturz des Computers der gesamte Text 
verlorengeht. 


ie Textverarbeitung mit Wordstar bei Einsatz der 

Vortex-Speichererweiterung als RAM-Disk ist sehr 

komfortabel. Peinlich wird es, wenn der Strom aus- 
fällt. Der gesamte Text ist gelöscht, weil Wordstar mit dem 
Kommando <CTRL+K> und <S> die Teil-Sicherungen 
des Textes nicht auf Diskette, sondern in die RAM-Disk 
gespeichert hat. 

Spätestens beim ersten Computerabsturz wünscht sich 
der Anwender, daß sein Wordstar den Text gelegentlich auf 
Diskette sichert. Gesucht wird eine Befehlsfolge, die den 
Text ab und zu als Datei auf eine Diskette in Laufwerk A zwi- 
schenspeichert. Folgende Tastenkombinationen erfüllen 
diese Forderung: 
<CTRL+K> und <9>, 
<CTRL+Q> und <R>, 
<CTRL+K> und <B>, 
<CTRL+Q> und <C>, 
<CTRL+K> und <K>, 
<CTRL+K> und <A>, 

A:WSDATEI, 
<CTRL+M> und <J>, 
<CTRL+Q> und <9>, 
<CTRL+K> und <9>, 
<CTRL+K> und <H> 

Diese Tastenfolge müssen Sie nicht jedesmal eingeben, 
wenn Sie Ihren Text zwischenspeichern wollen. Patchen Sie 
stattdessen mit SETUPCOM (Amstrad-CP/M) oder INSTALL. 
COM (Vortex-CP/M) die Tastaturbelegungstabelle von CP/M 
so, daß die Zeichenkette auf einer der Funktionstasten liegt. 
Bei INSTALL.COM müssen Sie allerdings die Control-Codes 
in hexadezimale Werte umrechnen. 

Und so arbeitet die Zeichenkette: 
<CTRL+K> und <9>: Merker 9 an aktueller Position 

setzen 
<CTRL+Q> und <R>: An Textanfang springen 
<CTRL+K> und <B>: Blockanfang setzen 
<CTRL+Q> und <C>: An Textende springen 
<CTRL+K> und <K>: Blockende setzen 
<CTRL+K> und <W> mit Eingabe von A:WSDATEI: 
Block auf Laufwerk A als WSDATEI 
speichern 
<CTRL+M> und <J>: An Textanfang Leerzeile und »J« 
einfügen 
<CTRL+Q> und <9>: Alte Cursorposition anspringen 
<CTRL+K> und <9>: Merker 9 löschen 
<CTRL+K> und <H>: Block sichtbar machen 

Wenn Sie das erste Mal die Taste drücken, der diese 
Tastenkombination zugewiesen wurde, müssen Sie nachher 
noch ein »J« vom Bildschirm löschen. Bei den nächsten 
Sicherungskopien ist das nicht mehr nötig, weil jetzt das »J« 
eine Sicherheitsabfrage von Wordstar beantwortet. Auf diese 
Weise sind Sie nicht jedesmal gezwungen, die Abfrage selbst 
zu beantworten. 

Sobald Ihr Computer einmal abstürzt, können Sie aus der 
Datei WSDATEI den Text rekonstruieren - immer vorausge- 
setzt, Sie haben nicht vergessen, den Text regelmäßig zu 
sichern! Das beste Verhältnis zwischen Zeitverzögerung und 
Sicherheit erreichen Sie, wenn Sie alle 10 bis 15 Minuten 
abspeichern. (Martin Kotulla/ma) 
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Start über Cursor-Tasten 


Disketten-Benutzer atmen auf. Der Aufruf von Pro- 
grammen ist jetzt so einfach wie noch nie. 


er jemals mit dem CPC in Verbindung mit einem 

Kassettenrecorder gearbeitet hat, weiß die kom- 

fortable Art zu schätzen, wie dort Programme zu 
starten sind. Es genügt nämlich der gleichzeitige Druck 
zweier Tasten: <CTRL> und die kleine Taste <ENTER>. 
Nun bedarf es aber auch bei Diskettenbetrieb keines aufwen- 
digen Programms, um ähnliche Voraussetzungen zu schaf- 
fen. Eine Zeile, genaugenommen nur ein einziger Befehl, ist 
alles: 
KEY 140, STRING$(12,224)+CHR$(250 
+CHR$(34)+CHR$(13) 

Wenn Sie dieses Kommando als Programm speichern, 
reicht der einmalige Aufruf, die neue Funktion zu installieren. 
Sie bleibt solange erhalten, bis Sie die Tasten neu belegen 
oder einen Reset ausführen. Woher aber »weiß« der Compu- 
ter nun, welches Programm von der Diskette Sie laden und 
starten wollen? Ganz einfach. Geben Sie zuerst den Befehl 
CAT ein. Nachdem dann die Directory sichtbar ist, bewegen 


)+"RUN” 


Sie den Cursor mit Hilfe der Cursor-Steuertasten auf den 
ersten Buchstaben des gewählten Dateinamens. Dort ange- 
langt, genügt die genannte Tastenkombination, den Vorgang 
abzuschließen. (Stefan Aust/ja) 


iB °——> CAT+ — (C)1986 von Stefan M.Aus 
€ [33241 
20 ° 168521 
58 KEY_142,STRING$ (12,224) +CHR$ (258) +"RU 
N" +CHRE (34) 4CHR$ (13) CASFEI 


Listing. Programmstart per einfachem Tastendruck 


Steckbrief 
Programm: Cat Plus 
Computer: CPC 464/664/6128 
Checksummer: Explora 
Datenträger: Diskette 


AUTO neu 


Wer sich schon immer für seinen CPC 464 einen 
AUTO-Befehl wünschte, der so arbeitet wie derje- 
nige der beiden neueren Modelle CPC 664 und 
6128, ist mit dem Listing »AUTO Plus« fein heraus. 


puter CPC 664 und CPC 6128 bietet gegenüber der 
Version 1.0 im CPC 464 einige Vorzüge. Zu diesen 
Vorteilen zählt die erweiterte Funktion des AUTO-Befehls zur 
automatischen Erzeugung der Zeilennummern bei der Pro- 
grammierung. Während Besitzer eines CPC 464 bislang mit 
AUTO nur komplette Neueingaben von Basic-Zeilen vorneh- 
men konnten, haben Benutzer des Basic 1.1 auch die Wahl, 
Veränderungen innerhalb bereits bestehender Zeilen durch- 
zuführen. AUTO Plus schlichtet nun diesen Bruderzwist, 
indem es dem ältesten CPC-Familienmitglied Anschluß an die 
Moderne bietet. Es erzeugt den RSX-Befehl 
| AUTO, zeilennummer,schrittweite 
Übergeben Sie nur einen oder keinen der beiden Parame- 
ter, nimmt der Computer als Standardwerte jeweils 10 an. Wie 
bei RSX-Befehlen üblich, beginnt AUTO mit dem senkrechten 
Balken, den Sie durch gleichzeitigen Druck der Tasten 
<SHIFT> und <@> erzeugen. Nach Eingabe des Listings 
speichern Sie AUTO Plus bitte sicherheitshalber. Nach dem 
‚Start legen Sie die Adresse fest, ab der der Basic-Lader den 
nötigen Maschinencode ablegt, denn dieser ist im Speicher 


D as Locomotive-Basic 1.1 der beiden Schneider Com- 


Steckbrief 
Programm: AUTO Plus 
Computer: CPC 464 | 
Checksummer: Explora | 
Datenträger: Kassette/Diskette | 


aufgelegt 


frei verschiebbar und arbeitet so mit praktisch jeder anderen 
Erweiterung problemlos zusammen. AUTO Plus eignet sich 
auch vorzüglich dazu, mit »Explora« eingegebene Listings 
nachträglich auf Tippfehler zu untersuchen. 

(Stefan Aust/ja) 


18 RR 102243 
2@ '* AUTO+ (C) by Stefan M. Aust * CDSD23 
Er Version 1 vom 8.3.86 * EDFDBI 
20 LA22A1 
5® DATA B1,%2889 ,21,%8013,C3,D1,BC,&08BE 
‚C3,28@17,41,55 TaSBC] 
&@ DATA 54,CF ‚00,00,00,08,00,FE,03,D@,21 
„an,Q@,11,0n,08 t9ODEI 
78 DATA FE,08,28,14,FE,01,28,0R,DD,SE,8@ 
„DD,56,81,DD,23 CD6F21 
s@ DATA DB,23,DB,6E,@@,DD,66,@1,CD,28,B9 
„ED,53,1F ‚AC,CD T61AB1 
98 DATA D2,CH,CD,‚&0059,30,06,3A,1C,AC,B7 
‚28, F5,63,84,C0 L43D@1 
ı08’DAta CD,D3,CQ,ED,5B,1D,AC,CD,A3,E7,3 
8,16,2A,1D,AC,CD LED4AI 


118 DATA’79,EE,CD,11,C1,D2,7E,B7,28,06,C 
D,D2,E6,CD,7A,C1 

12@ DATA’37,C9,CD,63,E1,CD,43,CA,D@,CD,B 

C,E6,D2,C2,C@,C4 

DATA" 7A,C1,ED,SB,1D,AC,C3,20,C1 


CiDF6] 


EB11EI 
TacFEI 


14@ DATA *ENDE* L79BEI 
158 PEN 1:PAPER @ [3ED8] 
188 INPUT"Ladeadresse:_",‚Ladr L126@1 
17® MEMORY Ladr-1 CAF241 
188 adr=Ladr [46601 
198 READ werts CAEBB1 
208 IF wert$="#ENDE*"THEN 300 [D2341 
218 IF ASC(wert$)<48 THEN 248 [54341 
22@ POKE adr ‚VALC"&"+Wert$) tE82A1 
258 60TO 288 [D35@1 
248 wort=VAL (wert#)+Ladr L45QE1 
258 POKE adr ‚wort AND 255 L&8C81 
268 adr=adr+i LEBZEI 
27@ POKE adr ‚INT {wort/256) AND 255 T189C1 
288 adr=adr+i LaE821 
298 G0TO 178 [56501 
3@8 PRINT:PRINT"Laenge des Programms" ;ad 
r-Ladr; “Bytes.” 106421 
318 CALL Lädr:END 192081 


Listing. Mehr Eingabekomfort mit »AUTO Plus« 
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Perspektiven mit Tiefen 


pätestens seit die ARD ihre com- 
puteranimierte »1« über bundes- 
deutsche Bildschirme flimmern 
läßt und in mehreren Fernsehsendun- 
gen Spitzenprodukte amerikanischer 
Computergrafik Begeisterung weck- 
ten, wurde vielen klar, was Computer in 
diesem Spezialbereich Grandioses lei- 
sten. Da fliegen Bücher wie Tauben 
durch die Luft oder man erlebt eine 
Reise durch die Ölkanäle eines Motors. 
All das ist so realistisch dargestellt, daß 
man seinen Augen kaum traut. 
Selbstverständlich steckt hinter je- 
dem solcher Filme ein Supercomputer, 
der trotz seiner enormen Geschwin- 
digkeit für jedes einzelne Bild bis zu 20 
Minuten Rechenzeit benötigt. Für den 
CPC-Besitzer bleiben solche Darstel- 
lungen natürlich reines Wunschden- 
ken. Aber Spiele wie »Starion« oder 
»Elite« beweisen, daß sich dreidimen- 
sionale Grafik - zumindest in sogenann- 
ten »Drahtmodellen« - durchaus reali- 
sieren läßt. Mit einem professionellen 
Hilfsprogramm wie beispielsweise dem 
»CPC-Vektor« (Testbericht in Happy- 
Computer, Ausgabe 11/86) kann man 
sogar von Basic aus in diese Welt ein- 
steigen. »Aber wie funktioniert das alles 
eigentlich?« ist die Frage vieler Compu- 
terbesitzer, die der Sache auf den 
Grund gehen wollen. 
Der Grundgedanke all solcher Grafi- 
ken ist immer wieder die Mathematik. 
Mit Hilfe ihrer Formeln ist eine imaginäre 


AP 


Bild 1. Ein Koordinatensystem 
mit drei Achsen ist die Grundlage 


Kein Computerfreak kann sich 
der Faszination dreidimensiona- 
ler Computergrafik entziehen. 
Die Grundlagen solcher 3D-Gra- 
fikprogramme finden Sie hier. 


Welt in Form von 3D-Koordinaten im 
Computer gespeichert. Und diese gilt 
es, auf dem Bildschirm sichtbar zu 
machen. Jeden Punkt einzeln zu be- 
rechnen ist natürlich unmöglich und so 
beschränkt man sich auf die Eckpunkte 
der dargestellten Flächen. Diese 
Punkte stellen das gewünsche Bild als 
»Drahtmodell« problemlos dar. Profes- 
sionelle Programmierer geben sich 
damit zwar nicht zufrieden, aber Routi- 
nen zum Erkennen verdeckter Linien 
und zum Füllen von Flächen sind kom- 
pliziert und sehr langsam. Die Arbeits- 
geschwindigkeit des Programms würde 
gegen Null absinken. Konzentrieren wir 
uns also auf die Berechnung und Dar- 
stellung von Vektorgrafiken. 


1, 2, 3 Grafik 


Jeder dreidimensionalen »Welt« liegt 
ein Koordinatensystem mit drei Achsen 
zugrunde. Bild 1 zeigt das am meisten 
gebrauchte kartesische Koordinaten- 
system. Beiihm stehen drei Achsen, die 
mit x, y und z bezeichnet werden, senk- 


rechtaufeinander. Der Schnittpunktder 
Achsen heißt »Ursprung«. Seine Koor- 
dinaten sind somit immer (0,0,0). Jeder 
Eckpunkt einer Grafik kann in bezug auf 
diesen Ursprung mit Koordinaten ein- 
deutig festgelegt werden. So beschrei- 
ben die Koordinaten (2,-1,-3) den 
Punkt P aus Bild 2. Das bedeutet nichts 
anderes, als daß Sie vom Ursprung 2 
Einheiten in x-Richtung, dann 1 in -y- 
Richtung und zum Schluß -3 Einheiten 
in z-Richtung gehen. Die nächste Pro- 
blematik ist vom Filmtechnischen her 
bekannt. Das Aufnahmeobjekt ist vor- 
handen, doch wo steht die Kamera und 
wohin ist sie gerichtet? Als Kamera- 
standpunkt wählen wir beispielsweise 
den Punkt K an der Position (-2,1,3). 
Der Blick der Kamera ist genau auf 
Punkt P ausgerichtet. In Bild 2 finden 
Sie sowohl Punkt K wie auch den Blick- 
vektor V eingezeichnet. Dieser Vektor 
beginnt in (-2,1,3) und führt nach (2,-1, 
-3). Falls wir später den Blickwinkel der 
Kamera ändern wollen, legen wir den 
Endpunkt des Blickvektors einfach in 
einen anderen Punkt, beispielsweise 
nach (10,2,-5). 

Doch zurück zu unserem Bild. Die von 
uns gewählten Koordinaten erweisen 
sich aber als sehr ungünstig für unsere 
Zwecke. Einfacher läßtessicharbeiten, 
wenn wir den Standpunkt der Kamera 
und den Ursprung des Koordinatensy- 
stems in einen Punktlegen. Dasistsehr 
einfach: Wir verschieben die ganze 
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»Welt« und damit unsere beiden Punkte 
um den Wert 2 in x-, um den Wert -1 in 
y- und um den Wert -3in z-Richtung. Zu 
den alten Koordinaten zählen wir dann 
die Verschiebung dazu. Der Punkt Kbe- 
kommt damit den Wert (0(=-2+2), 
0(=1-1), 0(=3-3)) und P den Wert (4, 
-2,-6). Das neue System zeigt Bild 3. 

Unsere Kamera ist nun immer noch 
direkt auf den Punkt P (im neuen 
System P’ genannt) gerichtet, Da der 
Bildschirm aber nur zwei Dimensionen 
darstellen kann, müssen wir die Blick- 
richtung entlang einer Achse festlegen. 
Wir wählen die z-Achse. Jede andere 
beliebige. Achse eignet sich zwar 
ebenso, aber da man üblicherweise in 
der Ebene mit x- und y-Koordinaten 
arbeitet, bleiben wir auch dabei. Mit 
zwei Drehungen, einmal um die x- und 
einmal um die y-Achse, richten wir die 
Kamera so ein, daß sie entlang der z- 
Achse »schaut«. Zwei Sinusfunktionen 
verändern die Koordinaten von P' so, 
daß er zu der neuen Blickrichtung paßt. 

Einen Punkt kann man nun noch nicht 
dreidimensional sehen, da er ja keine 
‚Ausdehnung besitzt - zumindest ma- 
thematisch betrachtet. Erst die Darstel- 
lung von zwei Punkten bewirkt einen 
dreidimensionalen Effekt. Dieser be- 
ruht nun einfach in der vom Blickwinkel 
abhängigen unterschiedlichen Entfer- 
nung, sowie der Winkellage der verbin- 
denden Strecke zu der Ursprungs- 
ebene. Diese Effekte werden allein 
durch die beiden Sinusfunktionen auf 
die Ebene zurückgeführt. Wie das im 
einzelnen funktioniert, wurde bereits 
einmal im 2. Schneider-Sonderheft von 
Happy-Computer (Sonderheft 1/86) 
besprochen. 

Um das Problem noch einmal zu ver- 
deutlichen, schauen Sie sich bitte Bild 
4 an. Der Punkt A ist weiter von der 
Kamera K entfernt als B. Stellen Sienun 
eine Glasscheibe zwischen die Punkte 
A und B auf der einen und K auf der 
anderen Seite, so bekommen sie zwei 
Punkte A und B), die am Punkt K das 
gleiche Bild wie A und B erzeugen. 
Diese beiden Punkte A und B’ müssen 
also auf dem Bildschirm wiedergege- 
ben werden, und schon haben Sie das 
gleiche Bild wie bei der Vorlage mit den 
Originalen A und B. Die Darstellung ist 
aber einfacher, da jetzt beide Punkte 
auf einer Ebene liegen. 

Die Entfernung zwischen K und der 
Glasscheibe E nennt man Brennweite, 
von der das wiedergegebene Bild 
ursächlich abhängt. In unserem Pro- 
gramm ist die Brennweite frei einstellbar 
und deshalb können Sie damit beliebig 
herumexperimentieren. Alle Eckpunkte 
unseres abzubildenden Körpers wer- 
den jetzt korrekt gezeichnet. Verbinden 
wir sie untereinander mit Linien, so ent- 
steht das gewünschte Drahtmodell. 
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Brennweite 


Bild 4. Die Darstellu: 


ing auf dem Bildschirm 


Dabei treten jedoch Probleme auf. 
Die Punkte rechts von der Glasplatte 
werden korrekt dargestellt. Diejenigen, 
die im Rücken der Kamera liegen, aller- 
dings nicht. Verbindet man nun einen 
Punkt im Vordergrund und einen unkor- 
rekten Punkt im Hintergrund, so laufen 
diese Verbindungslinien scheinbar völ- 
lig unmotiviert durch das Bild. Das liegt 
daran, daß sich im Rücken der Kamera 
die Koordinaten ins Gegenteil verkehrt 
haben. Wir müssen also eine Routine 


einfügen, die eventuelle negative Vor- 
zeichen in positive verwandelt. Die 
Linien erscheinen dann korrekt. 

Eine letzte Anweisung muß die Linien 
die zwischen zwei Punkten im Rücken 
der Kamera liegt, unterdrücken. Eben- 
so müssen die rückwärtigen Teile im 
Vordergrund startender Linien gelöscht 
werden. Denn diese sind ja auf der 
Glasplatte auch nicht zu sehen. 

Listing 1 zeichnet eine stilisierte 
Maske, die über einem Gitter schwebt. 


_ __ 


Das Gitter ersetzt den Boden. Die 
Daten für die Maske und das Gitter sind 
in den Zeilen 70, 71 und 72 abgelegt. 
Zeile 20 initialisiert das Programm und 
legt den Ursprung in die Mitte des Bild- 
schirms. Zeile 40 legt die Zahl der ein- 
zulesenden Punkte und die der Linien 
fest. In Zeile 50 werden die Original- 
und die Bildschirmpunkte in Felder ein- 
gelesen, bevor im Anschluß die Mas- 
ken- und Gitterwerte gelesen werden. 
Nach der Definition liegt nun sowohl die 
Maske wie auch das Gitter im Ursprung. 
Das ist natürlich unerwünscht und so 
verschieben wir das Gitter einfach 
linear um 50 Punkte nach unten. Dies 
ist eine sehr einfache Methode, ein Bild 
in der Normalebene einzugeben und 
erst später an seinen tatsächlichen 
Platz zu verschieben. Es ist nämlich 
bedeutend einfacher, ein Bild um den 
Ursprung herum zu zeichnen, als es 
direkt zu berechnen. 

Auch unser Gitter soll noch manipu- 
liert werden. Da es zu klein ist, multipli- 
zieren wir es beim Einlesen mit dem 


gelegt, derim Moment der Ursprung ist. 
Dort haben wir ja unsere Maske defi- 
niert. Den Kamerapunkt enthält Zeile 
110. 

Ab Zeile 150 beginnen unsere oben 
erwähnten Umformungen - ab Zeile 
170 die Verschiebung und ab 200 die 
Drehung. In Zeile 270 wird um die x- 
und in Zeile 280 um die y-Achse ge- 
dreht. Zeile 315 testet auf unzulässige 
Punkte (im Rücken der Kamera), und 
Zeile 320 bringt das Ergebnis auf den 
Bildschirm. In Basic ist das Programm 
zwar langsam, aber das Ergebnis kann 
sich sehen lassen. 


Aktion in der 
zweiten Bank 


Doch unser Programm kann noch 
mehr. Ändern Sie die in Listing 2 ange- 
gebenen Zeilen, so fährt die Kamera 
von unten rechts nach oben links, den 
Blick immer auf die Maske gerichtet. 
Für den CPC 464 ändern Sie dazu in 


während der Berechnung nicht vor 
einem leeren Bildschirm sitzen, arbei- 
ten wir mit zwei Speicherbereichen zur 
Bildausgabe. Der zweite Bereich steht 
ab der Adresse 4000 hex. 

Listing 3 dreht die Maske während 
der Kamerafahrt um die y-Achse. Falls 
einmal die Körperachse eines Objekts 
nicht mit der Drehachse übereinstimmt, 
dann verschieben Sie nur das Objekt 
so, bis beide Achsen zur Deckung kom- 
men. Dort drehen Sie es, bevor Sie es 
wieder an seinen Platz zurückschieben. 

Was jetzt vor Ihnen abläuft, ist ein 
(langsamer) 3D-Film. Viele sind durch 
all die mathematischen Erklärungen 
sicher noch etwas verwirrt, aber eins 
hilft immer: Listing abtippen und aus- 
probieren. (Oliver Hansen/ja/hg) 


Steckbrief 

3D-Grafik 

CPC 464/664/6128 
Explora 


Programm: 


Computer 


Checksummer: 


Faktor 5. In Zeile 90 wird die Brenn- den Zeilen 140, 1090 und 1100 die ’ 
R < ne Datenträger: | Diskette/Kassette 
weite und der Beobachtungspunktfest- Adresse B7C6 in B1CB hex. Damit Sie a 

1@ ‘Sd-Darstellung [6362] | 288 t=x2(i%)#082-22(1%) #8n2:122 (1%) =n2(i% 

20 ON ERROR G0TO S@B@:MODE 2:PAPER 1:PEN )*sn2+22 (1%) *cs2:x2(1%)=t:" Drehung 
@:CLS:DEG:ORIGIN 520,208 L3AB61 um die y-Achse CBS161 

30 ‘Daten der Figur einlesen CDD@21 | 285 IF z2(i%)<@ THEN y2i2=-y2i%anzci 

4® n%=4B:lines%=Sl: "Anzahl der Punkte, %)=-x2(1%):’ Punkt hinter Kamera ccBecH 
Anzahl der Linien IF6A4] 298 NEXT i% ECC58] 

59 DIM x (n%) „yin%) ‚2 (n%) „x2(nZ) „yZinZ) ,z 295 IF flag=1 THEN flag=9:60T0 1990 ELSE 
2in%) L7FSEI #1ag=1:60T0 1198 (56201 

68 RESTORE 7@:FOR i%=1 TO 16:READ x(i%), 308 CLS:RESTORE 1B0@:FOR i%=1 TO lines“ [57481 

19,24% ıx iQ) =x (i%)-37.5:2 di) =zt 31@ READ a%,b%:' Anfangs- und Endpunkt L&2CA1 
%)-B.S:NEXT i%:” Maske einlesen und 315 IF z2(a%)<@ AND z2(b%)<@ THEN 550 CACBEI 
zentrieren CDBEAI | 320 MOVE (bwax2(a%))/z2(a%) ‚(bwey2(ai))/ 

65 FOR i%=17 TO n%:READ x (i%) „y(i%) ,z(i% 22(a%):DRAW (bw*x2(6%))/22(b%) , (bway 
PETRERAESKERAETEREGAL HERE TEA 2(6%))/z2(b%) ,@ CF&D41 
(i%)-S@:NEXT if: Gitter einlesen, ve 33® NEXT i%:RETURN LEF7AI 

7a DRRSeSSucn, und Verschieben. t13CC9 1000 DATA 12272315 15216, 16,5 33% JERRELICH 
DATA_37.5,100,0,0,87.5,80 7.5,8,16 
„6,83.3,13,58.3,83.3,13,37.5,74,18,7. 64%3°19118.2.8,11,11.9.18/11,7, 10,8 
5,38.3,8,67.5,58.3,8,37.5,37.5,16.6,1 „ir ia,i3,13,12,12,14, ja,di,i1 12,1 
8:7,31.2,10,58.3,31.2,18,37.5,15,13,1 18,15,15,15,14,14,16,1 ca1co] 
5.6,9.4,6.2,59.4,9.4,6.2,9.4,8,8,65.6 1001 DATa’17125125!38,34126) 132°17,18,27, 
0,8:° Punkte Maske CB@341 19,28,20,29,21,30,22,31,23,32,24,33 

71 DATA -49,0,-48,-38,0,-48,-28,0,-40,-1 Be 42,38,43,37,44,38,45,39,46,48,4 
2,0,-40,0,8,-48,18,0,-40,20,8,-49,50, 7,31,48 LBASAI 
a,-40,a0,0,-4@,”40,0,40,-30,0,40,-20, sone RESUME NEXT L632A1 
@,48,-10,0,40,8,0,40,18,0,40,20,0,40, 
36,0,48,40,0,40,-40,0,-30,-48 „2-20, Listing 1. Die dreidimensionale »Maske« entsteht über dem 
40,0,-18,-40,0,0,-40,0,10,-40,0,20, Gitter 

,0,30,46,0,-38,40,0,-28 LECOBI 

72 DArh ab 10,48,0,0,40,0,10,40,0,20, 

Punkte Gitt L77F4] 28 MEMORY %40@8:0N Ben 60T0 5888: MODE 

80 2 ‚Ülegung von Brennweite und Blickv a PAPER 1:PEN DEG:ORIGIN 328,20 
ektor L13EB] L3ACDI 

98 _bw=4uB: vr=d: vy=ß: vz=B EFSER) | 118 ox=-218:0y=190: 02-258 LISFAI 

100 'Festlegung der Kameraparameter L7EF2)J 128 FOR oy=-488 TD 488 STEP 28 [BAEAI 

110 ox=Q: oy=B:02=250 [7B18] 125 ox=ox+1@ La29EI 

138 GOSUB 158 [BED4) | 138 SOSUB 158 [BED4] 

14@ END [9D181 | 14@ NEXT:OUT &BD@B,48:POKE &B7C6,192:MOD 

150 "rer Transformation der Koord E 2:END 17D2A1 
inaten mem L4EBEI =1 THEN flag=2:60T0 1898 ELSE 

160 ° 1. Verschiebung, so dass ox,oy,oz g=1:60T0 1198 [56203 
den Ursprung bildet LAFFB] &BCQ®,12:0UT &EDBB,16:POKE &B7C 

170 vrZ2=vx-ox: vy2=vy-oy: vz2=vz-0z LAER4] &,192:G0T0 388 cacz8ı 

188 FOR i%=1 TO nZ ti2)=x (1%) -onzyZ2(if 1188 OUT &BC@@,12:0UT &BD@@,48:POKE &B7C 
)=ytif)-oy:z2(i%)=z (i%)-oz:NEXT i% L[SF461 6,64:60T0 308 EF2CEI 

199 ‘ 2. Drehung, so dass die Blickricht 
ung genau auf der Z-Achse liegt tE952] Listing 2. Eine »Kamerafahrt« durch den Raum 

208 betrag=SOR (vz2“2+vy2*2+vx2”2) [2R28] 

218 sni=vy2/betrag:csi=-vz2/betrag 18478] 

220 IF vy2=@ THEN sni=@:csi=1 L4E1CI 185 SOSUB 1848 LEB46]1 

230 t=vz2#cs1-vy2#sni:vy2=vz2#sni+vy2#cs 1848 ° Drehung um die Y-Symmetrieachse L[616C1 
1:vz22=t [2086] 1845 cs3=C0S(15):sn3=SIN(15):FOR i%=1 TO 

242 betrag=S0R (vx2"2+v22°2) [B178] 16 TB6FEI 

258 sn2=vx2/betrag:cs2=vz2/betrag [18281 1862 t=x (i%) 8053-2 (iX) #sıJ:z (iX) (if)es x 

268 FOR i%4=1 TOD n% [4762] n3+z (iX) #cs3:x (iA)=t LF3881 

270 t=22(i%)*cs1-y2(i%)&snl:y2ti2)=z20i2 1888 NEXT i%:RETURN [76281 
)*snity2(i%)*cs1:22(1%)=t:" Drehung Fe & 
um die x-Achse [67181 Listing 3. Die drehende Maske ist 3D-perfekt 
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Der Amiga-Ball springt 


Nach vielen Umsetzungen dieser beliebten Grafik- 
Demonstration für diverse Computer haben nun 
auch Sie als CPC-Besitzer Grund zur Freude. 


er die bekannte Grafikdemo des Commodore- 

‚Amiga je gesehen hat, den verblüfft wahrschein- 

lich der karierte Hüpfball auf seinem Schneider 
CPC. Die hohe Geschwindigkeit dieser Grafikanimation läßt 
sich auf den Schneider-Computern natürlich nur durch Tricks 
realisieren. So baut Listing 2 nacheinander acht Einzelbilder 
mit Bewegungsphasen des sich drehenden Balls auf. Da die- 
ser Vorgang sehr zeitraubend ist (zirka 15 Minuten), spei- 
chert die Routine die Teilbilder unter dem Namen 
»AMIGA.PIC« gemeinsam in einer Datei. 

Für den Lauf des Bildgenerators ist eine Maschinencode- 
Routine notwendig. Sie erzeugt der Basic-Lader in Listing 1 
und speichert sie unter dem Namen »AMIGA.BIN« als Binär- 
datei. Derselbe Maschinencode enthält auch die Routine zur 
Animation des Balls. Listing 3 dient ausschließlich dem spä- 
teren Laden der beiden benötigten Binärdateien und startet 
dann die Endlosschleife, innerhalb der der Ball sich »bewegt«. 
Der Abbruch ist nur durch einen Reset möglich. Kassetten- 
Benutzer speichern für das lauffähige Endprodukt hinterein- 
ander zuerst diese Laderoutine, danach den Maschinencode 
»AMIGA.BIN« und als letztes die Bilder »AMIGA.PIC«, um das 
automatische Nachladen sicherzustellen. 


(Ralf Brinkmann/ja) 


AO" //VITIRERRETTETTTETEELG TASAsI 
20 '’ /1/ 41 EBBC6]J 
30 ' /// Amiga-Ball v1 182561 
a0 : 777 (©) 1986 7 [CB221 
58 ° /// Ralf Brinkmann /// [BDD6]J 
60° //1 411 [2BCE] 
7a FEEPEEETTETTTETTTTEEEE IFSB@] 

80 Merry %3A97:L0AD"amiga.bin":xorg=10: 
(org=220 LAEE&I 

90 INK @,13: INK 1,26: INK 2,0: INK 3,6:BOR 
DER 14 LSFCa1 
188 MODE 1:2=@: adr=15008 [7FD8] 
118 ORIGIN xorg,yorg [268E3 
120 GOTO 428 TBA441 
130 h=C0S (w)#SIN (k#p) [71681 
140 y=SIN (m) L887A1 
158 Hen-yisw £[D@22]1 
168 Rawtyrch E11221 


100 HR LAT 
AMIGA.DAT - DATA-Lader von ‘CPC‘ * LC74C1 
DEE DE DERTEUEERTUREEUTTT un E10: 76} 
EDEB&] 


184 DATA 9C49,21,08,00,22,58,98,21,78,@ADA L313A] 
105 DATA 9C48,3A,22,5A,98,3E,01,32,62,16B2 [3248] 
186 DATA 9C50,78,32,60,98,32,64,98,CD,44FD 
187 DATA 9C58,68,9C,CD,E1,9C,CD,27,9D,03B7 
108 DATA 9C68,SA,F4,B4,FE,80,CB,18,EF ,3E9F 
189 DATA 9C68,3A,66,98,FE,@1,CA,ar,9C, 1AC2 
110 DATA 9C70,3A,62,98,FE,31,C2,7E,9C,1B88 

1 DATA 9C78,3E,01,32,66,98,09,30,32,18CE LA8BEI 
2 DATA 9C80,62,78,2A,58,98,CD,20,BC,10C8 L&DAA1 
3 DATA 9C88,22,58,98,CD,AE,9C,C9,3A,1E78 L[&BOEI 
4 DATA 9C98,62,98,FE,81,C2,9D,9C,3E,0DB2 [87E81 
8 DREA SEIB BR 1 SZ BE 1 DE LER FED SZAGRHEN ERZTAN 
7 
8 
9 


DATA 9CAB,98,2A,58,98,CD,23,BC,22,43BE LA4EQI 
DATA 9CAB,58,98,CD,C6,9C,09,2A,5A,180A L[751A1 
DATA 9CB@,98,3E,8B,BC,DA,BF,9C,01,5035 [51481 
DATA 9CB8,B8,0B,09,22,50,98,C9,21,5CC3 L6DC81 
12@ DATA 9CC0,98,3A,22,5A,98,C9,24,5A,4484 EFBECI 
121 DATA 9CC8,98,3E,38,BC,D2,DA,3C,@1,4BE1 LEBSQ] 
122 DATA 9CDQ,B8,0B,EE,08,ED,42,22,54,457E LFEDEI 
123 DATA 9CD8,78,C7,21,AQ,8C,22,54,98,74h4 LA7B61 
124 DATA 9CEB,C7,3A,64,98,FE,01,C0,08,6968 L[S3DC1 
125 DATA 7CE8,90,3A,60,78,FE,01,02,F7,4397 LiDD&l 
126 DATA 9CFQ,9C,3E,01,32,64,98,C9,24,4278 [5494] 
127 DATA 9CF8,58,98,CD,29,BC,22,58,78,147@ LOCBAI 
128 DATA 9D99,34,60,98,3D,32,60,98,09,1439 LASS2] 
129 DATA 9D88,3A,60,98,FE,63,02,16,9D,1741 L[349CJ 
138 DATA 9D10,3E,00,32,64,98,C9,2A,58,18E8 L&C64] 
151 DATA 9D18,78,CD,26,BC,22,58,98,3A,713A L[47B@J 
132 DATA 9D20,60,78,3C,32,60,78,C9,24,1278 LZD4AJ 
133 DATA 9D28,58,98,22,50,98,24,54,98,0FC4 LBFACI 
134 DATA 9D30,22,5E,98,86,64,C5,ED,SB,1455S L[2A881 
135 DATA 9D38,5C,78,2A,5E,98,@1,1E,00,0058 L[BF@AI 
136 DATA 9D40,ED,B0,24,50,98,CD,26,BC,5D@4 [02121 
137 DATA 7D48,22,50,78,2A,5E,78,@1,1E,172C [33921 
138 DATA 9D50,08,09,22,5E,98,C1,10,DD,84D7 LBS741 
139 DATA 9D58,C7,28,21,00,00,22,50,98,6684 [46343 
128 DATA 9D6@,DD,6E,@@,DD,66,81,22,58,7BF8 LB1BCI 
141 DATA 9068,78,CD,6D,90,07,2A,58,98,7DF8 L8B381 
142 DATA 7078,22,5C,78,24,50,98,22,5E,17@A L4Q7E1 
143 DATA 97079,78,06,64,C5,ED,5B,5C,78,4874 L[9ADA1 
144 DATA 9D80,2A,5E,78,01,1E,90,ED,BQ,iaaA LSQ8C1 
145 DATA 9098,24,5C,78,01,1E,00,09,22,11D0 [64461 
14& DATA 9D98,5C,98,2A,5E,98,CD,26,BC,@FA4 [2E1A1 
147 DATA 9D98,22,5E,98,C1,12,DD,C9,0@,1BF&6 LFICEI 


148 DATA #ENDE*+ L89CE] 
149 adr=&9C40:zeile=104 LT46BA] 
158 MEMORY adr-1 [D588] 
151 READ ds [34F6]1 
152 IF d$="#ENDE#"THEN 165 [CE963 
153 pr=® CAE1Q] 
154 FOR i=1 TO 8 [33661 
155 READ a$ıa=VAL("&"+as) 128441 
156 POKE adr ,‚asadr=adr+i LB72@1 


157 propr#ZuiF pr>6555 THEN prepr-65555 ta6Aaı 
158 pr=UNT(pr)XOR a:IF pr<® THEN pr=pr+6553 
6 


ECFBBI 
159 NEXT i LASBE] 
16@ READ pr$:pr2=VAL("&"+pr&)sIF pr2<@ THEN 

‚pr2enr2ressse 168881 
161 IF pr@>pr2 THEN 164 L7602) 
182 zei. eile+l Ecaaaı 
163 GOTO 151 EFAS4I 
164 PRINT"Pruefsummenfehler in Zeile";zeile 

STOP 173FA1 


165 SAVE"AMIGA. BIN" ,‚b,&9C40,&160,&9CAB:END [LOBB2I 


Listing 1. Im Basic-Lader ist der komplette Maschinencode 
zur Bewegung des Amiga-Balls enthalten 


178 xen+xd+m+m#x-XPOS L9D561 
180 y=_ yd-m+m#y-YPOS a8B21 
190 RETURN 194341 
288 FOR n=@ T0 7 LZESCI 
218 ven/4 TEA6EI 
220 GUSUB 298 t43DE] 
230 FOR k=-3.6 TO 3.6 STEP 8.05 £13C2] 
248 FÜR #=-4 TO 3 LTOAAEI 
258 u=INT (K+v)+f EF184] 


240 IF u=2#INT (u/2) THEN LET w=fxp:PLOT 
R @,8:GOSUB 130:PLOTR x,y,S:m=w+p:GD 


SUB" 158: DRAWR x „ysDRAWR X ,-y,3 CD4601 
278 NEXT #:NEXT k [32041 
288 NEXT_n LASsaE] 
298 xd=20: yd=156 C67ac] 
308 GOSUB SAG:PRINT CHR$(22)5CHRE (1); EBF@QI 
310 xd=2:yd=166 ES@EQ] 
32@ GOSUB 340: PRINT CHR$ (22) ;CHR$(@); 198021 


1OBuw .HOMEcOMPUTER 


— 
ss 
532 RETURN TAs2CI Steckbrief 
Sau zer, m as EDFB81 7x =7 
35@ IF z Yon 2=@ THEN PLOT 1 ELS ramm: iga-I 
E_PLOT 500,502, & = = BE Prog NE AlH B: 
21 AND z> GOSUB 44; 
a Do See 2sıaı Computer: CPC 464/664/6128 
382 kr=SOR (m#m-r#r) C4DF&6J 
398 PLOT xd+mtn+r ‚yd-m+kr L6SEB] Checksummer: | Explora/CPC 
422 DRAWR B,-2#kr:NEXT r 1D742] 
418 RETURN TABZAI ä, . ji 
Aza| n_20:g=-PL/2a: w-SIN (p)zcw=C0S (plz Datenträger: Kassette/Diskette 
=P1/8 [7E62] 
438 Bora 208 14144] 
448 ORIGIN @,201:DRAW 688,8 [72CA1 
458 CALL 40282, adr: a aur sg: ORIGIN x 
ergpyargs xarasxarg- 1 719E1 1B@ MEMORY &3A97 CCB@B1 


468 PLOT 8,8,2:CL5 [8S3E1 


470 IF adr>=3970@8 THEN 490 L9As8] 
488 RETURN [10383 
498 SAVE"aniga.pic",b,15008,24008 ESFD6I 
SOB CALL 40008: END EagEcı 


Listing 2. Nach etwa 15 Minuten speichert der Generator 
die acht Teilbilder 


GAD"AMIGA. BIN" 
z INK 2,8: INK 3,6:BOR 


L7DA&3 


L39BC1 
E96ECI 


DER 1. 
48 MODE 1:CALL &9048 


Listing 3. Wenn Sie diese Zeilen starten, läuft der Rest der 
Grafikdemo vollautomatisch 


Software-Glück 


»Soft-Chef« gehört zu den Strategie- und Simula- 
tionsspielen. Mit Geschick und einer Portion 
Glück führen Sie Ihre Software-Firma zum Erfolg. 


Is Manager einer Software-Firma müssen Sie ein Jahr 

lang Ihre Programme erfolgreich verkaufen, um damit 

möglichst viel Geld zu verdienen und eventuell sogar 
den Software-Cup zu erringen - eine hohe Auszeichnung der 
Software-Branche. In diesem Bestreben konkurrieren mit 
Ihnen neun andere, vom Computer gesteuerte Unterneh- 
men. Jede der zehn Firmen besitzt die Rechte an jeweils 
zehn verschiedenen Programmen, die Sie möglichst erfolg- 
reich vermarkten sollen. Woche für Woche ermittelt der Com- 
puter die Verkaufszahlen aller Programme und errechnet dar- 
aus die »Top 18« - eine Rangliste der 18 meistverkauften Pro- 
dukte. Nur Firmen, deren Programme dort vertreten sind, 
ernten Prämien und Punkte für den Software-Cup; die Höhe 
richtet sich nach der jeweiligen Plazierung. 

Zusätzlichen Gewinn für plazierte Programme verbuchen 
Sie, falls der Verkaufspreis über der Gewinngrenze liegt. Das 
birgt aber auch Risiken: Je höher Sie den Verkaufspreis fest- 
setzen, desto weniger Exemplare verkaufen sich. Billige Pro- 
‚gramme sind nun einmal leichter zu verkaufen. Der Computer 
limitiert allerdings Höchst- und Niedrigstpreise, um einem rui- 
nösen Wettbewerb und Wucher vorzubeugen. 

Je Programm steht Ihnen wöchentlich ein Werbeetat von 
10000 Mark zur Verfügung. Natürlich reagiert die Konkur- 
renz auf Ihre Preis- und Werbepolitik mit entsprechenden 
Maßnahmen. Ihre Verkaufszahlen richten sich also nach Ver- 
kaufspreis und Werbeaufwand, aber auch nach Qualität und 
Index der Produkte. Die Qualität der Programme legt der 
Computer zu Beginn des Spiels fest. Der Index berücksich- 
tigt die Aktualität und steht deshalb bei Neuerscheinungen 
immer auf 1. Jede Woche sinkt er um 0,01 Einheiten, so daß 
der Verkauf im Laufe der Zeit zurückgeht. Um zu verhindern, 
daß Ihr Gesamtumsatz stagniert oder sich gar rückläufig ent- 
wickelt, geben Sie öfter neue Programme in Auftrag. Dadurch 
erreichen Sie eine Qualitätssteigerung und bereichern Ihr 
Angebot mit stets aktuellen Produkten. Die maximal erreich- 
bare Qualität repräsentiert der Wert 25. Die Höhe der Ent- 
wicklungskosten richtet sich nach der Qualitäts- und Index- 
differenz zum alten Programm und nach Länge der Entwick- 
lungszeit, die zwischen einer und zehn Wochen liegt (je 
schneller, desto teurer). 


Die Hitliste der 18 bestverkauften Programe dieser Hoche : 


Tite Anzahl ı Punkte ı 
Hastnsdeste. set 328 RE 
ach 
Yanner Canes IT ® 
Bess bie Aission Ei Bi 
Senner Eines 
Sublesik bioht. I RG 
Rasterisr the 1 
it F 
eifen 4 
chen, u 
{#7 ri 
Kikat 14 
Hadhalı Nanaser Bin 20cm 
& 9 i 


TSPACE druecken > 


In der Hitliste sind die Produkte des Spielers rechts markiert 


Nach dem Programmstart wählen Sie einen Schwierig- 
keitsgrad zwischen O und 7. Jehöher der Schwierigkeitsgrad 
liegt, um so geringer ist anfangs die Qualität Ihrer zehn Pro- 
gramme. Darauf folgt das Hauptmenü mit folgenden Unter- 
punkten zur Wahl: 

Werbung 

Die Höhe des Werbeetats je Woche und Produkt ist auf 
10000 Mark begrenzt. 

Neuentwicklung 

Sie wählen eines Ihrer Programme zum Austausch. Dann 
bestimmen Sie gewünschte Qualität und Entwicklungszeit 
des neuen Produkts. Aus diesen Angaben errechnet der 
Computer automatisch die Entwicklungskosten. Erscheint 
Ihnen der Aufwand lohnend, erteilen Sie den Entwicklungs- 
auftrag. 

Wollen Sie lediglich den Index eines Programms wieder 
erhöhen, übernehmen Sie einfach den alten Wert für die Qua- 
Iität. 


Steckbrief 
Programm: Soft-Chef 
Computer: CPC 464/664/6128 
Checksummer: Explora 
Datenträge: Kassette/Diskette 


RETTET] N Van:? 17727-007212] use 


109 


Preise neu festsetzen 

Die Verkaufspreise Ihrer Programme variieren von 29 bis 
69 Mark. Sie erzielen jedoch nur jenseits der 29-Mark- 
Grenze wirklich interessante Gewinne. Hier ist besonderes 
kaufmännisches Fingerspitzengefühl gefordert, um auf der 
einen Seite die Ware nichtzu »verschenken«, auf deranderen 
aber nicht wegen zu hoher Preise auf den Produkten sitzen- 
zubleiben. 

Statistik 

führt Sie in ein Untermenü, wo Sie sich einen aktuellen 
Überblick verschaffen: Gesamtumsätze aller Firmen, Ge- 
samt-Stückzahlen der verkauften Programme, Kontostände 
‚sämtlicher Firmen und Chancen für den Software-Cup, sowie 
Verteilung der Programme auf die verschiedenen Firmen und 
in Entwicklung begriffene eigene Programme. 

Highscores anzeigen 

Der Computer speichert selbständig für alle acht Schwie- 
rigkeitsgrade die Höchst-Punktzahlen in den Sparten: Anzahl 
der verkauften Exemplare eines Programms pro Woche und 
Gesamtzahl verkaufter Exemplare einer Firma. Zusätzlich 
gibt es noch Highscores für die in der Endabrechnung nach 
einem Jahr erhaltenen Punkte. 

Abspeichern des Spielstands 

Da ein Spieldurchgang relativ lange dauert, ist es mitunter 
sinnvoll, den aktuellen Spielstand zu speichern, um erst spä- 
ter das Spiel fortzusetzen. 

Laden des Spielstands 

Das Gegenstück zum Speichern. Diese beiden Menü- 
Punkte bieten sich an, wenn Sie einmal »halsbrecherische« 
Experimente vorhaben. Treiben Sie sich damit in den Ruin, 
laden Sie einfach den Spielstand einer erfolgreicheren 
Geschäftsperiode und fangen mit dieser günstigeren Kon- 
stellation wieder an. 

Weiter im Spielverlauf 

Hier beginnt die Prozedur, die sich 52mal innerhalb eines 
Spieldurchgangs wiederholt. Auf die Anzeige sämtlicher 
Neuentwicklungen folgt eine Übersicht Ihrer Verkäufe. Dann 
errechnet der Computer die Rangliste der aktuellen Top 18. 
Es folgt der Zwischenstand im Software-Cup und eine 
Abrechnung Ihrer Verkaufserfolge, bevor wieder das Haupt- 
menü erscheint. Nach 52 Wochen bricht Soft-Chef ab und 
verteilt für Ihre Leistungen Punkte. Wenn Sie 1000 Punkte 
und mehr erzielen, dürfen Sie zufrieden sein; erst recht, 
wenn Sie das im siebten Schwierigkeitsgrad geschafft 
haben. 

Ein Hinweis zur Eingabe der Listings: Geben Sie bitte 
Listing 1 zuerst ein und starten es. Es erzeugt die später 
benötigte Highscore-Datei. Danach brauchen Sie diesen 
Programmteil nicht mehr. Listing 2 enthält das Hauptpro- 
gramm. Kassettenbenutzer speichern bitte die Highscore- 
Datei unmittelbar hinter dem Programm, weil dies gleich zu 


Beginn den Inhalt dieser Datei benötigt. (Martin Stahl/ja) 

1 DIM hsf (8) ‚hs## (B) ‚hsw{B) „hawf (8) „hewt 

(8) ‚h1# (8) ‚n2$ (8) ‚hsp (8) ‚h3#(8) 196721 

2 Far bei, To" ’s EF9ACI 

[B2FCI 

[CE@BI 

[SB1E] 

CDDFAJ 

20 FOR t=1 10 8 LEAQCI 

3Q WRITE#9 ,hsf (t) [aAs8] 

4@ WRITERF,hs## (t) [Daa&] 

5® WRITE#9 ,hswit) [CDSEI 

&8 WRITE#F,hewf (t) £5c2C1 

78 WRITER? heut (t) 1233A3 

80 WRITE#F,h1F(E) CBSSAJ 

92 WRITE#97)h2$(t) TCS3E1 

92 WRITE#9,hsp it) EF65C}3 

94 WRITERF,h3$(t) [BFaB] 

108 NEXT t [28083 

118 CLOSEOUT [FB483 

Listing 1. Dieser Programmteil erzeugt die Highscore-Datei 

rss 


100 REM »#* 
11@ FOR t=2 TO 18 
12® READ #$(t) 
NEXT 
148 FOR t=1 TO 188 
158 READ prg$(t) ‚prg(t) 
NEXT 


161 FOR t=1 TO 180 
162 ind(t)=i 
198 PRINTH2,"SOFT - CHEF 2.9 220) ı 
1 INTR2," = CHEF 2.962>/ 

Hi an 


33@ IF t<>1@ THEN PRINT 


REM ann 
Te TE Eee 


** 
REM * 

* 
REM * 

CHEF 2.9 
* 
REM * 


SOFT - 


* 
REM * (C) 1986 by MA 
RTIN STAHL / Ruesta 

* 

REM * 


70 REM Wenns 


BER 


.r 
72 OPENOUT"D": MEMORY HIMEM-1:CLOSEOUT 
75 GOSUB 59708 

77 RANDOMIZE TIME 


MODE 2 
85 WINDOW #2,14,66,1,1: PAPER #2,15:PEN # 


86 SlnDow #0,1,88,2,25 
38 DIM #$(10) ‚prg$ (108) ‚prg(109) , Da 


‚fi12,10), Sir 2, RER 19,10) 


ee (198) ‚gyzcioe ‚ri cı0) 


Initialisierung ### 


986 by MARTIN STAHL / RUl 


172 GOSUB 59508 
CLS 
188 LOCATE 1,6:PRINT"Bitte geben Sie den 


Namen Ihrer Software - Firma ein : 


198 INPUT #$(1) 
200 f$(1)=LEFT$(#$(1) ,20) 
s 


CL! 
228 LOCATE 1,&:PRINT"Programme werden au 


f Sie verschiedenen Firmen verteilt 


225 FOR t1=1_TD 18 
238 FOR t=1 TO 1 


2 
27] BOZINTERND (110m +1. IF hatpg)=1 THE 


242 Ir Yi=ı THEN IF prg(pg)>og DR prgipg 


)<ug THEN 248 


272 FOR ti=1 TO 1@ 
273 pr(t,t1)=49 
NEXT 


275 NEXT 
28@ CLS 
278 PRINT:PRINT"Sie besitzen Rechte an f 


eigenden Programmen :" 


318 FOR t=1_ TO 
320 PRINT are t28) PRINT USING "\<Z2@>\"; 


prg$(# (1,t)) „PRINT Fi1,t)) 
SE 2SI FOR t2= 
1 TO 29:PRINT CHRS$(154) ::NEXT 


335 PRINT 


NEXT 
350 GOSUB 57008 
408 REM “x 
405 FOR t=1 TO iB:FOR ti1=1 TO 1Q:w(t,t1) 


hauptmenue x=* 
zöinsunt, t1)=@:NEXT:NEXT 


410 CL 
418 PRIN PRINTSPRINT"<Z>Hauptnenue ı" 
417 PRIN 
420 PRINT:PRINT» 


2>T w 3£22:<2>Werbung # 
uer eigene Programme" 
25T n 1£23:<2>Neuentwic 
rogramme 
2>T p 1<2>:<2>Preise de 
r_Programme neu festsetzen" 


448 PRINT:PRINT"<2>T s 1<2>:<2>Statistik 
458 PRINT:PRINT"<2>T h 1<23:<2>Highscore 


s anzeigen" 


Listing 2. Erobern Sie den Software-Markt 


LASsAAı 


192341 


[8066] 


CDASBI 


ED&DEI 


EBASCI 


[67B6] 
[23083 
[26621 
EF9OCI 
LEBFE] 


12304] 
[8E76] 


[8656] 
[35842] 
EFDCB1 
L647C) 
Tö1E6] 
[SE24] 
LCSBC] 
[7SEC) 
[852A1 
L&B4E] 
E4B1A] 


LF67AJ 
L2EBA] 
[763E] 


C41021 
EB9ECI 
[SB6A1 
1782A] 


LIBF6] 
LOC2E] 
EF7C4] 
EBAABI 


t3E181 
LBABEI 


L8D38] 
LC6BCI 
[6188] 
625029 
LB9F4J 
EFBA6I 
[5698] 
L77EC1 
ESCACH 
TBB&Q] 
187541 
LB82E] 
L889E] 
[59021 
174741 
L7D961 
L112C1 
LBFEAI 


[89561 


1 10, ww ‚HOMECO: 


PRINT:PRINT"<2>T a 1£2>:<2>5pielstan 
d_abspeichern” 
PRINT=PRINT"<Z>T 1 3<2>:<2>Spielstan 
d laden" 
PRINT=PRINT* 
r im Spielverlauf" 
LOCATE 28,24 : PRINT "Bitte waehlen 
Sie eine der Optionen : [<S2J"5CHRF( 
8) ;CHR$ (8) CHRE (8 

THEN 588 


as=INKEYS: IF a‘ 
IF a$="w" THEN GOSUB 1598: 6070 
THEN BOSUB S@28: 5070 
THEN GOSUB 4589: 6010 
THEN SOSUB 5@8@: 6010 
THEN GOSUB 7098: 6070 
THEN GOSUB 8298: 6010 
THEN GOSUB 9808: GOTO 
THEN 598 


>T SPACE 1£22:<2>weite 


410 
418 
418 
418 
410 
418 
410 


IF 
GOTO 


520 
REM **%* Hauptschleife ##* 


CL8 

IF woche=52 THEN 18090 : 
lussuebersicht ##* 
woche=woche + 1:flag=1:FOR t=1 TO 18 
@rind(t)=ind(t)-B.@l:NEXT t 

FOR w=i TO 1@:flag6=d:ez (m)=ez (w)-1: 
IF ez(w)=® THEN wa=w: #lag6=1: : GOSUB 
57008 

NEXT w 

IF woche <> 1 THEN BOSUB 57288 
LOCATE 1,3:PRINT"Woche : "zwochez "<2 
gpirma :_"aesltlan) 
LÖCATE 1,5:PRINT"Titel :<1A>verkauft 
e Exemplare :<7>Gesamtverkauf bis je 
tzt 
GOSUB 58508 

IF flag<>1 THEN 72@ 

FOR q=i TO 18 

FOR gi=1 TO 18 

r=INT (RND(1)#2@@@) +1 

r=r/100 
vktq,g1)=INTtprg (# (q,q1))*12@@+m(g, 
al)-pr (q,gl)-r))#indiFiq,q1))) 

gvk (q,gl}=gvktq,gl)+vkiq,al) 

NEXT al 

NEXT.q 

FOR t=1_TO 1@ 

PRINT USING"\<29>\";prg$(# (flag,t)); 
zPRINT USING "####";vk(flag,t);:PRIN 

T SPC (24); :PRINT USING "aHiHhi#"sguk( 
flag,t) 

NEXT t:IF flag <>1 THEN 758 

hsfl = ® : FOR t=1 TO 10 : sumit)=@ 
ı NEXT t 

FOR t=1 TO 10 

FOR ti=1 TO 18 

sum (t)=sum(t)+vk(t,t1) 

NEXT t1 

NEXT t 

FOR w=i TO 1@ 

IF sum(w) >hsf (swg) THEN hsf (sng)=sum 
{w) 3 hsffisugdew : hsfl=1 : histeng 
I=f5(w) 

NEXT w 

GOSUB 58508 
svk=@: sgvk=B 

FOR t=1 TO 10 
sykesvkavkiflag.t) 
sgvk=sgvk+gvk (flag,t) 

NEXT t 

PRINT"Summe 1 "3SPC(22) 55vksSPC (23) 5 


vk 

RINT:PRINT:PRINT"<Z>T a 3<£63:£2>Ver 

kaeufe der anderen Firmen anzeigen" 
PRINT" SPACE 1<2>:<2>weite 

r_im Spielverlauf" 

PRINT: PRINT"<18>Bitte waehlen Sie ei 

ne der Optionen :<2>1<5>2]";CHRF(B);C 


REM ##%* Sch 


HRS (8) 3 CHRS (B) ; 

as=INKEY$: IF " THEN 888 

IF a$="a" THEN GOSUB S8@QB:CLS:G0T0 
610 

IF a$=" “ THEN 840 

60TO 808 

CLS 


GOSUB 58588 
LOCATE 1,2:PRINT"Woche : “swoche; "<B 
>Die Hitliste der 18 bestverkauften 
Programme dieser Woche :" 

G0SUB 58588 
PRINT"<4>Firma 


<15>Titel >Anzah 


1_:<8>Punkte :" 
GOSUB 58508 
+0=2 


FOR t=1 TO 18 

FOR t1=1 TO 18 

IF vk(t,t1)>238@ THEN fO=fO+Hl:p(f@)= 
vkit,tilspi (FR)=tip2if@)=tl 

NEXT’ EL 


LAECBI 
L&CDB1 
[B1941 


12034] 
[DB1CI 
ED7BE] 
[5448] 
CD2C2] 
EDCBBI 
ESCABI 
[D69E] 
[5@B8] 
C3DSCJ 
[6C56] 
CBSBEI 
[8E48] 


175B2] 
174883 


LB3223 
[SS1C] 
[CAECI 


[C486) 


129641 
[3868] 
[4876] 
L9SCAI 
LABZEI 
EZAACI 
EFSSEI 


LOAs6I 
C6B9AI 
£D57@J 
C1A1BI 
t28CC] 


L14BA] 
E7SCE] 


CCB16] 
E26D41 
[83383 
LA6A41 
TBABBI 
13028] 
T26E41 


TABABI 
C@DS43 
ESDBCI 
LA2CB] 
E@9D6] 
EFB761 
CFBE2] 
[2B28] 


L71421 
L7CBB] 
t4B8C] 


LEFS2] 
178283 


L8B423 
12834) 
CDDS8J 
CC1SC9 
[42063 


17454] 
tsAcel 


LBDSCI 
E&RCA3 
182583 
£31DC1 
EDC2EI 


[34E81 
LEB7EI 


338 
948 
945 
9758 
368 
978 


988 


998 
995 

1098 
1210 
1020 
1021 
1022 
1023 
1025 
1938 


1035 


19037 
1248 
1041 


1958 
1955 


19868 
1078 
1988 


1998 
1895 
1996 
1100 
1118 
1128 
1138 
1148 
1158 
1168 
1178 


1188 
1198 
1208 
1218 
1220 


1225 


1230 
1248 
1245 
1258 
1255 
1268 
1270 


1288 
1290 


1398 
1305 


1397 
1310 
1311 
1312 
1313 


1314 


1328 


1338 
1348 
1358 
1368 


Listing 2. Erobern Sie den Software-Markt (Fortsetzung) 


TO a 

IF p(x)<=p(x-1) THEN 1218 

xB=p (x) zxi=p1(x)x2=p2(x)zFOR yax-i 
To ı STEP -1 
pty+l)=pty)zpity+l)=plty)zpZ(y+i)=p2 
y) 


y 
IF xB>=p(y-1) THEN 1808 


piy)=xB:pi(y)=x1:p2(y)=x2:B0T0 1212 


NEXT y 

NEXT x 

FOR t=1_TO 18 

IF t=1 THEN pkt=38:6070 1930 


IF t=2 THEN pkt=25:6070 19358 

IF t=3 THEN pkt=28:6070 1958 
kt=19-t 

'RINT USING "##"st;PRINT"."2" "3:P 
RINT USING D\";#S(pl(t)) 5: PRIN 
T USING "\< 3prg#(#(pi(t),p2tt) 


})5:PRINT p(t)3SPC(11); PRINT USING 
"A" spktz 

IF pl(t)=1 THEN PRINT"<A><<<<<"ELS 
E PRINT 

pk(pi (tk) )=pkipitt))+pkt 

NEXT t 

IF pti)>hswiswg) THEN hswiswg)=p (1) 
ihawf (swg)=pi (1) chewt (sug)=# (pl (1), 
2(1))ihsfl=1:h2#(sng)=#8(p1(1)) 
OSUB SFBAB 

IF hsfl = 1 THEN GOSUB 7@@B:G0SUB 5 
9B0B 

cLs 

GOSUB 58508 

PRINT"Woche : "jwoche; "<14>Der aktu 
elle Stand im Softwarecup 
GOSUB 58588 

PRINT"Z4>Firma :<2@>Punkte ı" 
GOsUB 58508 

FOR t=1 TO 1® 
pott)=pk(t) pol (tI=t 

NEXT t 
a=10 
g=a-1:FOR x=a-1 TO 1 STEP -1 
d=9: FOR 

IF poty) 
#=y:s=poty):si=poi (y) zpoty)=poly+1) 
zpo1 (y)=poi (y+1) :po(y+1)=s:po1 (y+1) 
=s1 

NEXT y 

gef:IF #=@ THEN 1218 

NEXT x 


FOR t=1_ TO i@ 

PRINT USING" ##";t3 :PRINT". "3" “PR 
INT USING" \£27>\" 3; ##tpol (t)) ;: PRINT 
USING "##HB#"3po(t); 

IF pol(t)=1 THEN PRINT"<SILCECLCCE 
<"3ELSE PRINT 

NEXT t 

GOSUB SF2aB 

flag=1 

CLS 

knt=B: kntg=@: knt2=0: kntg2=@ 

GOSUB SBSd@ 


PRINT"Woche : "jwoche; "<1Q>Firma : 
"3: PRINT USING "\<192\"5## (flag) 
RINT "<3>Aktueller Kontostand : 
GOSUB @@ 

PRINT"In den TOP 18 haben sich folg 
ende Programme plaziert :" 
PRINT 

PRINT"<4>Titel :<2@>Menge :<8>Praem 
ie: winn =" 

sosuB 58580 

FOR t=1 TO 18:IF flag <> 1 THEN 132 
[} 

IF t=1 THEN kontatpitt))=konto(pitt 
V)+3BDDBB+(vK (pi (t) „p2(t) «(pr (pitt 
) ,p2(t))-29)):60T0 1320 

IF t=2 THEN konto(pi(t))=konto(pi(t 
))+2509Q@+ (vk(pi(t) ‚pZ(t))*(pr(piit 
),p2(t))-29)):60T0 1328 

IF t=3 THEN konto(pi(t))=konto(piit 
))+200BBR+ (vk(pi it) ‚„pZit))*(pr (piit 
) ,p2(k))-29)):60T0 1328 

konto (pi (t) )=konta (pi (t) )+((19-t) #1 
BOBRB)+(vkipiit) ‚p2tt))*(pr(pl(t) ,p2 
1)9-29)) 

IF pi(t)=flag THEN PRINT USING_"##" 
3t;zPRINT". "3zPRINT USING "\<2@>\" 
iprg&(# (pl (t) ‚p2(t)))5:PRINT "<5>' 
vktipit) ‚pZ(t})3:ELSE G0TO 1390 
IF t=1 THEN knt=380290:6070 1370 
IF t=2 THEN knt=252822:50T0 1378 
IF t=3 THEN knt=2808@8:60T0 137@ 
knt = (19-1)*10808 


ES61E1 
EFAEZI 
188023 
LA7ZEBI 
[51083 


LFiSEI 


135441 
tacBB] 
L29A61 
LAS721 
EB9723 
[85301 
CBFS43 
[73681 
CA4SA] 
LSAFE] 


CE9243 


189501 
L798C1 
CAF7BI 


LSAE4I 
EpDaB] 


LaA561 
11392] 
ESA14] 


L81D23 
LEDIG] 
E1SB43 
[E824] 
LATIEI 
CB9481 
LABsEI 
[8308] 
L35D8] 
[BES4] 
EDBF2] 


LFOF2] 
192841 
LF2C8] 
101741 
[5622] 


LABSB1 


[5648] 
CA3721 
LEBBAI 
EFBEB] 
184941 
LOs6AI 
C@B16] 


L712C1 
L651A] 


EDIBEI 
EBIE2] 


LFC76] 
toR1A] 


£C77A1 


[72E8] 


EDAF4] 


LDEEEI 


16586] 


CAFSCI 
L&FEA] 
LABF@I 
L20EAI 
L1ES61 


111 


— 


1378 
1388 
1385 
1387 
1388 
139@ 
1408 
1410 


1415 
1416 


1420 
1439 


1448 
1458 


1468 
1470 
| 1480 
1498 
\ 1495 


. 1508 
15180 
1520 


1530 
1549 


1558 
1568 
N 1570 


1598 
1590 


1608 
| 1618 


1628 
1638 
1648 


I 1650 
1668 
1661 
1662 
1663 
1665 


1670 
1675 


1688 
1685 
1687 
1690 
1708 
2995 
saaa 
3210 
3020 
3030 
3940 
3050 


3060 
3070 


Er=T] 
3090 


| sıaa 
| 3118 
3120 


3125 


BEENG SPC(9)3:PRINT USING “Hrkah"; 
kntz 

knt2 = vktpitt) ‚pZit)) * (pr(pitt), 
p2tt) > 28 Br 
PRINT SPC(11) 5: PRINT USING "#hhhhh" 
‚knt2 

kntgekntg+knt 

kntg2=kntg2+knt2 


«NEXT t 


PRINT SPC (44) 5 "— 


RINT SPC (54) 5: PRINT USING "Andi 
Makntorkntg2 

PRINT 

PRINT"Momentaner Kontostand : 
to(flag) 

LOCATE 1,20 
PRINT"L <2>1<3>: <3>Kontostaende 
anderer Firmen anz ts in" 
PRINT"LSPACEI<S2:<S>weiter im Spiel 
verlauf" 

PRINT+PRINT"<19>Bitte waehlen Sie e 
ine der Optionen ı [<321";CHRF(B);C 
HRS (B) HCHRE (8) 

af=INKEYSSIF as="" THEN 1468 

IF as=" " THEN 485 
GOSUR SaaoR 

G0TO 1258 

REM *%%* Werbung fuer eig 
me x* 

CLS 

GOSUB 58528 
PRINT"<25>Werbung fuer eigene Progr 
amme" 

GOSUR 58508 
PRINT"<4>Titel 


";kon 


e Program 


:<22>Werbesumme (max 


. 12808) dieser Woche :" 

GOSUB SB52D 

FOR TO 18 

PRINT"L"3t-13"] "32PRINT USING "\<c2 
B>\"zprg&(# (1,63); PRINT USING "##R 
HH" wsum(1,t) 

NEXT 

PRINT: PRINT" LSPACEISS>:<S>Rueckkehr 


zum Hauptmenue" 
LOCATE 1,24 
PRINT"<2@>Bitte waehlen Sie ein Pro 


gramm an : [<S21"3CHR$(8) ZCHRF(BI SC 
ARS(O): 
as=INKEY$:IF as="" THEN 1628 


IF a$=" " THEN RETURN 
IF VAL(a$)<® OR VALta#)>7 THEN 1628 


LOCATE 38,VAL(as)+6 
INPUT wsum(1,VAL(a$) +1): IF wsum(1,V 
AL (a$)+1)>1B002Q THEN wsum(1,VALta$) 
+1)=12088 

IF konto{1)<wsum(1,VAL(a$)+1) THEN 
wsum (1,VAL (a$)+1)=0:G60T0 1602 
konto (1)=konto(1)-wsum(1,VAL(a$)+1) 


FOR t=1_TO 1Ber1(t)=INT(RND(1)#25)+ 
1:NEXT t 

w(1,VAL (a$) +1) =INT (wsum (1,VAL(a$) +1 
3/ (4B0=r1(1))) 

FOR t=2 TO 18 

IF ‚kontott) <waumti,VALtas) +1) THEN 
169 

usum(t ‚VAL (a$) +1) =wsum(1,VAL(a8)+1) 


wit „VAL (a8) +1) =INT (naum(t VAL (as) +1 
)/ (ABB-r 1 (t))) 
kanto (t)=konto(t)-wsum(t,‚VAL(a$) +1) 


NEXT t 
50T0 1608 
REM *** Neuentwicklung eigener Prog 
cLS 
FE Re venemerı 

“ jeuentwicklung eig 
GüSUR 58590 
FOR t=2 TO 9 

SD" st "SZPICHIE <>" sprgs(#t 


PRINT: PRINT" LSPACEI<3>: <S>Rueckkehr 
zum Hauptmenue" 

LOCATE 1,24 

PRINT"<18>Bitte waehlen Sie ein Pro 
gramm an » [<321"3CHR$(8) HCHR$ (BI ;C 
HR& (8) 

ab=INKEYS: IF a$="" THEN 3108 

IF a$=" " THEN RETURN 

IF VAL(a$)<@ OR VAL(as)>9 THEN 3100 


IF ez(VAL(a$)+1)>@ THEN LOCATE 45,4 
+VAL(a$) : PRINT">Programm ist in’ E 


L1C521 
[BBA4J 
LC#9E1 
CE@281 
ECA4EI 
CBQB@] 
14438] 


116681 
[7@F@] 


[25061 
LFOFCI 


LES9C1 
LCSE@1 
C2B86] 
LABF4) 
[98923 
C2D141 
LZAIEI 
L686C] 
[99981 
CEE12] 


L36B81 
[EB161 


Ci1EAI 


TE21A] 
690321 


151961 
[2ESAI 


127823 
177841 


IF9841 
EDAECI 
TB6iCcı 
LC7181 
LSBERI 
LCAFEI 
LARA] 
172843 
LBES@I 


[1134] 
[7038] 


12838] 
t8D1AJ 
EFSCAI 
LCA241 
LCF86) 
CA21@) 
CDBAAI 
[17849 
[SE@C) 
CBODBI 
CE810) 
[QED&I 


LAZECI 
£C378] 


LBBFBI 
t21@C] 


L282C3 
c3DD81 
E3A121 


LFAFCI 


3138 
3142 
3158 


3168 
3178 


3188 
3198 


3208 
3210 
3215 


3220 
3230 


3248 
3258 
3255 


3260 
3270 


3288 


3298 
3308 
3318 
3320 
3338 
3348 
3358 
3368 
Z400 
3418 
4495 
4508 
4518 
4520 


4538 
4548 
4545 
4558 
4560 
4578 


4588 
4585 
4598 


4600 
4618 


4620 
4638 
4640 


4658 
4668 
4665 


4670 
4680 
4690 
4708 
4995 
sa00 
Er Ft] 
5220 
5230 
5235 
5240 
sa5a 
5960 
5970 


sos2 


5298 


sıa0 


sııo 
sı28 


ntwicklung !< t=1 TO 2B@G:NEXT 
t:50T0 sdad 

cLs 

SOSUB Sesa@ 
PRINT"<Z1>Neuentwicklung eigener Pr 
cogranme 

GÜSUB SE500 
PRINT" Titel ı 
’ 
PRINT"Momentane 
(1,VAL(a#)+1)) 
PRINT"Momentaner<4>Index ı "zindtft 
1,VAL(a$)+1)) 

GASUB 58520 


:FOR 


"zprgstf (1,VAL(as) +1) 


Qualitaet : "zprgif 


INPUT"Neue Qualitaet : "inqua 
IF_nqua<prg (# (1,VAL(a$)+1)) OR nqua 
>25 THEN s218 

PRINT"Neuer<4>Index 1<2>1" 


INPUT“Entwick 
"yonz 

IF ewz<i OR 
GOSUE 58590 
kostn=INT((11-ewz)*Cinqua-prg(ft 
ALtas)+1)))#1ODAOD) + (lti-indif 
VAL(a$)+1)))#100B0B) #(11-ewmz))) 
PRINT"Kosten : ";kostn 

IF konto(1)<kostn THEN PRINT "Entwi 
eklung wegen Geldmangel nicht mongl 
ich !":G0T0 3498 

PRINT"Programm in dieser Form entwi 
ckeln (j/n) ? : [<521"5CHR$ (8) ;CHRS 
(8) ACHRE (8) JCHR& (B) FOHRE (8) 3 
b$=INKEY$: IF b#="" THEN 3290 


ung: in Wochen : 


i 
ewz>1@ THEN 3230 


1,V 
y 


IF b$="n" THEN 3408 

IF b$<>"j" THEN 3298 
PRINT"OK! 

konto (1)=konto(1)-kostn 


ez (VAL (a$) +1) =ewz 
ng (VAL (a$) +1) 
kt (VAL (a$) +1)=kostn 

GOSUB SFaa2 

RETURN 

REM *** Preise neu festsetzen ##* 
CLS 

GOSUB 58502 

PRINT"<21>Preise der Fragramme neu 
#estsetzen" 
SOSUB 58508 
PRINT "<14>Titel 
SOSUB SESB@ 

FOR t=8 TO 9 
LOCATE 1, (t+1)+5 
PRINT"E "3 1<3> 
B "\C272\";prgstft 
(1,t+1) 

NEXT, 

PRINT 
PRINT"LSPACEI<SI:<3>Rueckkehr zum H 
auptmenue" 

LOCATE 1,24 

PRINT "<2@>Bitte waehlen Sie Progra 


:<21>Preis z" 


mm an : [<3>1";CHR$ (8) 5CHR$ (8) I CHR& 
(8): 

a$=INKEY$: IF a$="" THEN 4628 

IF a$=" " THEN RETURN 


IF VAL(a$)<@ OR VAL(a$)>F THEN 4620 


LOCATE 43,VALtas)+6 

INPUT pr (1,VAL(a$) +1) 

IF pr (1,VAL(a$)+1)<27 OR pri1,VAL(a 
$)+1)>69 _THEN 4658 

FOR t=2 TO 9 

pr it ,VALta$)+1)=pr (1,VALtas) +1) 
NEXT t 


60TO 4408 
REM #*#* Statistik #0 
CLS 


SOSUB Sasan 
PRINT" Statistik" 
SosUn SB800 

PRINT: PRINT 
PRINT"Untermenue 
PRINT 
PRINT 
PRINT" LSZD1<2IIC2>: 
amtverkaeufe anderer 
a" 
PRINTILSZPZSZPNK2> 
antverkaeufe aller 
ane 


Statistik : 


Bisherige Ges 
irmen anzeige 


Bisherige Ges 
ragramme anzeig 


PRINT"L<233<231%2: <2>Programmverte 
ilung auf die verschiedenen Firmen 
anzeigen" 


PRINT" L<2>4<2>1<2>:£2>In der Neuent 
wicklung Berfaattehe rogramme anze 
igen" 

PRINT"L<2>5<2>1<2 
aller Firmen anze 
PRINT"L<2>6<21<22: 


»<2>Kontostaende 


n 
2>Aktuellen Sta 


12yww.HOMscomPUTE 


L&F921 
[1292] 
LE7141 


tCBAQI 
£5D183 


12984] 
11246] 


1926C1 
[OBBE] 
L9EF6I 


£D77C) 
EFSFAJ 


L7oF8] 
E11D@] 
[E18] 


ECa4AI 
[8828] 


154341 


E21B6] 
[D1Q41 
LDABBI 
[82021 
EDCEBI 
[93881 
[3184] 
EDS44] 
174343 
LE6BAI 
LE3983 
[C&E21 
L1AFa1 
[61183 


L5B78] 
LEBICI 
C6BEEJ 
TEC281 
E2DE4] 
18244] 


L2ACBI 
EF6601 
[D9B6&] 


L3F7A] 
tecaA] 


C&B12] 
ESDF8] 
[3B221 


L8B1CI 
L97E8] 
LAF8A] 


cASC21 
ECCEEI 
L2E78) 
EDBBCI 
L6Bicı 
LEDF&1 
[298E] 
LEC1B] 
[8238] 
[6214] 
[5B823 
L1038] 
LOES2] 
LASFO] 


159481 


C143C] 


LA7221 


192541 
LEER 


2 


nd im Softwarecı anzeigen" [9874] 5848 PRINT IDFFCI 
5138 PRINT" LSPACEI<2>:<Z>Rueckkehr zum H 5858 FÜR t=2 TO 9 L2EECI 
auptmenue" tacesı | 5868 PRINT "IS2>";t3 "<2>1c3H: £3>";FSCt+1 
5142 LOCATE 28,24 L4ESCI > tADS42 
5158 PRINT"Bitte waehlen Sie eine der Op 5878 NEXT t [B9BE1 
tionen : L[ "3 CHR$ (8) 3; CHR$ (8) 5sCHR 5888 PRINT [A424] 
58); 123341 <Z>Rueckkehr zum 
516@ a$=INKEY$: IF a$="" THEN 5168 ESDF81 Untermenue Statistik" [D2DAI 
5178 IF as=" " THEN RETURN [3E221 5728 LOCATE 20,24 [56741 
5188 IF VAL(a$)<1 OR VAL(a$)>& THEN 5168 5918 PRINT"Bitte waehlen Sie ein Program 
Lagıs3 man : [£<3>2":CHR$ (8) 5; CHR$ (8) s CHRSC 
5190 ON VALtas) GOSUB 5288,55290,5800,61@ 8; 188921 
0,5420,5782 : G0TO 5208 LB9AAI 5928 a$=INKEY: F a$="" THEN 5928 £12083 
5199 REM ** Gesamtverkaeufe / Firmen anz 5738 IF a$=" " THEN RETURN 1522AJ 
eigen ** ıpcgsı | 5722 IF VALtası<B OR VAL(a$)>9 THEN 5928 
5202 CLS [21921 [D12C3 
521@ GOSUB 58588 IF@143 5758 ELS T26AAI 
5228 FRINT"Woche : ";wochez; "<14>Statisti 5762 GOSUB 58522 TEF2CI 
k<2 <3>Gesamtverkaeufe / Firmen" 5978 PRINT"<S>Statistik<2>==><3>Programm 
ee tasazı verteilung<s>/<33 FEVAL (a 
5250 GOSUR 58508 TEA18J $)+1) 198161 
5240 PRINT"<4>Firma :£28>Gesantverkauf b 57890 GOSUB 58588 169383 
is jetzt tııcsı | 577@ PRINT"Titel :<2@>Qualitaet :<14>Ver 
5250 GOSUB Sasa® escicl kauf bis jetzt :” cgEBA] 
5255 FOR t=1 TO 1@ : gksumtt)=@ : NEXT t &220 GOSUB 58508 [F4101 
5 t987Cı | s21@ FOR t-ı TO 18 199281 
5240 FOR t=1 TO 18 [&334] | 02@ PRINT USING "\<27>\"sprg#(f (VAL (as) 
5278 FOR ti=1 TO 18 1C798] +1,t));:PRINT USING "##.##" sprg(# (V 
5280 gksum (t)=gksum(t)+gvkit,ti) [461AJ AL ta$)+1,t));:PRINT "<22>";:PRINT U 
5292 NEXT ti LEDEBI SING "Haha" s;gvk (VAL (as)+1,t) L[BF28]2 
5308 gkflag(t)=t [7694] sa3Q NEXT t [BD78] 
531@ NEXT £ [B9783 | 4242 GOSUB S9BaB [59109 
5320 asia t9np21 | &25@ RETURN 123961 
5330 g=a-1:FOR x=a-1 TO 1 STEP -1 LiBE21 6877 REM ** Neuentwicklungen anzeigen #*#* 
5340 d=B:FOR y=-1 TO gq [&B5E] L48F61 
5358 IF gksum (y) >=gksum(y+1) THEN 5378 T1A26] 6188 CLS 13492] 
5368 f=y:s=gksum(y):si=gkflag(y) :gksum(y 6112 GOSUB 58528 LEF141 
)=gksum(y+1)zgkflag(y)=gkflagiy+1): 612@ PRINT“Woche : ";woche; "<14>Statisti 
aksum(y+l)=s:gkflag(y+1)=si teDICI k<2>==><3>Neuentwicklüngen L94F@J 
5370 NEXT y TB6BE) | 6138 iB 58508 EF518] 
538@ g=fıIF #=@ THEN 5420 t7epeı | 6132 PRINT"Titel :<19>Wochen :<B>n.Qual. 
5398 NEXT x [82981 :<9>Kosten :" L24B81 
5498 FOR t=1 TO 18 159201 6134 GOSUB 58588 £5D2@1 
541® PRINT USING "##"s3t3:PRINT"”. "3:PRIN 6148 FOR t=1 TO 18 [6830] 
T USING "\CAS>\";f&tgkflag(t))5;:PRI &15® IF ezit) > 8 THEN PRINT USING "\<26 
NT USING "HR" gksum (kt); 13868] 2\"zprg$(# (1,t)); PRINT USING "HR"; 
5420 IF gkflag(t)=1 THEN PRINT "La><<<<< ez tt) 3:PRINT"<14>";:PRINT USING "## 
<<eI<"sELSE PRINT £C482] „##" ng tt); :PRINT"<11>"5 PRINT USIN 
5438 NEXT t ECD7EI kt) LC19C1 
5440 GOSUB SFaa8 [F@16) | 616@ NEXT t [66881 
5458 RETURN IcB7C) | 6172 GOSUB SsaRa [5A18] 
5499 REM ** Gesamtverkaeufe / Programme 6188 RETURN LABIEI 
anzeigen ** tas2@1 | 6399 REM #* Kontostaende aller Firmen an 
sson CLS tas781 zeigen ** L67F01 
5505 z=@ tesacı | saBR CLs 140981 
5518 GOSUR 58508 tEZIA) | #418 GOSUB 58508 [751A] 
5528 PRINT"Woche : "zwoche; "<12>Statisti 642® FRINT"Woche : ";woche; "<17>Statisti 
k<2>==><3>Besamtverkaeufe / Program >==><3>Kontostaende" Li1E4B] 
= euren | EB Rn ehem eczancamtantund ı: [EsBE} 
5530 GOSUB 58528 teciEl "<4>Firma :£24>Kontostand :" [ 2 
5540 grenze = 250@*uoche tscra) | 2458 GOSUB SBSBB [ER22] 
5350 FOR t=ı TO 18 18238] 6468 FOR t=1 TO 18 EAsSA1 
5540 FOR ti=1 TO 18 tDascı | 8478 kott)=konto(t):koitt)=t LOFF@I 
5570 IF gvkit,ti)>grenze THEN z=z+1:gv(z 6480 NEXT t EDBBAI 
)=gvk (t,Eil)egviiz)stigv2tz)=ti La6F41 6490 a=1B8 TAGEA] 
5580 NEXT t1 [seec3 6588 g=a-1:FOR x=a-1 TO 1 STEP -1 L41E23 
3598 NEXT t Ipascı | &51@ d=2:FOR y-1 TO g TOASEI 
SEBQ a=2:gv (B) =100R2208 Icep2ı | #52@ IF koty)>=katy+i) THEN 6548 IDCF21 
5618 FOR x=2 TO a Larscı | 8538 f=y:s=koty)zsi=kolty)ikoty)=koty+l) 
5620 IF gvix)<=gv(x-1) THEN 5678 [72883 alty)=kal(yti)zkoty+1)=s:kolty+1) 
5630 xB=gv (x) ıxi=gvi (x)2x2=gv2(x):FOR y- 1 tiBAcı 
x-1 TO 1 STEP 1 [56481 6548 NEXT y LCBBEI 
5642 gv(y+l)=gyiy)igvity+l)=gvity)igvziy 6558 g=f:IF f=2 THEN 6578 [DIEEI 
+1)=gv2t(y) LC9BCI 6568 NEXT x [D29@1 
5650 IF x@>=gviy-1) THEN 5640 [B4BE) 65378 FOR t=1 TD 18 I833E) 
5655 gviy)=xB:gviiy)=xi:gv2(y)=x2:6070 5 6588 PRINT USING "##";t;:PRINT 
&78 [C458] NT USING "\<3@>\"z#$(kol lt) 
5660 NEXT y CABFZ1 USING "Hansi" ;kolt)s L3FF2I 
5678 NEXT x [BF92] 659@ IF koltt)=1 THEN PRINT DILLLLLES 
5672 PRINT"<4>Firma :<15>Titel :<16>Anza <<"zELSE PRINT LAC92] 
Hl: [DBB4] 6688 NEXT t LASFEI 
5673 GOSUB 58588 TEBZEI 612 SOSUB S7B22 158163 
5674 FOR t=1 TO 18 LEBS6] 6620 RETURN ECR9C9 
5675 PRINT USING "#t"zt 8697 REM ** Aktuellen Stand im Softwarec 
RINT USING "\<2@>\ up anzeigen ** LF4863 
NT USING "\<22>\";prg$tftgvitt) „gv2 s7a@ CLS [349E1 
(t))) PRINT USING "#läl";gvit); LESBBI 6718 EOSUB 58522 ehlsznl 
5677 IF gvitt)=1 THEN PRINT "<SSILi<ecci< 6728 PRINT"Woche : ";woche; "<13>Statisti 
<= 2 ELSE PRINT L4CAAJ k<Z>= <3>Stand des Softwarecups" 194883 
S6B@ NEXT t repecı | #732 sOsus 58502 120241 
5685 G0OSUB 5908 TES2CI 6748 PRINT"<4A>Firma :<2B>Punkte :"” Ti1DBBj 
5692 RETURN [C1ABI 6758 GOSUB 58588 t1F28] 
5799 REM ** Programmverteilung anzeigen 6768 FOR t=1 TO ı8 A648] 
** LEscAI | 778 PRINT USING"##";t; :PRINT".";" 
ssan cLs [99981 INT USING”\<27>\":f$(po1tt)) 
5812 GOSUB 58588 [BC28] USING "###R#";pott); T656E1 
58280 PRINT"<22>Statistik<2>==>X3>Program 6788 IF poitt)=1 THEN PRINT"SSIC<LLLÄLES 
mverteilung = [DEAa1 2 € 
5832 GOSUB 58580 162241 Listing 2. Erobern Sie den Software-Markt (Fortsetzung) 
PAARRYG 
San EENER 113 


‚HOMECSO 


6790 
Ei: 7} 
6818 
6998 
7200 
7010 
7028 


7030 
7032 
7035 


7048 
7058 
7068 


7070 
7a88 
7090 


7ıaa 
7110 
7120 


7997 
7998 
7999 


soon 
saıa 
Ba28 


8932 
saa0 


sasa 
8060 


8070 


8as8 
8290 
sıaa 
8185 
8107 
8118 
8120 
8138 
8132 
8134 
8140 
8158 
8210 
8220 
8222 
8224 
8230 
8240 
8250 
8268 
8270 
8288 
8298 
8295 
8390 
8999 


aan 
9018 
9220 


9038 
9040 


9959 
7asQ 


9878 


080 
9098 
9108 
9185 
9107 
11m 


<"zELSE PRINT 
NEXT t 

SOSUB SFaB8 

RETURN 

REM #** Highscores anzeigen #** 
ELS 

GOSUB 58508 
PRINT"<1S>HIGHSCORES<16>Schwierigke 
itsgrad : ";swg-i 

GOSÜB 58508 

IF chefi21 THEN sg=sng: G0TO, 7848 
LOCATE 68,2: INPUT sg:sg=sg+1:IF sg< 


1 OR sg>8 THEN 7035 
ERINTFRINT" 1. woechentlicher Absa 
ze“ 

PRINT"--— 


RRINTFirma 3 PR IPRINT USING 
";h2$ (sg) ;: PR. 2> 
<17>\"zprg& (hswt (sg)) 


NT USING 
RINT"<2>Menge : "jhaw(sg) 
PRINT:PRINT" 2. woechentlicher Absa 
tz einer Firma : 

PRINT" 


PRINT"Firma : "}:PRINT USING "\<29> 
\";hiftsg);:PRINT"<2>Menge : ";hs#t 


sg) 
PÄINTZPRINT" 3. Gesamtpunktzahl ein 


GOSUB 5900@ : RETURN 

REM *#* Spielstand auf Diskette abs 
peichern x#* 

ELS 

GOSUB 58508 

PRINT"<21>S5pielstand auf Diskette a 


bspeichern" 

GOSUB 58588 

PRINT:PRINT"Bisher existieren folge 
nde 'SDFT - CHEF’ - Files : 
IDIR,"sc-*.dat" 


PRINT: 
1 das neue 
INPUT filesıfiles=LEFT$(files,S):fi 
les=files+",dat" 
filenames="sc-"+iles 

OPENDUT filenames 

WRITE #9 ‚noche 

WRITE #9,48C1) 

WRITE #9, 509 

FOR t=1 10 i@ 

FOR ti=1 TO 10 

WRITE #9,#(t,t1) 

WRITE #9,gvkit,t1) 

WRLTE #9,pr (t,E1) 

NEXT t1 

NEXT t 

FOR t=1 TO 18 

WRITE #982 (t) 

WRITE #9 ng (t) 

WRITE #9,ktt) 

WRITE #9, pk(t) 

WRITE #9, kontott) 

NEXT t 

FOR t=1_TO 188 

WRITE #9 ,ind(t) 

WRITE #9, prg(t) 

NEXT € 

CLOSEDUT 

RETURN 

REM *%%* Laden des Spielstands von D 
iskette #x* 

CLS 

GOSUB Se5a@ 

PRINT"<23>Laden des Spielstands von 
Diskette 

GOSUB SBSaB 
PRINT=PRINT"Folgende "SOFT - CHEF’ 
- Files existieren auf dieser Diske 
tte : 
PRINT: IDIR,"sc-*. dat" 
PRINT:PRINT:PRINT"Name des Files, d 
as geladen werden soll (ohne 'sc-"! 
HR Re 

INPUT file$:files=LEFT$(files, fi 
les=files+".dat" 
filename$="sc-"+files 

OPENIN filenames 

INPUT#9 ‚woche 

INPUT#F7 ,#$t13 

INPUT #9,wg 

FOR t=1 To i8 


RINT:PRINT"Welchen Namen sol 
File erhalten (ohne "sc- 


LABSEI 
LEEI2J 
12D181 
TSB9EI 
18878) 
12392] 
IrZ141 


[3A283 
LEC18J 
LSFD6I 


LEBEAI 
L73AAJ 
109781 


128863 
[BB361 
L9BCCI 


L3F48] 
E9DDCI 
EFSEBSI 


CB82AJ 
[C1341 
CA&F2] 


ECB&C9 
124943 
[D3163 


LC79E3 
tE91A] 


[6E18] 
14798] 


LC22C3 


CAB78] 
[73981 
14748] 
L4C64] 
LSBSA] 
L6BEBI 
[SFZEI 
£C4923 
149363 
[9DFEI 
LACS6] 
CCDE2I 
[80823 
[98381 
[EF86] 
[14841 
[258E) 
128801 
C5D221 
[07841 
L9B9A] 
[BA4B] 
[CB661 
£B78C) 
LSACCI 
L9A96I 


LFBFAI 
[3596] 
EF@18] 


LBBACI 
EF&iC] 


cS18AJ 
TCD28] 


179261 


£1172] 
[40923 
L6ASBI 
[D&38] 
15226] 
LEEF4] 
LIAS@I 


3128 
91358 
9132 
9134 
9148 
9158 
9218 
9228 
9222 
9224 
9238 
9248 
7258 
9268 
9278 
9288 
9290 
9295 
9308 
9995 
12228 
10018 
18820 


10838 


10040 
10858 


10868 


10978 


12080 


12898 
12182 


10118 


18128 


1901380 


18135 
18148 


19145 


12158 


18155 
12168 
198178 
12188 
18198 


10208 


18218 


190228 


18238 


19248 


19258 


19268 
18270 


18288 
18298 


123928 
18318 


183280 
18338 
190548 


18358 
19355 
18368 
56990 


Erd 
57805 
57218 
57228 


57838 
57838 


FOR ti=1 TO 18 

INPUT #9,#(t,t1) 

INPUT #9,gvk lt ,t1) 

INPUT #9, pr (t,t1) 

NEXT t1 

NEXT € 

FOR t=1 TO 18 

INPUT #9,ez (t) 

INPUT #9 ,nq(t) 

INPUT #9,kt(t) 

INPUT #9,pk(t) 

INPUT #9,konto(t) 

NEXT € 

FOR t=1_TO 108 

INPUT #9,ind(t) 

INPUT #9,prg(t) 

NEXT t 

CLOSEIN 

RETURN 

REM ##* Schlussuebersicht aus 
GOSUB 58508 
PRINT"Woche : 
uebersich 
SOSUB 58588 

PRINT: PRINT 

PRINT"Herzlichen Glueckwunsch ! Si 
e haben ein Jahr lang als Manager 
einer Soft: 
PRINT:PRINT"firma durchgehalten. Z 
um Abschluss werden Sie nun die En 
dstaende einiger Sta 
PRINT:PRINT"tistiken en. Danach 
erhalten Sie fuer ihre Arbeit Pun 
kte, je nachdem wie gut" 
PRINT:PRINT"oder wie schlecht Sie 
jearbeitet haben." 
OSUB 59808 

GOSUB 5208 

SOSUB 6408 

SOSUB 6788 

FOR t=1 TO 19 : IF 
N puti=tii-e)si@+IN 
NEXT t 

FOR t=1 TO 1@ : IF kolft)=1 THEN p 
ut2=(11-t)*1Q+INT (ko (t) /1Q0020) 
NEXT € 

FOR t=1 TO 18 : IF pal(t)=1 THEN p 
uts=(11-t)#1Q+INT (po(t)/10) 

NEXT € 

gput=put irput2+puts 


GOSUB 58598 
PRINT SPC (32); "Schlussabrechnung" 

GOSUB 58588 

RINT 

ie erhalten folgende Punktz 
ahlen fuer Ihre Angstrengungen :" 

PRINT:PRINT"Punkte fuer das 
Ihrer Pro: 


"woche; "<29>Schluss 


kflag(t)=1 THE 
(gksum (t) 71208 


ellen Kontostand .., 
."zput2 


INT:PRINT"Punkte fuer Ihr Abschn 


2. "zgput 
PRINT:GOSUB 58588 
PRINT+PRINT"Highscore fuer Gesamtp 
unktzahl : 

PRINTAPRINT"Firma : ";h3$(swg) ;SPC 
(28) ; "Punkte : "jhsp (swg) 

IF gput>hsp (swg) THEN PRINTAPRINT" 
Sie haben einen neuen Highscore er 
reicht !“ıhsp (sng)=gputih3$ (sug)=f 
*(1):G0SUB 59800 


GOSUB 59908 
CcLS 

LOCATE 28,12:PRINT"Wollen Sie noch 
„einmal spielen 


tj/n) 2 "3zINPUT a 


REM *** Neuentwicklungen der ander 
en Firmen *** 


g2=flag2+2: IF flag2=1Q THEN fla 
g3=1@:#1ag4=2:flag2=1:5070 57040 
IF flag2-9 THEN flag3=9: flag4=1B: f 
1ag2=2:60T0 57248 
flag3=flag2:flag4=flags+1 

GOSUB 58588 


EA494) 
[85421 
EcABAI 
LCA42] 
L2EE41 
EC6841 
[SE32] 
E1192] 
CFA96] 
[5B94] 
L7ABCI 
[8S2E1 
L8B86) 
E7D9C1 
[06541 
C9F721 
EDBBEI 
c71@C1 
CC898] 
L91A6] 
CBZE6] 
[8666] 


LAAGEI 
LA1sCI 
c81D23 


CBODEI 


LAB9A1 


EBS2EI 


L9DEE] 
[6470] 
C6CF23 
ESDFA] 
[3002] 


[6524] 
L45DA] 


L992C3 
[31DC1 


ED1C41 
ESDDEI 
[1918] 
CBSF6] 
[6678] 
CB1CA]I 
L4E6A1 
CD&DRI 


159098] 


L13841 


L64BC) 


LFE9O] 
L190A3 


C3CD8] 
103881 


LOBBCI 
[SF3A] 


[97741 
[A768] 
LASF2] 


[2850] 
CBFSB3 
[2202] 
EDBE2I 


LF&DBI 
CBBFCI 
L&BBA] 


L2CF43 
L64DAJ 


LAFC&I 
[A784] 


1 14 ww ‚HOMESOMP 


PRINT"<27>Neuentwicklungen dieser 
Woche 
GOSUB 58598 

IF flag6=1 THEN BOSUB 57780:6010 5 


7358 
stflags) 


PRINT"Firma_: 
FOR t=1 TO 18 
intt)=ind(fiflag3,t))sin2tt)=t 
NEXT t 

a=10 

FOR x=2 TO a 

IF inix)>=in(x-1) THEN 57198 
xB=in(x):xZein2(x)sFOR yax-i TO 1 
STEP -1 
in(y+1)=in ty) zinzty+1)=in2ty) 

IF x@=in(y-1) THEN 57188 
in(y)=xB:in2(y)=x2:6070 57190 
NEXT y 

NEXT x 
PRINT"Titel : 
PR) 

IF prg(#(#lagS,in2(1))) <= 18 THEN 
stg=i@ : 5010 57250 

IF pratftlags,inZ(19)) <= 15 THEN 
stg= 8 : 6010 57258 

IF prg(f (flagS,in2(1))) <= 2@ THEN 
stg= 5 : 6010 5725@ 
stoe2spr alt (Flags inzehhn) 
mstg=INT (konto (#1ag3) /100000) 

IF mstg>=stg THEN wstg=stg:GDTO 57 
280 

wstg=nstg 

Pprg(# (flag3,in2(1)))=prgt# (flagS,i 
n2(1)))+wstg 

PRINT"Qualitaet der Neuentwicklung 
3 "sprg(f (flag3,in2(1))) 

kosten = INT (wstg*i1Q@2@8 + ((1-int 
1)) *102208) ) 

IF kosten > konta(flagS) THEN PRIN 
T:PRINT"Neuentwicklung wegen Geldm 
angel nicht beendet :":6010 57348 
PRINT"Kosten der Neuentwicklung<4> 
ı ";kosten 

konto tflag5)=konto(flagS)-kosten:P 


"prg&(# (flag3,in2ti 


RINT"Momentaner Kontostand : ";kan 
to(flags) 

ind(f (#lagS,in2(1))) = 1 

IF #lagS=® THEN flag3=flag4 :flagS 


=1:60SÜB 58580: 6010 57978 


SOSUB 57B20 

CLS 

RETURN 

PRINT"Firma z ";#$#(1) 
PRINT"Titel sprg$(# (i,ng)) 
PRINT"Neue Qualitaet = "inq(wg)ipr 
gt# (1,ng) )=ng (ng) 

indt# {i,ng))=1 

PRINT"Kosten : "kt ing) 

+lag 

RETURN 

REM *** Firmen anwaehlen *** 
CLS 

FOR t=2_TO 1@ 

LOCATE 28, (t-19#2+1 


PRINT"L "zt-15" 1<32:<32";#&(t)2PR 
INT 


NEXT 

LOCATE 1,24:PRINT"<2@>Bitte w. 
n Sie eine der Firmen : [<3>1 
$ (8) ;CHR$ (8) ; CHR$ (8) ; 
as=INKEY$: IF af="" THEN 58068 
IF VAL(as)<1 OR VAL(a#)>9 THEN 588 
so 

#lag=VAL (as) +1 

RETURN 

REM *** unterstreichen ##* 

FOR t=1 TO 8@:PRINT CHR$(154);:NEX 


TE 

RETURN 

REM ###* auf SPACE warten ##* 
LOCATE 31,24:PRINT"< SPACE druecke 


le 
CHR 


no" 
ASSINKEYS: IF as="" THEN 59010 
IF a$=" " THEN RETURN 

GOTO S9a1a 


REM *** Wahl des Schwierigkeitsgra 
ds »** 

CLs 

LOCATE 1,8 

PRINT "Welchen Schwierigkeitsgrad 
(8-7 ) wuenschen Sie : "; 
a$=INKEYS: IF as="" THEN 59530 

IE vaL(as)<a OR VvaL(a2)>7 THEN 595 
Swg=VAL (a$) +1:ug=2B-1.Srsmg: og=ug+ 
1a 

RETURN 

REM »#* Highscores einlesen «#* 
OPENIN "softchef.hsc" 


LA7081 
19188] 


LF87A] 
CIFBBI 
[BFA2] 
LOCCEI 
[S8E@1 
L7C3A] 
L1BA2) 
[9SBAI 


Li6ABI 
[92EC] 
EB2CCI 
LSC6E) 
L62FAI 
CBEFAI 


ESC3EI 
L66DC3 
157D61 


L11CAI 
[02201 
CB7E@J 


LAASEI 
LEACAI 


LAsFAI 
LDar4] 
183161 


EF19CI 
LSCBAI 


L892C3 
192383 


CAEBCI 
157843 
[B7161 
EDDBAI 
168481 
C@BCCI 


L247E1 
£C438] 
LES72] 
LS59CAI 
CE1121 
E3F44] 
TBAFEI 
LEE9A] 
L64cAl 


CB880] 
CCDC®] 


LFE7CI 
[7504] 


L17F8] 
14A221 
C180C) 
C49BA] 


CSDE2] 
[E706) 
L6EDB] 


126921 
EDDC41 
C7D88] 
TiBF2) 


18892) 
[62@A] 
CA5221 


LAF141 
[67E83 


LEBFEI 


L71E21 
CBF121 
[3383 
[B9281 


60048 


62050 


6068 


60070 


suasa 


60098 


60108 


62118 


60120 


62138 


60140 


68152 


60160 


60178 


68188 


60198 


60208 


Listing 2. Erobern Sie den Software-Markt (Schluß) 


FOR t=1 TO 8 

INPUT #7,hsf (t) 
INPUT #7 ,hsf#f (t) 
INPUT #9,hswtt) 
INPUT #9 ,hswf (t) 
INPUT #9,hswt (t) 
INPUT #9,h1$(t) 
INPUT #9,h2$(t) 
INPUT #9,hsp (t) 
INPUT #9,h3$(t) 
NEXT t 
CLOSEIN 
RETURN 
REM wa 


OPENOUT 
FOR t=1 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 

WRITE 
WRITE 
WRITE 
WRITE 

NEXT t 
CLOSEOUT+ as="softchef.bak": JERA,aa 
RETURN 

DATA Eddivision,Antirock ‚Bruderbun 
d,Datahard,Electronie Cars,Elise,E 
s2ix Sydney House,Sublogik 

DATA'A vien to a Bill,14.25,Alcatr 
az,16.5,Arschon,28.25,Arschon I1,1 
4,Baliblaeser ‚17.25 

DÄTA Volleyball,15.25,Strand Kopf 

13,Strand Kopf II,14,Blauer Max,13 
.23,Shoulder Crash ,18.75 

DATA Shaulder Crash 11,18.75,Bruce 
Klee,17.25,Bac Rogers, 18-5, Burger 
queen, 18.75, Burning Schrubber ‚12.7 


DATA Chip - Laster ‚7.75,Willi’s Tu 

erme,8.5,Krystle’s Castles,17,E1fk 

ampf ‚17.25,Dick & Doof,13.75 

DATA Diner@ Eogs, 15. 75,Exploding M 
t,15.75,Exploding Mist 11,16.75, 

Leiter"Filot,16.25,Flapp and Fiopp 

‚18. 

DATA Foodball Manager ‚28, Trostbust 

ers, 17,Brundmaster ‚13,Gratrenner ‚9 

.25,6yros,9.25 

DATA Nero, 13.75,Hessengames,15.5,H 

oechste Zeit ,8.3,Hunchcrack,7.5,Ba 

stier 64,7.75 

DATA Imbössible Mission,23.5,Int. 

Dennis, 13 ,Jumpwoman, 15,Keiser ‚19.2 

5,Keramika,19.75 

DATA Frankfurt Approach,17.5,Kikst 

op,19,Bloeder Runner ‚16.5,Master_o 

# the’Champs,21.25,Matsch Point 28 


DATA Rotor Mania,19.25,Mrs. Robot, 
19.5,Coal 's Well ,19, In-Fort-Tennis 
„21, Three-on-Three, 19.5 

BATÄ Ffeifenlinie,28,Pitstart,18.7 
5,Pitstart 11,25,C0al Position,1#. 
5}Poster Zaster ‚16.75 
DÄTA W-Bert,10.75,Rest for 
7.25,Heptan,9,Mutant Lords 
r Raid, 7.25 

DATA Globotron,7.25,Strampel ‚5,Ter 
pentin, 12.5, Primus, 12, Ski Welteiub 
DATA Hellfox ,18.25,Schlappschwanz , 
12.5,Schlumpf 11,7,Smokie,19.25,Fo 
ker 11,16.5 

DATA Föker III,16,Spass Pilot,14.7 
5,Spass Taxi ,21.75,5pei & Spel,id. 
5/Star Dreck,i1 

DÄTA Bella 7,20.5,Strip Skat,18.75 
„Sublogik Light 11,21.5,Sommer Bam 
25,21.75,Sommer Games 11,23.75 
DATA Superstrampel ‚8.25,Super Hexe 
n,14,Ferrori 6.5, The Denver Quest, 
18.25, Tragik,19.7: 

DATA Tran,&,Turbo Diesel 64,16,Ab‘ 
n Daun, 18.73,Barlok,18.75,Kissensc 
hlacht,& 

DATA Winter Shames,23.75,Blizzard, 
14.5,Blizzard of Wor,10,9aga,15,Br 
uchbuüde 12.75 

DATA Hexen,13.75,Seppei ‚15.5,Kodia 
e,18.5,Bone Six,2.5,Facing destr. 
Set 22.5 


Highscores abspeichern #** 


"softchef.hsc" 
To 8 

#9 ,hsf (t) 
#9,hsff it) 
#9 ,haw(t) 
#7,hawf (t) 
#9 ,hawt (t) 
#7,h1$(t) 
#9,n28 (t) 
#7,hsp (t) 
#9,h3& (t) 


ires,i 
Shive 


177541 
LAECAI 
[44983 
TE9FO] 
[32BE] 
E7EDCI 
ECFCEI 
[19041 
L6BF2] 
CDBDE] 
L&@FE] 
166741 
tasıc) 


cacacı 
L6FE4] 
[7856] 
12302) 
L5B90] 
EBEEB] 
L2DB&] 
[2904] 
LDSC6] 
tD2CC1 
LO9EA] 
C1CD6] 
[6E0R] 


carı29 
EBCIEI 
LE9SCI 
12C6C1 


LFE2CI 


t&BD@] 


1797C] 


[seco 
LBE@CI 
[84ER] 


CDF48] 


L6CAC9 
E2EDAI 
651603 
L9CBEI 
LF650] 
EFC9EI 
194181 
[de1e2 7] 
[6602] 
L969C1 
L4E98] 


L83A21 


HOMESCMPUTERWORLD.CON 


115 


zz 


Locomotives 
Basic-Spezialitäten 


Eine Besonderheit des Betriebs- 
systems Ihres Schneider CPC ist 
die Verwaltung von Interrupts. 
Doch die meisten Besitzer wis- 
sen nicht so recht, was man mit 
der Interruptsteuerung über- 
haupt anfangen kann. Hier erfah- 
ren Sie alles über die Program- 
mierung von Interrupts im Loco- 
motive-Basic. 


as sind eigentlich Interrupts? 
Kaum ein Schlagwort in der 
Programmierszene ruft so- 


viel Faszination bei gleichzeitiger Un- 
wissenheit hervor. Dabei ist eigentlich 
alles ganz einfach. 

Die inneren Arbeitsvorgänge in einem 
Computer sehen normalerweise so 
aus: Das Gerät hat ein festes Pro- 
gramm, das die CPU (beim Schneider 
CPC der Z80) unablässig abarbeitet. 
Der Mikroprozessor holt sich ständig 
einen Befehl nach dem anderen aus 
dem Speicher und bearbeitet ihn. Kein 
äußeres Ereignis kann den Computer 
erschüttern oder ihn gar von seiner 
Arbeit abhalten. Dem Benutzer ist es 
höchstens vorbehalten, die Maschine 
abzuschalten, um diese kontinuierliche 
Arbeit zu stoppen. Was passiert nun 
aber, wenn der Benutzer beispiels- 
weise einen Reset auslöst, etwa beim 
Schneider CPC mit den Tasten <CTRL 
+ SHIFT + ESC>? Wie Sie sicher wis- 
sen, unterbricht der Computer ja in die- 
sem Fall die Bearbeitung des gerade 
laufenden Programms und setzt alle 
Software-Einheiten und Hardware- 
Bausteine zurück. Er verhält sich so, als 
ob die Stromversorgung gerade einge- 
schaltet wurde. Scheinbar gibt es also 
doch einen Weg, den Computer von 
seiner Arbeit abzuhalten. Und damit 
sind wir bei dem Thema »Interrupt« - zu 
Deutsch »Unterbrechung« angelangt. 

Ein Reset-Schalter (den Ihr Schnei- 
der übrigens normalerweise nicht be- 
sitzt) löst fast immer einen Hardware- 
Interrupt aus. In diesem Fall weiß der 
Computer von der potentiellen, Mög- 
lichkeit eines Interrupts so lange nichts, 
bis dieser tatsächlich auftritt. Dann wer- 
den zwei Leitungen des Mikroprozes- 
sors zusammengeschaltet, worauf die 
Hardware-Logik den Computer zurück- 
setzt. Beim Z80 muß dazu Pin 41 
(RESET) auf Masse (Pin 2 oder 49) 


gelegt werden. Dies ist die Urform des 
Interrupts. 

Eine Abwandlung dieser Form, die 
auch der Schneider benutzt, ist das 
sogenannte »Polling«. Hier weiß das 
Betriebssystem schon vorher, daß ein 
Interrupt auftreten darf. Deshalb muß 
dieser nicht mehr den Prozessor voll- 
ständig anhalten, sondern braucht sich 
nur auf irgendeine Weise bemerkbar 
machen. Dazu muß er nun in einem Port 
des Z80 oder einer Speicherstelle eine 
»Fahne«, ein sogenanntes »Flag«, auf- 
stellen. Damit der Computer sofort 
ohne Zeitverzögerung merkt, ob eine 
Interruptanforderung besteht, schaut 
erregelmäßig nach, ob ein solches Flag 
aktiv ist. Dieses regelmäßige Nachse- 
hen heißt »Polling« und wird von dem 
Betriebssystem mehrmals jede Sekun- 
de durchgeführt. 


Bis hierher 
und nicht weiter 


Beim Schneider CPC und einigen 
anderen Computern verhält es sich so, 
daß eine bestimmte Routine, oft »ISR« 
oder »Interrupt Service Routine« ge- 
nannt, ständig bearbeitet wird. Sie hat 
nicht nur die Aufgabe, Interruptanforde- 
rungen zu prüfen, sondern muß auch 
regelmäßig andere kleine Maschinen- 
routinen berücksichtigen. 

Dazu gehört unter anderem die Tasta- 
turabfrage. Um das zu testen, geben 
Sie folgendes Programm ein: 

10 FOR i=1 TO 10000:NEXT i 

Drücken Sie nun während dem Lauf 
dieser Leerschleife einige Tasten, so 
sehen Sie, daß der Computer diesesich 
intern merkt und auf dem Bildschirm 
ausgibt, sobald das Programm beendet 
ist und »Ready« zu lesen ist. Bis zu 20 
Zeichen kann Ihr Schneider intern so 
zwischenspeichern. Doch warum ist 
das so? Die Tastatur wird natürlich auch 
während der Arbeit mit dem Programm 
durch Interrupt abgefragt und die Er- 
gebnisse dieser Abfrage zwischenge- 
speichert. Dieses Verfahren nennt man 
»interruptgesteuerte Tastaturabfrage«. 

Auch fünf verschiedene Zeitgeber 
werden mittels Interruptroutinen stän- 
dig auf aktuellem Stand gehalten. Einen 
dieser Timer fragt man mit der Basic- 
Funktion »TIME« ab. Die anderen vier 
dienen der Programmierung von Inter- 
rupts unter Basic. 


Interrupts sind also Eingriffe in die 
Arbeit des Computers, rein auf Grund 
der vergangenen Zeit unabhängig von 
dem Programm. Was ist dann aber der 
Unterschied zum »Multitasking«, das ja 
gerade mit dem DOS Plus des Schnei- 
der PCs immer mehr zum Thema wird? 

Interrupts, wie sie der Schneider 
CPC und die meisten anderen Heim- 
computer benutzen, unterbrechen 
Hauptprogramme, beispielsweise einen 
Basic-Interpreter, ein Textprogramm 
oder auch nur den Kommandoprozes- 
sor des Betriebssystems (dieser bringt 
beispielsweise den A>-Prompt von 
CP/M auf den Bildschirm). Nebenher 
laufen ständig kleine Programme ab, die 
sogenannten Interruptroutinen. Gra- 
fisch läßt sich die Verteilung der Re- 
chenzeit so darstellen: 

Hauptprogramm: - --- 
Interrupt 1: rel m ham 
Interrupt 2: - - - - 
Interrupt 3: - - - 

Sie sehen, daß das Hauptprogramm 
immer langsamer wird, je mehr Unter- 
programme durch Interrupt aufgerufen 
werden. 

Beim Multitasking hingegen laufen 
zwei oder mehr Programme quasi paral- 
lel ab. Es werden also mehrere kom- 
plette Programme scheinbar gleichzei- 
tig bearbeitet. So kann zum Beispiel auf 
dem Amiga von Commodore ein Text- 
verarbeitungsprogramm, ein Spiel, und 
ein Demonstrationsprogramm neben- 
einander ablaufen: 

Textverarbeitung: 
Spiel: 
Demo: 

Natürlich verarbeitet der Computer 
auch im Multitasking-Betrieb nicht meh- 
rere Programme tatsächlich gleichzei- 
tig. Der Trick besteht hier darin, daß ein 
Verteilerprogramm, der sogenannte 
»Dispatcher«, eine gewisse Rechenzeit 
auf den einzelnen Programmen zuord- 
net. Er teilt jedem der einzelnen Routi- 
nen für Sekundenbruchteile die kom- 
plette Prozessorleistung zu. Im allge- 
meinen erhalten die Programme der 
Reihe nach jeweils einen solchen »Zeit- 
schlitz«. Falls eine Priorität gesetzt wird 
(wie bei allen Großrechenanlagen), ist 
dieser Zeitschlitz entsprechend größer 
oder ein bestimmtes Programm wird 
häufiger aufgerufen. Besitzt das Haupt- 
programm die vierfache Priorität und 
‚sind zwei Unterprogramme gleich wich- 
tig, dann kann die Prozessorleistung 
beispielsweise so aufgeteilt werden. 
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Hauptprogramm: 
Unterprogr: 
Unterprogramm: - - - - 
Es ist aber auch 

Hauptprogramm: 
Unterprogrann 
Unterprogrann: - - - - 

möglich.Die hohe Umschaltgeschwin- 
digkeit hinterläßt beim Betrachter den 
Eindruck, als ob mehrere Programme 
gleichzeitig verarbeitet würden. 


EVERY und AFTER 


Die beiden wichtigsten Befehle für 
das Programmieren von Unterprogram- 
men im Interruptverfahren, heißen 
»EVERY« und »AFTER«. 

Die Syntax der beiden Befehle ist 
identisch: 

EVERY Zeitwert,Timer GOSUB Zeile 
AFTER Zeitwert,Timer GOSUB Zeile 

Der Unterschied zwischen den bei- 
den Befehlen liegt auf der Hand: Wäh- 
rend bei AFTER das Unterprogramm 
nach Verstreichen des Zeitintervalls ein 
einziges Mal aufgerufen wird, führt der 
Basic-Interpreter bei EVERY die ge- 
wünschte Befehlsfolge regelmäßig aus, 
bis die Interruptsteuerung wieder abge- 
schaltet wird. 

Das Locombotive-Basic ruft Interrupt- 
routinen alle 0,02 Sekunden, also jede 
Yo Sekunde, auf. Der »Zeitwert« ist 
daher ein Vielfaches von 0,02 Sekun- 
den. Wollen Sie ein Unterprogramm 
genau einmal pro Sekunde aufrufen, 
funktioniert das unter Basic folgender- 
maßen: 

10 EVERY 50 GOSUB 100 

Der Timer muß nicht unbedingt ange- 
geben werden. Falls Sie ihn weglassen, 
wird automatisch der Wert O benutzt. 

Damit aus der Anweisung ein vollstän- 
diges Programm wird, dürfen Sie die 
eigentliche Interruptroutine natürlich 
nicht vergessen. Sie wird, wie ein ganz 
normales Unterprogramm, das man mit 
»GOSUB« aufruft, programmiert. 

10 EVERY 50 GOSUB 100 

20 GOTO 20 

100 PRINT *Der Interrupt ...” 
110 RETURN 

Die Programmzeile 20 ist notwendig, 
da sonst der Basic-Interpreter- irrtüm- 
lich in die Interruptroutine »hineinläufte. 
Das führt dann zu der Fehlermeldung 
Unexpected RETURN 

Jetzt fragen Sie wahrscheinlich, was 
nun eigentlich die Bedeutung dieser 
Interruptsteuerung ausmacht. Der 
Computer scheint ja doch nicht zwei 
Basic-Programme gleichzeitig abzuar- 
beiten, sondern die Ausgabe des Tex- 
tes »Der Interrupt ...« wird nur in ein 
bestimmtes Zeitraster gezwängt. 
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Falsch - und ob der Computer zwei 
Programmteile gleichzeitig bearbeitet! 
Es gibt nämlich noch ein Hauptpro- 
gramm. Es besteht zwar nur aus der 
Zeile 
20 GOTO 20 
aber es ist vorhanden. Dem läßt sich 
abhelfen. Schalten Sie einfach mit 
TRON 
das Auflisten der bearbeiteten Zeilen- 
nummern ein. Dann sehen Sie die tat- 
sächliche Programmstruktur. 

Das folgende Programm gibt alle Akti- 
vitäten - sowohl des Unterprogramms 
als auch des Hauptprogramms - auf 
dem Bildschirm an: 

10 EVERY 50 GOSUB 40 

20 PRINT "Das Hauptprogramm ...” 
30 GOTO 20 

40 PRINT "Der Interrupt ...” 

50 RETURN 

60 END 

Die Anzeige 
Das Hauptprogramm 
wird regelmäßig von der Meldung 
Der Interrupt 
unterbrochen. 

Dabei wird das Hauptprogramm um 
so langsamer, je umfangreicher die 
Interruptroutinen sind. Deshalb gilt die 
Regel, diese Routinen immer so kom- 
pakt wie möglich zu schreiben. Nur 
dann wird das Hauptprogramm durch 
sie nicht allzu lange aufgehalten. 

Daneben ist es wichtig, den Zeitwert 
geschickt zu wählen. Ändern Sie im obi- 
gen Programm die Zeile 10 in 
10 EVERY 1 GOSUB 40. 
und das Hauptprogramm kommt über- 
haupt nicht mehr zum Zuge. Die Inter- 
ruptroutine wird so oft aufgerufen, daß 
für andere Arbeiten keine Zeit mehr 
bleibt. 

Experimentieren Sie deshalb mit dem 
Zeitwert so lange herum, bis Sie eine 
vernünftige Zeitaufteilung zwischen In- 
terrupt- und Hauptprogramm finden. 
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Auch wenn Sie es vielleicht noch 
nicht so recht glauben wollen, Inter- 
rupts sind eine gefährliche Sache. Nicht 
etwa, weilsie selbst fehlerhaft sindoder 
das Locomotive-Basic die Interrupts 
fehlerhaft bearbeitet! Nein, diesmal ist 
der Mensch, sprich der Programmierer, 
selbst schuld. Es liegt in der Natur des 
Menschen, komplexe Vorgänge, be- 
sonders wenn sie wechselnde Startbe- 
dingungen besitzen, nur schwer nach- 
vollziehen zu können. Sie glauben gar 
nicht, was für haarsträubende Situatio- 
nen Interrupts teilweise verursachen... 

Ein Beispiel: 

10 EVERY 5 GOSUB 50 


's sind 
ch 


20 PRINT "Das ”; 

30 PRINT "Hauptprogramm ...”; 
40 GOTO 20 

50 PRINT ”Der Interrupt ...”; 


60 RETURN 
70 END 

An sich sollte die Bildschirmausgabe 
dieses Programms mit der des vorheri- 
gen Beispiels identisch sein. Aber spä- 
testens, wenn Sie das Programm star- 
ten, erleben Sie eine (unangenehme) 
Überraschung. Auf dem Bildschirm er- 
scheint: 

Das Hauptprogramm ... 
Das Der Interrupt ... 
Hauptprogramm ... 
Das Der Interrupt ... 
Hauptprogramm ... 

Genau zwischen die Zeilen 20 und 
30 »platzt« der Interrupt hinein und zer- 
stört die formatierte Bildschirmaus- 
gabe. : 

Eine ganz besondere Tücke ent- 

decken Sie, wenn Sie einmal <ESC> 
drücken und damit das laufende Pro- 
gramm anhalten. Sobald Sie eine 
andere Taste betätigen und den Com- 
puter weiterarbeiten lassen, versucht 
das Betriebssystem, die verlorenge- 
gangenen Interruptintervalle »nachzu- 
holen«. Das trifft auch für den Fall zu, 
daß Sie die Bearbeitung des Pro- 
gramms abbrechen und später mit 
»CONT fortsetzen oder mit »INKEY$« 
den Computer auf eine Eingabe warten 
lassen: 
Der Interrupt ... 
Der Interrupt ... 
Der Interrupt . 
ist das Ergebnis. Das Hauptprogramm 
wird auf längere Zeit vollständig einge- 
froren, bis der Computer mal wieder 
Zeit hat, sich diesem zu widmen. 

Daß in dem Fall natürlich die Pro- 
grammsteuerung völlig durcheinander- 
gerät, ist klar. Positive Auswirkungen 
zeigt dieser »Nachholversuch« nur bei 
Uhrenprogrammen, die damit trotz Pro- 
grammunterbrechung die korrekte Zeit 
anzeigen. Haben Sie allerdings ein Pro- 
gramm geschrieben, bei dem Haupt- 
programm und Interrupt direkt zusam- 
menarbeiten und gar über festgelegte 
Kanäle Daten austauschen, führt diese 
Eigenheit ins Chaos. Denn die Inter- 
ruptroutine stellt dann berechnete 
Werte zur Verfügung, die das Hauptpro- 
gramm im Moment noch gar nicht abho- 
len will. 

Was ist nun die »Moral von der 
Geschichte«? Interruptroutinen laufen 
erstens anders und zweitens als man 
denkt. Machen Sie sich auf die unmög- 
lichsten Situationen gefaßt! Sind Sie 
aber bereit, sich mit diesen »Macken« 
abzufinden, erzielen Sie mit interrupt- 
gesteuerten Programmen tolle Effekte. 

Wie steht's zum Beispiel mit dieser 
kleinen, aber nichtsdestoweniger sehr 
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nützlichen Routine? Computer wie der 
IBM-PC und Atari-ST besitzen eine 
Taste, mit der der Bildschirminhalt auf 
dem Drucker ausgegeben‘ wird. So 
etwas macht sich natürlich auch beim 
Schneider CPC gut. Der Einfachheit 
halber schreibt unsere Routine den 
Bildschirminhalt jedoch lediglich auf die 
Diskette beziehungsweise Kassette. 
Setzen Sie in Zeile 120 statt des Be- 
fehls »SAVE« eine GOSUB-Anweisung 
auf eine Hardcopy-Routine (zum Bei- 
spiel der auf Seite 74 aus Happy- 
Computer, Ausgabe 12/85 oder auf 
Seite 80 aus Happy-Computer, Aus- 
gabe 6/86). 

Als Taste zum Programmaufruf dient 
<COPY>. Sie besitzt den Code 9 
(siehe Handbuch), der mitINKEY abge- 
fragt wird. Die Interruptroutine besteht 
im wesentlichen aus der Abfrage dieser 
Taste. Wurde sie nicht gedrückt (wird 
also der Wert -1 zurückgegeben), so 
soll der Basic-Interpreter ohne weitere 
Aktion aus dem Unterprogramm zu- 
rückkehren. Ansonsten soll der Inhalt 
des Bildschirms gesichert werden. Das 
Hauptprogramm unseres Beispiels 
zeichnet Linien, deren Aussehen der 
Zufallsgenerator steuert: 

10 EVERY 50 GOSUB 100 

20 MOVE RND*640,RND*400 

30 DRAW RND*640,RND*400 

40 GOTO 20 

100 if INKEY(9)=-1 THEN RETURN 
110 SAVE ”!SCREEN.SRN”,b,&C000, 
84000 

120 RETURN 

130 END 

Dagegen gibt es allerdings Pro- 
grammteile, in denen keine Interrupts 
auftreten dürfen. Dazu gehören zum 
Beispiel Routinen, die Grafik auf dem 
Bildschirm ausgeben. Benutzt nun 
auch die Interruptroutine Grafikbefehle, 
kommtes zu Fehlern. Dasfolgende Pro- 
gramm arbeitet noch einwandfrei: 

10 CLS 

30 FOR i=1 TO 640 STEP 4 
40 MOVE 1,0 

50 DRAWR 0,20 

60 NEXT i 

70 END 

Bauen Sie nun aber eine Interruptrou- 
tine ein, die mit »MOVE« den Grafikcur- 
sor an eine zufällige Position auf dem 
Bildschirm setzt, so ist das Ergebnis 
verheerend: 

10 CLS 

20 EVERY 5 GOSUB 80 

30 FOR i=1 TO 640 STEP 4 
40 MOVE 1,0 

50 DRAWR 0,20 

60 NEXT i 

70 END 

80 MOVE RND*640, RND*400 
90 RETURN 

Falls der Interrupt direkt nach Zeile 
40 auftritt, werden eine - oder auch 
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mehrere - Linien falsch positioniert. Die 
in Zeile 40 festgelegte Position des 
Grafikcursors wird nämlich in Zeile 80 
überschrieben. Der Computer arbeitet 
in Zeile 50 weiter und zeichnet die Linie 
an die falsche Stelle. 

Man muß nun auf irgendeine Art und 
Weise verhindern, daß der Computer 
während dem Bearbeiten der Zeilen 30 
und 40 die Interruptanforderung be- 
achtet. Keine Angst, auch dies ist im 
Schneider-Basic vorgesehen. Der Be- 
fehl zum Sperren von Interrupts heißt 
»Di«. DI steht für die englische Be- 
zeichnung »Disable Interrupts«. Der 
Befehl »El« (»Enable Interrupts«) hebt 
die Sperre wieder auf. 

Erweitern wir also unser kleines Pro- 
gramm um diese beiden Befehle: 

10 CLS 

20 EVERY 5 GOSUB 80 

30 FOR i=1 TO 640 STEP 4 
35 DI 

40 MOVE 1,0 

50 DRAWR 0,20 


80 MOVE RND*640,RND*400 
90 RETURN 

Nach dieser kleinen Änderung läuft 
das Programm wieder ohne Störungen. 

Interruptroutinen sind übrigens ge- 
gen Selbstaufruf »immun«. Das heißt, 
während ein Unterprogramm interrupt- 
gesteuert bearbeitet wird, kann der 
Computer es nicht erneut aufrufen. 
Rekursives Basic gibtesalso auch beim 
Schneider CPC nicht. 

Manche Systemroutinen des Schnei- 
der CPC lassen aus zeitlichen Gründen 
keine Interrupts zu. Dazu gehört bei- 
spielsweise der komplette Datentrans- 
fer mit dem Kassettenrecorder oder der 
Diskettenstation. Interrupts würden das 
Taktraster, mit dem Daten gelesen oder 
geschrieben werden, derart stören, 
daß Übertragungsfehler auftreten wür- 
den. Folgendes kleine Programm zeigt 
die Behandlung von Interrupts während 
des Datentransfers: 

10 ITAPE 

20 EVERY 10 GOSUB 100 

30 FOR i=1 TO 2000:NEXT i 
40 CAT 

50 END 

100 PRINT CHR$(7); 

110 RETURN 

Mit einem Vortex-Controller müssen 
Sie Zeile 10 durch 
10 Icas 
ersetzen. Ohne Diskettenstation strei- 
chen Sie Zeile 10 ersatzlos. 

Während der FOR-NEXT-Schleife in 
Zeile 30 sind Interrupts zugelassen. 
Der Lautsprecher gibt in unserem Bei- 
spiel Pfeiftöne ab, die ein Interrupt in 
Zeile 100 auslöst. Sobald aber der CAT- 
Befehl in der Programmzeile 40 bear- 


beitet wird, schaltet sich der Motor des 
Kassettenrecorders ein. Das Betriebs- 
system läßt ab diesem Zeitpunkt keine 
Interrupts mehr zu - die Tonausgabe 
unterbleibt. 

Auch während der Bearbeitung ver- 
schiedener Diskettenroutinen, wie dem 
Lesen, Schreiben und Formatieren von 
Sektoren, werden keine Interrupts 
bearbeitet. Da diese Basisroutinen 
auch von höherstehenden ROM-Routi- 
nen aufgerufen werden, sind zum Bei- 
spiel auch während »IDIR« und »CAT« 
keine Interrupts erlaubt. 


Ein Interrupt, zwei 
Interrupfts... 


Falls Sie langsam an diesem Konzept 
‚Spaß finden, kommen Sie mit einer ein- 
zigen Interruptroutine nicht ganz aus. 
Das berücksichtigt auch Locomotive, 
Das Schneider-Basic gesteht Ihnen 
deshalb das Bearbeiten von bis zu vier 
Interruptroutinen zu. 


Damit aber der Interpreter weiß, wel- 
chen der vier Interrupt-Zeitgeber Sie 
ansprechen wollen, muß in der Syntax 
der Wert »Timer« angegeben werden. 
»Timer« darf die Werte O bis 3 anneh- 
men - entsprechend den gewünschten 
Interrupt-Zeitgebern. Falls Sie keinen 
Wertangeben, wie wir das bisherimmer 
gemacht haben, setzt der Basic-Inter- 
preter (wie oben erwähnt) automatisch 
den Timer O. 

Folgendes Basic-Programm. initiali- 
siert alle vier Interrupt-Zeitgeber. Das 
Hauptprogramm bringt lediglich Punkte 
auf den Bildschirm, die Interruptrouti- 
nen O bis 3 drucken ihre Kennummer 
aus: 

10 EVERY 10 GOSUB 100 
20 EVERY 20,1 GOSUB 200 
30 EVERY 40,2 GOSUB 300 
40 EVERY 80,3 GOSUB 400 
50 PRINT ”,”; 

60 GOTO 50 

100 PRINT ”0”; 

110 RETURN 

200 PRINT "1"; 

210 RETURN 

300 PRINT "2"; 

310 RETURN 

400 PRINT "3"; 

410 RETURN 

420 END 

Alle zehn Takte wird eine »Null« auf 
dem Bildschirm ausgegeben, halb so 
oft eine »1«. Alle 40 Takte erscheint die 
»2« und alle 80 Takte die »3«. 

Ganz klar verdeutlicht die Bildschirm- 
ausgabe dieses Programms die unter- 
schiedliche Priorität der Interruptrouti- 
nen. Darunter versteht man die Ent- 
scheidung des Computers, welche 
Routine bevorzugt wird, wenn zwei 
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Interrupt-Anforderungen zum gleichen 
Zeitpunkt anfallen. Der Interrupt mit der 
höchsten Nummer, also 3, besitztauch 
die höchste Priorität. Die zweithöchste 
Priorität besitzt der Timer 2, dann 
kommt der Timer 1 und zu guter Letzt 
der Zeitgeber 0. Somit zeigt das Pro- 
gramm nach jeweils acht Aufrufen der 
Interruptroutinen die Zeichenkombina- 
tion »3210« an - und nicht etwa »0123« 
oder gar »1032«. 

Ein Interrupt wird vom Basic-Inter- 
preter selbsttätig abgemeldet, wenn 
das Hauptprogramm beendetist. Immer 
wieder ist es allerdings notwendig, 
Interruptroutinen auf einzelne Teile des 
Hauptprogramms zu beschränken. Zum 
Abschalten eines Interrupts dient »RE- 
MAIN«: 

PRINT REMAIN(Timer) 
oder 
x=REMAIN(Timer) 

Die Funktion REMAIN hat eigentlich 
zwei Aufgaben. Zuerst einmal deinstal- 
liert sie die angegebene Interruptrou- 
tine. Als Nebeneffekt gibt sie aber eine 
Zahl zurück, die die Anzahl der Timer- 
impulse angibt, die bis zum nächsten 
Auftreten des Interrupts noch nötig 
sind. Als Parameter erwartet REMAIN 
die Nummer des betroffenen Zeitge- 
bers: 
dummy=REMAIN(0) 
x=REMAIN(2) 

PRINT REMAIN(1) 


Der AFTER-Befehl 


Kommen wir zu dem zweiten Befehl, 
der Interruptroutinen aktiviert. Eigent- 
lich ist ein mit »AFTER« aufgerufenes 
Unterprogramm gar kein richtiges Inter- 
ruptprogramm. Denn es wird nicht re- 
gelmäßig abgearbeitet, sondern nur ein 
einziges Mal - am Ende der vorher 
angegebenen Zeit. 

Sinnvolle Anwendungen für die An- 
weisung »AFTER« zu finden, ist dann 
auch etwas schwieriger als bei 
»EVERY«. Wie steht es aber mit einem 
Wecker, der nach zehn Minuten einen 
Warnton ausgibt? 

10 AFTER 30000 GOSUB 30 

20 GOTO 20 

30 PRINT CHR$(7) ; "Zeitlimit 
erreicht!” 

40 END 

Auch der AFTER-Befehl greift auf die 
insgesamt vier Zeitgeber des Betriebs- 
systems zu: 

AFTER 1000,0 GOSUB 1000 
AFTER 2000,1 GOSUB 2000 
AFTER 3000,2 GOSUB 3000 
AFTER 4000,3 GOSUB 4000 

Unabhängig vom Befehl dürfen Sie 
hier jede Timernummer nur ein einziges 
Mal vergeben. Haben Sie also bereits 
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einen »EVERY«-Interrupt mit dem Timer 
2 initialisiert, dürfen Sie diesen Zeitge- 
ber nicht mit »AFTER« noch einmal 
benutzen. 

Die maximale Zeitspanne, die bei 
»AFTER« und bei »EVERY« angegeben 
werden darf, beträgt 32 767 Zeiteinhei- 
ten. Das sind immerhin zirka 655 
Sekunden oder knapp elf Minuten. 


Kräftiger Sound mit 
ON-SQ-GOSUB 


So praktisch die Programmierung von 
Interruptroutinen für allgemeine Zwek- 
ke ist, so unbrauchbar erweist sich das 
Prinzip bei der Wiedergabe von musika- 
lischen Effekten. Denn Interrupts wer- 
den in einem festen Taktraster aufgeru- 
fen, während Musikstücke Noten von 
verschiedener Länge enthalten. Das 
bringt entweder die Interrupts oder die 
klangliche Stimmigkeit der Musik 
durcheinander. 

Aber auch das haben die Program- 
mierer von Locomotive erkannt und 
deshalb das Konzept der Warteschlan- 
gen entwickelt. 

Damit kann der Computer mehrere 
Töne intern zwischenspeichern, bevor 
er sie an den Soundchip ausgibt. So 
interpretiert der Computer schon neue 
Basic-Befehle, während der Tongene- 
rator noch Töne ausgibt. 

Leider hat dieses Konzept eine ent- 
scheidende Schwachstelle: Eine War- 
teschlange kann pro Tonkanal maximal 
vier Töne (oder Geräusche) aufneh- 
men. Deshalb mußte Locomotive noch 
einmal in die Software-Trickkiste greifen 
und den Sprachumfang des Basic- 
Interpreters um den Befehl 
ON SQ(Tongenerator) GOSUB Zeile 
erweitern. Nun ist es tatsächlich mög- 
lich, gleichzeitig Musikstücke zu spie- 
len und ein Basic-Programm zu bear- 
beiten. Mit Hilfe von »EVERY« kann man 
das Betriebssystem sogar veranlassen, 
ein Hauptprogramm, vier Interruptrouti- 
nen und das Musikstück vom Computer 
quasi parallel zu bearbeiten. 

Sehen wir uns einmal ein Programm 
an, das den SOUND-Befehl benutzt: 
10 FOR i=1 TO 200 
20 SOUND 1,1 
30 NEXT i 

Diese drei Zeilen arbeiten noch ohne 
Interrupts. Wir stellen allerdings dem 
Computer die Aufgabe, im Hauptpro- 
gramm Linien zu zeichnen, ohne die 
Tonausgabe zu vergessen. 


Dazu brauchen wir zuerst einmal die 
exakte Definition der Funktionsweise 
von »ON SQ(x) GOSUB«. Der Befehl 
weist den Interpreter an, das angege- 
bene Unterprogramm aufzurufen, so- 
bald die Tonwarteschlange - für den als 


Argument in Klammern übergebenen 
Soundkanal - leer ist. Dabei verhält sich 
»ON SQ« ähnlich wie »AFTER« - gegen- 
sätzlich zu »EVERY« also. Sobald das 
Unterprogramm einmal abgearbeitet 
ist, wird nämlich der Interrupt gelöscht. 
100 MODE 2 

110 ON SQ(1) GOSUB 170 

120 ' Hauptprogramm KRrKKHKARKR* 
130 MOVE RND*640,RND*400 

140 DRAW RND*640, RND*400 

150 GOTO 130 

160 ' Soundroutine KrrKKKHRKKKRRK 
170 i=i+1 

180 SOUND 1,i 

190 ON SQ(1) GOSUB 170 

200 RETURN 

210 END! WHRRRRBRRRRARRRRRRRN 

Das Hauptprogramm besteht ledig- 
lich aus »DRAW« und »MOVE« mit zu- 
fallsbedingten Werten, sowie dem 
GOTO-Befehl in der Zeile 150, der für 
die permanente Wiederholung des Pro- 
gramms sorgt. 

Da bereits nach Zeile 110 die Warte- 
schlange des Tongenerators leer ist, 
ruft das Programm die Soundroutine in 
Zeile 170 auf. Dort wird der Computer 
endlich angewiesen, einen Ton auszu- 
geben. In Zeile 190 initialisiert das Pro- 
gramm (wie oben gefordert) den Inter- 
rupt neu. Dem Benutzer scheint es, als 
ob die Tonausgabe gleichzeitig mit dem 
Zeichnen der Linien erfolgt. Wenn Sie 
nun wissen wollen, wie der Basic- 
Interpreter die Rechenzeit auf das 
Hauptprogramm und die Tonausgabe 
aufteilt, tippen Sie das folgende Pro- 
gramm ab. Es zeigt im Hauptprogramm 
ständig die Meldung »Happy« an. So- 
bald die Tonroutine aufgerufen wird, 
bringt diese bei jedem Durchlauf den 
invers dargestellten Text »Computer« 
auf dem Bildschirm: 

100 MODE 2 

110 i=20 

120 ON SQ(1) GOSUB 150 

125 ' Hauptprogramm KRKKKRRHRRRK 

130 PRINT ” Happy "; 

140 GOTO 130 

145 ' Tonausgabe KERN 

150 i=i+1 3 

160 SOUND 1,i 

170 PRINT CHR$(24);” Computer ”; 
CHR$(24);" "; 

180 ON SQ(1) GOSUB 150 

190 RETURN 

Der Schneider CPC besitzt schon 
unter Basic hervorragende Befehle für 
Interrupts. Damit zu programmieren 
gestaltet sich bedeutend einfacher als 
mit schwerfälligen Ersatzmethoden, die 
bei anderen Computern für solche 
Zwecke erforderlich sind. Unter Um- 
ständen ist der Einsatz aber auch sehr 
gefährlich. Also - machen Sie sich die 
Wirkungsweise der Interrupts vorher 
genau bewußt, sonst gibt es Pannen. 

(Martin Kotulla/hg) 
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Interrupts — 
Programmieren mit Pfiff 


Der Schneider CPC verfügt über 
eine ausgefeilte Interruptstruk- 
tur. Diese läßt sich nicht nur von 
Basic-Programmen aus nutzen, 
sondern auch in Maschinen- 
sprache, 


abhängig nur von der Zeit und nicht 

vom Programmaufbau. Wie das 
unter Basic geht, darauf gingen wir aus- 
führlich im Beitrag auf Seite 116 ein. 
Doch auch in Maschinencode ist es 
nicht schwer. 

Der konzeptionelle Aufbau der Inter- 
ruptsteuerung ist in Maschinensprache 
der gleiche wie der der Basic-Befehle 
EVERY, AFTER und ON SQ. Auch in 
Maschinensprache lassen sich Inter- 
ruptroutinen in die Zeitschleife »einklin- 
ken« und aus der Warteschlange der 
Interrupts wieder löschen. Dabei reicht 
die Unterstützung von Maschinenrouti- 
nen durch den Teil des Betriebssy- 
stems, der Interrupts bearbeitet, sogar 
noch weiter als unter Basic. So lassen 
sich verschiedene Typen von Interrupts 
auswählen. Auch ist essehr angenehm, 
daß Interrupts für Maschinenroutinen 
im Direktmodus des Interpreters weiter 
beachtet werden. Interruptprogramme 
in Basic werden ja mit Ende des Haupt- 
Programms gestoppt. 

Die Interruptsteuerung arbeitet Be- 
triebssystem-intern mit einem einzigen 
Taktraster. Die Hauptschleife des Inter- 
rupts wird 300mal in der Sekunde auf- 
gerufen. Von diesem Grundwert leitet 
der Computer vier verschiedene Inter- 
ruptarten mit drei Taktrastern ab, 

Der schnelle Interrupt (Fast Ticker 
Chain) wird 300mal pro Sekunde auf- 
gerufen. Er eignet sich für besonders 
häufige Aufrufe. 

Der Sound-Interrupt (Sound Chain) 
wird 100mal pro Sekunde aufgerufen 
und dient der Sounderzeugung. Der 
Sound-Interrupt ist deshalb auch nur 
dem Betriebssystem zugänglich, nicht 
aber normalen Programmen. 

50mal pro Sekunde wird der Frame- 
Filyback-Interrupt (Frame Fiyback 
Chain) aufgerufen und damit während 
jedes Bildrücklaufs des Elektronen- 
strahls im Monitor. 

Der wichtigste Interrupt ist der nor- 
male Interrupt (Ticker Chain). Zu ihm 
zählt beispielsweise die Abfrage der 
Tastatur. 50mal pro Sekunde wird er 
aktiviert. 


| nterrupt - das heißt Programmieren 
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Beim Einsatz von Interrupts in eige- 
nen Programmen verzichten Sie besser 
auf den erstgenannten Interrupt. Hier in 
das Betriebssystem eingehängt, wer- 
den die Routinen sehr oft aufgerufen 
und bremsen dadurch die Arbeitsge- 
schwindigkeit des Computers. Ein nor- 
maler Ticker belastet das System im 
Vergleich zu einem Fast-Ticker mit nur 
einem Sechstel der Rechenzeit. 

Der Bildrücklauf-Interrupt steht zwar 
zur allgemeinen Nutzung bereit, ergibt 
aber nur Sinn bei Programmen, die 
direkt mit dem Bildschirm arbeiten sol- 
len. Dazu gehören etwa die Routinen 
des Systems, die bewirken, daß Farben 
blinken oder der Bildschirm flimmerfrei 
scrollt. 

Neben diesen vier Kategorien gibt es 
noch eine weitere grundsätzliche Ein- 
teilung von Interrupts: Sie sind syn- 
chron oder asynchron. 


Gefahr durch 
asynchrone 
Ereignisse 


Asynchrone Interruptroutinen heißen 
auch »asynchrone Ereignisse« oder auf 
Englisch »asynchronous Events«. Sie 
werden streng periodisch aufgerufen - 
platzen also auch mitten in ein Pro- 
gramm oder werden während dem Be- 
arbeiten einer Routine des Betriebssy- 
stems aktiv. Das birgt natürlich die 
Gefahr, daß das asynchrone Ereignis 
Dinge tut, die nicht so sehr erfreulich 
sind. So sind viele Systemroutinen bei- 
spielsweise nicht »reentrant« - dürfen 
sich also nicht selbst aufrufen. Unter- 
bricht aber der Zeit-Interrupt zum Bei- 
spiel gerade die Bildschirmausgabe 
und übergibt er einem asynchronen 
Ereignis die Kontrolle über den Compu- 
ter, darf dieses Ereignis die Bildschirm- 
ausgabe keinesfalls aufrufen - denn 
Firmwareroutine TXT OUTPUT isteben 
nicht »reentrante. 

Eine besondere Klasse sind aller- 
dings die sogenannten »speziellen« 
oder »eiligen« asynchronen Ereignisse. 
Sie werden noch schneller von der 
Interruptverwaltung aufgerufen als nor- 
male asynchrone Eventes. Ihre Aktivitä- 
ten sind aber auch weitaus einge- 
schränkter. Sie dürfen weder Interrupts 
freigeben, noch den alternativen Regi- 
stersatz oder gar die Indexregister IX 
und IY benutzen. Weiterhin müssen sie 


so kurz wie möglich sein. Von der Be- 
dingung, daß die Interrupts gesperrt 
bleiben müssen, leitet sich ferner die 
Forderung ab, daß keinerlei Restarts 
und nur ein bestimmter Teil der System- 
routinen benutzt werden dürfen. Denn 
diese schalten sehr oft die Interrupts 
wieder ein. Genaue Angaben zu jeder 
einzelnen Routine des Betriebssy- 
stems finden Sie im Firmware-Hand- 
buch von Schneider. Als »Belohnung« 
für all diese Einschränkungen werden 
alle asynchron gesteuerten Routinen 
sehr regelmäßig aufgerufen. 

Falls das nicht unbedingt erforderlich 
ist, arbeiten Sie besser mit synchronen 
Interrupts. Nach außen hin fällt der 
Unterschied oft gar nicht auf. In allen 
anderen Maschinencode-Programmen 
dürfen Sie aber weiter alle Ressourcen 
des Computers ausnutzen. 

Der Unterschied zwischen synchro- 
nen und asynchronen Ereignissen liegt 
allein im Aufruf. Synchrone Interrupts 
werden in eine Warteschlange einge- 
reiht. Das Hauptprogramm fragt regel- 
mäßig an, ob neue Routinen zum Bear- 
beiten vorliegen. Diese Methode ken- 
nen Sie bereits als »Polling«. Sie bietet 
den Vorteil, daß die Interrupts das 
Hauptprogramm zu einem passenden 
Zeitpunkt unterbrechen. 

Der Basic-Interpreter von Locomo- 
tive beachtet das Polling automatisch. 
Die zugehörige Maschinenroutine liegt 
beim CPC 464 im Basic-ROM zwi- 
schen den Adressen C807 und 
C844hex. Beim CPC 664 lautet die 
Startadresse C8B5hex und beim CPC 
6128 C8B2hex. Solange als Hauptpro- 
gramm eine vom Basic-Interpreter 
bearbeitete Routine läuft, brauchen Sie 
sich darum nicht kümmern. Anders liegt 
der Fall bei einer selbstprogrammierten 
Maschinencode-Routine. Jetzt muß 
das Polling »von Hand« eingebaut wer- 
den. Ein Beispiel für solch eine Routine 
finden Sie im folgenden: 
KL_POLL_SYNC EQU &B921 
KL_NEXT_SYNC EQU &BCFB 
KL_DO_SYNC EQU &BCFE 
KL_DONE_SYNC EQU &BDO1 
POLL: CALL KL_POLL_SYNC 
RET NC 
POLL2: CALL KL_NEXT_SYNC 
RET NC 
PUSH AF 
PUSH HL 
CALL KL_DO_SYNC 


Die Schneider-Sonderhefte 
von Happy-Computer: 


Schneider 1 
Alle Schneider-Computer im 
Vergleich. Grafik: »Geheim- 


codes« zur Bildschirmgestol- 
tung. Listing: Malen wie auf 
einer Leinwand. Musik und 
Sound selbst programmieren. 
‚Anwendungen: Echtzeitverar- 
beitung auf dem Schneider! 
‚Assembler-Disassembler für 
den CPC464. 


Schneider 5 

Lernen Sie den ersten Personal 
Computer von Schneider ken- 
nen. Wir berichten über die 
CP/M plus-Funktionen BIOS 
und BDOS, Weitere Hilfe gibt 
es mit den Basic-Erklärungen. 
Ein »Flugzeug In Not« sorgt für 
ein Bennändis Listing. Wir 
zeigen, wie Sie mit der Pro- 
grammlersprache »Logo« Mu- 
sik machen können. 


Nutzen Sie die Bestellmöglichke 


eine runde Sache 


COMPUTER 


Schneider 2 

Wichtige Tips& Tricks für An- 
fänger und Fortgeschrittenene. 
Grundlagen: So programmiert 
man 3D-Grafik. Die interessan- 
testen Firmware-Roufinen, 
Preiswert selbstgebaut: RS232- 
Schnittstelle mit maßgeschnei- 
dertem DFÜ-Programm. Hard- 
ware-Einkaufstips: Drucker, 
Floppy-Laufwerke und Spei- 


chererweiterungen. 


COMPUTER 


DAS GROSSE NEUMOMZUTER MAGAZIN 


Schneider 4 
Einsteiger hilft eine ausführli- 
che Basicpr 


ips& Tricks, Sp 
und Änwen- 


dungslistings. 


der Schneider-Sonderhefte 1 bis 5 mit der 
eingehefteten Zahlkarte im vorliegenden Sonderheft 
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von »Happy-Computer«! 


POP HL 

POP AF 

CALL KL_DONE_SYNC 
JP  POLI2 

Die Routine rufen Sie mit 
CALL POLL 
(allerdings nicht unter Basic) auf. Mit 
CALL KL_POLL_SYNC 
testet die Routine, ob eine Interrupt- 
Anforderung vorliegt. 

Trifft dies zu, weist KL NEXT SYNC 
den Computer an, die Startadresse der 
zu bearbeitenden Routine aus der War- 
teschlange zu holen. KL DO SYNC ruft 
dann das Unterprogramm auf. KL 
DONE SYNC sorgt für das korrekte 
Ende der Unterbrechung. Die Anwei- 
sung JP POLL2 sorgt dafür, daß alle 
‚Anforderungen beachtet werden. 


Event- und 
Ticker-Block 


Um eine Interruptroutine richtig zu 
behandeln, benötigt das Betriebssy- 
stem Informationen, beispielsweise 
über den Programmtyp. Die für das 
Betriebssystem interessanten Werte 
liegen in einem sogenannten Event- 
Block vor. 

Die Event-Blocks besitzen ein fest 
vorgegebenes Format. In den ersten 
beiden Bytes des Blocks steht ein Ver- 
kettungszeiger. Diesen verwaltet das 
Betriebssystem und er darf auf keinen 
Fall von Ihrem Programm verändert wer- 
den. 

Das darauffolgende Byte ist der Zäh- 
ler, der das Verhältnis zwischen den 
bereits bearbeiteten und den noch 
anstehenden Aufrufen der Routine 
beschreibt. Sobald die Routine ange- 
fordert wird, erhöht das Betriebssystem 
den Zähler - beim tatsächlichen Bear- 
beiten der Routine wird er um 1 herab- 
gesetzt. Der Wert des Zählers liegt 
immer im Bereich zwischen 1 und 126. 

Spezielle Informationen für die Arbeit 
der Interruptroutinen zeigen negative 
Werte dieses Zählers an. Ein Wert zwi- 
schen -2 und -128 bedeutet, daß die 
Unterbrechung inaktiv, aber nicht aus 
der Interruptkette ausgeklinkt ist. Ein 
Wert Null ruft das Unterprogramm so- 
fort auf, 

Das nächste Byte im Event-Block ist 
bitweise organisiert. Es beschreibt den 
Typ der Unterbrechung. 

Interruptroutinen dürfen entweder im 
zentralen 32 KByte großen RAM-Be- 
reich zwischen den Adressen 4000 
und BFFFhex oder in einem ROM lie- 
gen. Programme im RAM werden ohne 
Umschalten direkt mit CALL vom Be- 
triebssystem aufgerufen. Interruptrouti- 
nen im ROM brauchen Informationen, in 
welchem ROM das Programm steht. 
Dazu dient das ROM-Select-Byte. Ist 
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Bit O gelöscht, so sucht der Computer 
im RAM nach der Routine. Ein gesetz- 
tes Bit O deutet auf den ROM-Bereich. 
Als Tip für eigene Programme: Belegen 
Sie soweit wie möglich die RAM- 
Adressen. Der Aufruf ist so bedeutend 
schneller. Asynchrone Interruptrouti- 
nen müssen dann auch immer in die- 
sem Bereich stehen. 

Die Bit 1 bis 4 steuern die Priorität der 
Aufrufe. Synchrone Anforderungen 
dürfen mit unterschiedlichen Prioritäten 
ausgestattet sein. Wenn zwei oder 
mehrere Ereignisse gleichzeitig ange- 
fordert werden, dann hat das Programm 
mit der höheren Priorität Vorrang. 

Bit 5 muß stets auf Null gesetzt sein; 
Bit 6 ist das Unterscheidungsmerkmal 
für normale (das heißt 50mal pro 
Sekunde) und eilige (das heißt 300mal 
pro Sekunde) Aufrufe. Ist Bit 6 gesetzt, 
so liegt ein eiliger Aufruf vor. Für nor- 
male Ereignisse bleibt das Bit gelöscht. 

Bit 7 steuert, ob ein Ereignis als 
synchron oder asynchron initialisiert 
wird. Bei gesetztem Bit erfolgt die 
Unterbrechung asynchron, bei syn- 


chronen Ereignissen ist das Bit zurück- 
gesetzt. Y 

Byte 4 und 5 des Event-Blocks ent- 
halten die Startadresse der Interrupt- 
routine. Falls Sie eine ROM-Routine (oft 
auch »Far Address« genannt) benutzen, 
muß in Byte 6 die Kennziffer der Spei- 
cherbank stehen. 

Die restlichen Bytes des Event- 
Blocks sind von Haus aus unbelegt. Sie 
können hier eventuelle Daten für das 
Unterprogramm eintragen. 

Bis jetzt haben unsere Interruptrouti- 
nen aber noch einen Nachteil. Sie wer- 
den nur ein einziges Mal ausgeführt. 
Danach löscht das Betriebssystem sie 
wieder aus der Event-Kette. Um die 
Routinen aber nicht völlig zu verges- 
sen, verwaltet der Computer eine wei- 
tere Liste, die »Ticker-Chain« bezie- 
hungsweise »Fast-Ticker-Chain«. Auch 
in ihr werden die Ereignisblöcke (Event- 
Blöcke) eingetragen. 

Die Datenstruktur umfaßt allerdings 
noch einige weitere Bytes. Diese sind 
dem Event-Block vorangestellt. 

Der Fast-Ticker-Block ist nichts ande- 
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;* FLIMMER.ASM - Demo fuer Interrup 
;* 
Pa a a a a a nn a a nn 
ORG 84000 
IP INITTICK 
KLNEW_FAST_TIC EQU #BCEO 
KL_DEL_FAST_TIC EQU #BCE6 
HOLD_VALUE DEFB 0 


5 HRROHGHHEHE TICKERLISTE KK: 


TICLST 


5 HOROROHOHH INTERRUPT INITIALISIEREN 


INITTICK ıD HL,TICLST 
ıD DE, INTERRUPT 
ıD B, #82 
ıD c,#00 
CALL KLLNEW_FASTTI 
RET 


5 RORHOHOROHH DIE INTERRUPT-ROUTINE #% 


INTERRUPT DI 
PUSH BC 
PUSH DE 
PUSH HL 
ıD A, (HOLD_VALUE) 
ING N 
ıD (HOLD_VALUE) ‚A 
ıD (#C000),A 
POP HL 
POP DE 
POP BC 
EI 
RET 


Listing 1. Der Assemblercode zu »Flimmern« 


RR 
* 
its * 
* 


are 


5 KL NEW FAST TICKER 
; KL DEL FAST TICKER 


RR 


PRRRORERHEHOHOREEHEEROOE 


Zeiger auf die Tickerliste 
Zeiger auf Interruptroutine 
Ereignisklasse 
ROM-Auswahladresse 
Fast-Ticker initialisieren 
Ruecksprung nach Basic 


c 


REROROREENOREREROEROROORO 


Besser keine Interrupts 
BO sichern 
DE sichern 
HL sichern 


Wert aus Speicherstelle laden 
Plus 1 

Wieder speichern 

In den Bildschirmspeicher 


HL restaurieren 
DE restaurieren 

BC restaurieren 

Interrupts zulassen 
Ruecksprung zun IR-Handler 


EEE 
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res als ein Event-Block, der um einen 
zwei Byte langen Verkettungszeiger 
erweitert ist: 
Byte 0,1: Verkettungszeiger 
Ab Byte 2: Normaler Event-Block 

Der Ticker-Block weißt hingegen 
mehrere Unterschiede auf: 
Byte 0,1: Verkettungszeiger 
Byte 2,3: Countdown-Zähler 
Byte 4,5: Wiederanlaufwert für den 
Zähler 
Ab Byte 6: Normaler Event-Block 

Das Betriebssystem des Schneider 
OPC kennt verschiedene Routinen, um 
die Interrupts zu verwalten. In der 
Tabelle finden Sie die gesamte Firm- 
ware, die sich mit diesem Thema be- 
schäftigt. Die Startadresse und die 


PRETEULLLTETULULTTE EEE I ET EIE TOT EEE 
;* 
;* 


PLEITE Te 


FNORMAL.ASM - Normale Ticker-Interrupts * 


1 HORORORHRHEGOREROEE 


ORG &A000 
IP INIT_EVENTBLOCK 
KL_ADD_TICKER EQU #BCE9 ; KL ADD TICKER 
KL_DEL_TICKER EQU #BCEC ; KL DEL TICKER 
KLLINIT_EVENT EQU #BCEF ; KL INIT EVENT 
HOLD_VALUE DEFB {) 
RORHRSOHHROOE TICKERLISTE RHEREGEHRRORRERER 
TICKERLIST DEFW o ; Verkettungszeiger 
DEFW ° ; Countdown-Zaehler 
DEFW o ; Wiederanlaufwert 
EVENTBLOCK DEFW 0 ; Kettungszeiger fuer Warteschlange 
DEFB 0 ; Ereigniszaehler 
DEFB {) ; Ereignisklasse 
DEFW {) ; Adresse der Interruptroutine 
DEFB {) ; ROM-Auswahlwert 
OOHHRROHHHO INTERRUPT INTTIALTSTEREN HRRRHRRRGRRRR 
INIT_EVENTBLOCK LD HL,EVENTBLOCK ; Zeiger auf den Event-Block 
ıD B,%10000000 ; Ereignisklasse 
1D 6,0 ; ROM-Auswahladresse 
1D DE,INTERRUPT ; Zeiger auf Interruptroutine 
CALL KLLINIT_EVENT ; Event-Block erstellen lassen 
INIT_TICKERLIST LD HL,TICKERLIST  ; Zeiger auf die Ticker-Liste 
1D DE,1 ; Countdown-Zaehler 
1D B0,1 ; Wiederanlaufwert 
CALL KLADD_TICKER  ; Ticker initialisieren 
RET ; Ruecksprung nach Basic 


DIE INTERRUPT-ROUT NE 4R4R0HHHH0R HR 


INTERRUPT DI ; Besser keine Interrupts 
PUSH BC ; BC sichern 
PUSH DE ; DE sichern 
PUSH HL ; HL sichern 
ıD A,(HOLD_VALUE) ; Wert aus Speicherstelle laden 
Inc A ; Plus 1 
ıD (HOLD_VALUE),A ; Wieder speichern 
ıD (#C000) ‚A ; In den Bildschirnspeicher 
POP HL ; HL restaurieren 
POP DE ; DE restaurieren 
POP BC ; BC restaurieren 
el ; Interrupts zulassen 
BET ; Ruecksprung zum IR-Handler 


Listing 3. »Fnormal« als Assemblercode 


Registerbelegung beim Aufruf und bei 
der Rückkehr stehen hier genauso wie 
eine kurze Erklärung der Aufgabe. 

Nach diesem Ausflug in die theoreti- 
schen »Niederungen« des Firmware- 
Handbuchs sehen wir uns jetzt ein 
praktisches Beispiel an. Es demon- 
striert auf einfache Weise das Program- 
mieren von Interrupts. 


Flimmern 
mit Interrupt 


Für andere Aufgaben brauchen Sie 
nur die eigentliche Interruptroutine 
nach Ihren Anforderungen anzupas- 


Pre Terre 
* 


* 


sen. Das ganze »Beiwerk« können sie 
problemlos übernehmen. 

Listing 1 ist das Assemblerlisting von 
»Flimmern«. In Listing 2 steht das Pro- 
gramm als Basic-Lader. Damit ist es 
auch unter Basic leicht einzugeben. 
Das Programm schreibt sich ständig 
ändernde Werte in das erste Byte des 
Bildschirmspeichers. Sie sehen damit 
in der linken oberen Ecke einen flim- 
mernden Punkt. Und so sieht die Kern- 
routine des Interrupts aus: 

LD A,(HOLD_VALUE) 
INC A 

LD (HOLD_VALUE),A 
ID (&C000),A 

Vorher müssen allerdings alle wichti- 
gen Register der CPU gesichert wer- 
den. Die Programmteile am Ende stel- 
len den ursprünglichen Zustand wieder 
her. 


EI, DI — der Z80 
spricht 
Kinderdialekt 


Mit einer besonderen Tücke warten 
die Assemblerbefehle »Di« und »El« auf. 
Falls ein Interrupt sehr häufig angefor- 
dert wird und die Routine selbst sehr 
zeitintensiv ist, dann läuft der Interrupt- 
puffer über. Das Betriebssystem merkt 
diesen Fehler und blockt ihn auch ab. 
Dabei gehen aber einige Interrupts ver- 
loren. Verhindern läßt sich dieses Pro- 
blem dadurch, daß zu Beginn des Un- 
terprogramms alle Interrupts gesperrt 
und später wieder zugelassen werden. 
Doch Vorsicht bei solchen Program- 
men! Auch viele Firmwareroutinen 
geben die Interrupts automatisch wie- 
der frei. Beijedem Aufruf einer anderen 
Routine in dem selbstprogrammierten 
Programm muß diese auf Freigabe des 
Interrupts geprüft werden. 

Unsere Routine benutzt trotzdem 
einen Fast-Ticker-Interrupt. Das Be- 
triebssystem stellt dem Programmierer 
für den Fast-Ticker nämlich eine sehr 
komfortable Systemroutine, KL NEW 
FAST TICKER, zur Verfügung. Diese 
Firmwareroutine stellt den Ticker-Block 
zusammen. 

Der normale Ticker besitzt keine mit 
KL NEW FAST TICKER vergleichbare 
Routine. In diesem Fall muß man sich 
deshalb den Ticker-Block selbst 
zusammenbasteln. In unserer Routine 
genügt es, beim Fast-Ticker unter dem 
Label TICLST Leerbytes anzugeben. 
Die Mischung der Pseudo-Assembler- 
direktiven DEFB, DEFW und DEFS ver- 
deutlicht die Struktur des Fast-Ticker- 
Blocks. 

Label INITTICK ist die Startadresse 
der Assemblerroutine, die den Interrupt 
in die Interruptkette des Betriebssy- 
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stems einfügt. Dazu benötigt sie fol- 
gende Daten in den Registern des 
Z80-Prozessors: 
HL - Zeiger auf die Fast-Ticker-Liste 
DE - Zeiger auf die Interruptroutine 
© - ROM-Auswahladresse (ROM- 
Select) 
B - Ereignisklasse 
Der Wert 82hex (130dez) im B-Regi- 
ster ist Bit für Bit organisiert. Er läßt sich 
folgendermaßen zerlegen: 
Bitnummer : 76543210 
82hex binär: 10000010 
Dabei haben die Bits folgende 
Bedeutung: 
Bit 0: Interrupt steht im RAM 
Bit 1-4: Priorität (ist nur bei synchronen 
Ereignissen von Bedeutung 


Bit 5 : immer Null 
Bit 6 : kein eiliger Interrupt 
Bit 7 : asynchroner Interrupt 


Das Programm wird nach dem Assem- 
blieren mit 
CALL &A000 
aufgerufen. Irgendwo auf dem Bild- 
schirm sehen Sie jetzt ein nervöses 
Flimmern. Finden Sie es nicht, so 
geben Sie 
MODE 2 
ein. Dies löst eine Reorganisation des 
Bildschirmspeichers aus. 

Der Speicherbereich ab ADOOhex, in 
dem der Fast-Ticker-Block und die 
Maschinenroutine abgelegt sind, ist ab 
sofort tabu. POKEn von Werten oder 
erneutes Assemblieren des Quelltex- 
tes auf derselben Adresse führt fast 
immer zum Systemabsturz. 

Bevor Sie die im folgenden beschrie- 
benen Änderungen vornehmen, müs- 
sen Sie stets den Computer mit 
<CTRL+SHIFTHESC> oder 
CALL O0 
zurücksetzen. Erst dann löscht das 
Betriebssystem auch die Interruptrou- 
tine aus der Fast-Ticker-Kette. Sie kön- 
nen sich aber auch eine Maschinen- 
code-Routine schreiben, die den Fast- 
Ticker-Interrupt aus der Liste streicht: 
DEL_FAST_TICKER: EQU &BCE6 


DEL_FTICKER: ID HL,TICLST 

CALL DEL_FAST_TICKER 

RET 

Bei den Routinen KL DEL FAST 

TICKER (BCE6hex), KL DEL FRAME 
FLY (BCDDhex, wird hier nicht behan- 
delt) und KL DEL TICKER (BCEChex) 
istfolgendes zu beachten. Deren Aufruf 
sorgt dafür, daß ab diesem Zeitpunkt 
keine Interrupt-Anforderungen mehr 
beachtet werden. Bereits erkannte 
Anforderungen, die lediglich noch nicht 
bearbeitet wurden, werden jedoch 
noch ausgeführt. Wollen Sie dies ver- 
hindern, sperren Sie einfach mitKLDEL 
SYNCHRONOUS (Adresse BCF8hex) 
beziehungsweise KL DISARM EVENT 
(BDOAhex) den Aufruf. Dabei ist die 
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a a a a a En ae Eee ee er 


;* 


5 *  Drucker-Spooler fuer den Schneider-CC * 


* 


een 


ORG &4000 


IP INITRSX 


jenen HQUATES FÜER DEN SPOOLER HERR 


TXT_OUTPUT EQU MBBSA 
KL_LOG_EXT EQU wBCDL 
KL_NEW_FAST_TIC EQU #BCEO 
KLLDEL_FAST_TIC EQU #BCE6 
MC_PRINT_CHAR EQU #BD2B 
MC_BUSY_PRINTER EQU #BD2E 
IND_WAIT_CHAR EQU #BDF1 


5 TAT OUTPUT 

; KL LOG EXT 

5 KL NEW FAST TICKER 
5 KL DEL FAST TICKER 
; MC PRINT CHAR 

; MC BUSY PRINTER 

5 IND MC WAIT CHAR 


5 non SPEICHERSTELLEN MOHHHOREHORORRORORORERE 


SPSTART DEFS 2 ; 
SPLAST DEFS 2 ; 
SPPNIR DEFS 2 ; 
IRPNTR DEFS 2 ; 
EMPTY DEFS ı ; 
PRINTCHAR DEFS ı ; 
WAIT_CHAR_BUF DEFS 3 ; 


j #RRKRRERRRE TICKER-LISTE FUER DEN 


; Startadresse des Spool-Speichers 

; Endadresse des Spool-Speichers 

; Belegungszeiger des Spool-Speichers 

; "Ausgedruckt”-Zeiger des Spool-Speichers 
; Flag, ob Spool-Speicher leer ist 

; Speicherstelle fuer das Druckzeichen 

; Speicher fuer alten Druckervektor 


SPOOLER HRORHRORRERRRRRHR 


TICLST DEFW 0,0 
DEFB #00, #83 
DEFW SP_INTERRUPT 
DEFS 2 


5 ###@&#882828 DATEN ZUR EINBINDUNG 


RSX_TABLE DEFW NAMES 
Eı2 SPOOL 
Jr UNSPOOL 

NAMES DEFM "sp00” 
DEFB #cc 
DEFM "UNSPOO” 
DEFB 103 
DEFB #00 

SPACE DEFS # 


DER RSX-BEFEHL Henne 


Zeiger auf Nemenstabelle 
; Sprung auf SPOOL 
; Sprung auf UNSPOOL 


; Befehlsname “SPOOL” 


‚sname "UNSPOOL” 


; Ende der Tabelle 


; Hilfsspeicher 


; ##rsesseneeee EINBINDUNG DES SPOOLERS ALS RSX-BEFEHLE HERR 


INIT_RSX 1D BC,RSX_TABLE 
10 HL,SPACE 
CALL KL_LOG_EXT 
RET 


Zeiger auf RSX-Sprungtabelle 
Zeiger auf Hilfsspeicher 
RSXen initielisieren 
Ruecksprung nach Basic 


HH ASK "SPOOL” - SPOOLER EINSCHALTEN HRRHORHHRORRHN 


SPOOL cp 2 
IR NZ, ERROR 
GETADDR LD H,(1X+3) 
ıD „(1X+2) 
ı (SPSTART) ‚HL 
1) (SPPNTR) ‚HL 
ıD (IRPNTR) ‚HL 
GETLENG ID D,(1%1) 
1D &, (IX+0) 
ADD HL,DE 
ıD (SPLAST) ‚HL 
SETEMPTY SUB A 
1m (EMPTY) ‚A 
copy 1%} HL,IND_WAIT_CHAR ; 
m DE,WAIT_CHAR_BUF ; 
ıD BC,3 
DIR 
REPLACE ID AL, NEW_WAIT_CHAR 
ıD (IND_WAIT_CHAR+1) 


; Werden zwei Parameter uebergeben? 
; Nein - Fehler! 


; \ Startadresse des Spool-Speichers 
; / aus dem RSX-Aufruf holen 

; Und speichern 

; dito, der Speicher ist noch leer 

; dito, wir haben noch nichts gedruckt, 


; \ Laenge des Spool-Speichers 
; / aus dem RSX-Aufruf holen 
; Und zur Startadresse addieren 
; Als Endadresse abspeichern 


; Akku loeschen 
; Als Flag nach EMPTY schreiben 


; Zeiger auf die Indireetion 
; Zeiger auf den Pufferspeicher 
; 3 Byte bei IDIR zu kopieren 

; Und kopieren 


; Adresse des neuen Druckervektors 
‚HL ; In den Originalvektor eintragen 


AIARPY 
ie 


Routine an BCF8hex für synchrone 


INITTICK LD HL,TICLST ; Zeiger auf die Ticker-Liste Ereignisse, die Systemroutine KL 
ıD DE,SP_INTERRUPT ; Zeiger auf Interruptroutine H 5 
in B,#83 5 Ereigniaklanse DISARM EVENT für asynchrone Events 
ıD C,#00 5 ROM-Auswahladresse vorgesehen. 
CALL KL-NEW_FAST_TIO ; Fast-Ticker initialisieren In unserem Programm haben wir uns 
BET su Rusekeprungsneahhesie für einen asynchronen Interrupt ent- 
KRIEG RISK "UNSPOOL” = SPODLER ABSCHALTEN KERERRRKKKKKKKERHERREK schieden. Weshalb ist hier ein synchro- 
ner Interrupt wohl nicht sinnvoll? 
UNSPOOL ID HL,WAIT_CHAR_BUF ; Vektor fuer die Druckerausgabe aus Ersetzen Sie 
ıD DE,IND_WAIT_CHAR ; dem Puffer ”WAIT_CHAR_BUF” wieder ID B,#82 
ıD 80,3 ; mit LDIR zurueckkopieren auch 
DIR 
ID B,#02 
RESTORE LD HL,TICLST ; Zeiger auf Ticker-Liste Nun ist im B-Register das 7. Bit 
ALL KL_DEL_FAST_TIC ; Fast-Ticker deinstallieren zurückgesetzt. Das sagt dem Betriebs- 
Ber a system, daß ein synchroner Interrupt 
5 HRORSRHEHOR FEHLER-ROUTTNE SHRHHHHRRRHHHRRHEHRHRRERHEHRGHHE initialisiert wird. 
Sobald Sie die Routine mit 
ERROR ID 47 ; Code fuer BEEP CALL &4000 
rn De initialisieren, entdecken Sie, daß der 
Interrupt nicht beachtet wird. Wie 
5 HRRRGHHEHER VERGLEICHE HL- UND DE-REGISTER KRRRHRHHRHRREHRHR kommt das? 
Synchrone Ereignisse werden per 
IE PUSH . Ani 
en OR 2 Polling erfaßt, also durch regelmäßiges 
SBC HL,DE Nachschauen, ob ein Interrupt angefor- 
POP HL dert wird. Solange sich aber der Basic- 
BER Interpreter im Direktmodus befindet, 
5 RRHROOHHEE NEUE ROUTINE ZUR ZEICHENAUSGABE KHHRRRRÄHRRRRHGRRRHHHHR führt er das Polling nicht durch. 
NEW_WAIT_CHAR  LD (PRINTCHAR) ‚A Geben Sie nun ® 
PUSH BC FOR i=1 TO 10000:NEXT i 
PUSH DE ohne Zeilennummer ein. Während dem 
ae Bearbeiten dieser leeren FOR-NEXT- 
1D HL, (SPPNTR) Schleife sehen Sie wieder das vertraute 
ıD DE, (SPLAST) Flimmern auf dem Bildschirm. Während 
CALL CP_HL_DE das Locomotive-Basic Befehle interpre- 
IR ©, SP_OKCHAR tiert, ruftesregelmäßig auch die Polling- 
SP_MEMFULL, ıD A, (EMPTY) routine im Basic-ROM auf. 
cp 255 2 10 GOTO 10 
IR 2,SP_CONT erfüllt übrigens denselben Zweck. 
ıD HL, (SPSTART) 
ıD (SPPNTR) ‚HL 
IR SP_OKCHAR 
a = Normale Ticker- 
_ . 
SCF ; \ Setzt das Carry-Flag Ere gn se 
Cor ; / zurueck - 280-Trick! 
POP HL . 
POP DE In den meisten Fällen braucht man 
Pop = den Fast-Ticker gar nicht. Der normale 
_ NED) Ticker, der im 1/s0-Sekunden-Takt 
arbeitet, reicht meist aus. Er hat sogar 
SP_OKCHAR ıD A, (PRINTCHAR) den Vorteil, daß man das Zeitintervall - 
BR a ähnlich dem Basic-Befehl EVERY - 
1D (SPPNTR) ‚HL bestimmen kann. 
POP HL Listing 3 (der Basic-Lader davon 
POP DE steht in Listing 4) zeigt den Assembler- 
En Des code von »Fnormal«. Es ist eine geän- 
ID (Sem) ,a derte Version des Flimmern und macht 
EI prinzipiell das gleiche. Fnormal wird nur 
SCF vom Normal-Ticker gesteuert. 
RET Die Einreihung von Interrupts in die 
5 MOHRORCHRHHG: ROUTINE, DIE DIE ZEICHEN PER INTERRUPT AUSGIBT Kin normale Ticker-Kette ist etwas aufwen- 
diger als beim Fast-Ticker. Das Rahmen- 
SP_INTERRUPT DI programm können Sie wieder für eige- 
u = ne Routinen übernehmen. Die Daten- 
PUSH HL struktur, die dem Betriebssystem zu- 
CALL MC_BUSY_PRINTER übergeben ist, setzt sich aus einem 
IR ©, BUSY normalen Event-Block und den voran- 
ne a gestellten Bytes für den Ticker zusam- 
ıD A, (EMPTY) ch E 
Listing 5. Ein Druckerspooler ist schnell eingerichtet Byte 0,1: Verkettungszeiger 


Byte 2,3: Countdown-Zähler 
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Byte 4,5: Wiederanlaufwert für den 
Zähler 

Byte 6,7: Zeiger auf die Kette der War- 
teschlange 

Byte 8: Ereigniszähler 

Byte 9: Ereignisklasse 

Byte 10,11: Adresse der Interruptrou- 
tine 

Byte 12: ROM-Auswahladresse 

Mit dem 6. Byte der Liste beginnt 
damit wieder der normale Event-Block. 

Ein Ticker-Interrupt wird in zwei 
Arbeitsgängen initialisiert: dem Einbin- 
den des Event-Blocks und des (gesam- 
ten) Ticker-Blocks. 

Zum Lösen der ersten Aufgabe gibt 
es zwei Wege. Der umständlichere - 
dafür speicherplatzsparende - bedeu- 
tet, den Event-Block »von Hand« mit 
DEFB und DEFW anzugeben. Da die 
Größe des RAM-Bereichs des Schnei- 
ders für Maschinenprogramme fast 
ausreicht, wollen wir aber komfortabler 
arbeiten. Das Stichwort dazu heißt: KL 


INIT EVENT. 
KL INIT EVENT initialisiertt den 
Ereignis- oder Event-Block. Dazu 


braucht die Routine folgende Werte in 

den angegebenen Registern: 

HL - zeigt auf den Ereignisblock 

B - enthält die Ereignisklasse 

C - enthält das ROM-Select-Byte 

DE - zeigt auf die Ereignisroutine. 

Die Bits im B-Register bedeuten: 

Bit 0=0: Die Routine liegt im zentra- 
len RAM zwischen den 
Adressen 4000 und 
BFFFhex 

Bit 6=0: Es ist kein eiliges Ereignis 

Bit 7=0: Es handelt sich um ein 
asynchrones Ereignis. 

Da die Routine als asynchroner Event 
eingebunden ist, sind die Prioritätsbits 
1 bis 4 ohne Bedeutung. KL INIT 
EVENT legt die Werte aus den Regi- 
stern in der richtigen Reihenfolge im 
Event-Block ab. 

Der Programmteil INIT_EVENT- 
BLOCK ruft KL INIT EVENT automa- 
tisch auf. INIT_TICKERLIST ruft das 
Betriebssystem mit Hilfe der Firmware- 
routine KL ADD TICKER und baut damit 
die Ticker-Kette neu auf. Dazu erwartet 
diese im HL-Register die Adresse des 
Ticker-Blocks. In DE wird der Aus- 
gangswert des Countdown-Zählers 
übergeben und in BC der »Wiederan- 
laufwert«. 

Normale Ticker-Interrupts müssen 
nicht zwangsweise 50mal in der Se- 
kunde aufgerufen werden. Die geeig- 
nete Wahl der Inhalte für die Register 
DE und BC läßt auch andere Zeiteinhei- 
ten zu. Der Countdown-Zähler be- 
stimmt dabei, nach wieviel "/so Sekun- 
den die Routine zum ersten Mal auf- 
gerufen wird. Der Wiederanlaufwert 
gibt an, nach welchem Zeitintervall der 
zweite und alle folgenden Aufrufe ange- 


cp 255 
IR NZ, BusY2 
POP AF 
ı HL, (IRPNTR) 
ıD DE, (SPLAST) 
CALL CP-HL_DE 
IR NC,BUSY3 
1D. DE, (SPPNTR) 
CALL CP_HL_DE 
IR NG,SP_EMPTYAGN 
ıD A,(HL) 
INC HL 
ıD (IRPNTR) ‚HL 
Pop HL 
Pop DE 
POP BC 
EI 
CALL WAIT_CHAR_BUF 
RET 
SP_EMPTYAGN ıD HL, (SPSTART) 
1D (SPPNTR) ‚HL 
ıD (IRPNTR) ‚HL 
SUB A 
ıD (EMPTY) ‚A 
IR BUSY 
BUSY3 ıD A, (EMPTY) 
cp 0 
IR 2,BUSY 
IR SP_EMPTYAGN 
Busy2 POP Ar 
BUSY POP HL 
Pop DE 
POP Be 
EI 
RET 


Listing 5. Ein Druckerspooler ist schnell eingerichtet (Schluß) 


Pa a a a a nn nn nn 7 
;* * 
; * CURBLINK.ASM - Blinkender Cursor * 
;* * 
a nn nn 


ORG &4000 

IP INIT_EVENTBLOCK 
KL_ADD_TICKER EQU #B0E9 
KL_DEL_TICKER EQU #BCEC 
KL_INIT_EVENT EQU #BCEF 
TXT_CUR_ENABLE EQU #BB7B 
TXT_CUR_DISABLE EQU #BB7E 
HOLD_VALUE DEFB [) 


KL ADD TICKER 
KL DEL TICKER 
KL INIT EVENT 
TXT CUR ENABLE 
TXT CUR DISABLE 


5 RROOHOHRH TICKERLISTE. RRHHRRRHERIIRI 


TICKERLIST DEFW 0 
DEFW 0 
DEFW o 
EVENTBLOCK DEFW 
DEFB 
DEFB 


DEFW 
DEFB 


oo0o00 


Verkettungszeiger 
Countdown-Zaehler 
Wiederanlaufvert 


Kettungszeiger fuer Warteschlange 
Ereigniszaehler 

Ereignisklasse 

Adresse der Interruptroutine 
ROM-Auswahlwert 


ROHR INTERRUPT INITIALISTEREN OHRHRRREHRRERORRER 


INIT_EVENTBLOCK LD HL,EVENTBLOCK 


ıD B,%10000000 

ıD 6,0 

ıD DE, INTERRUPT 

CALL KLLINIT_EVENT 
INIT_TICKERLIST LD HL,TICKERLIST 

ıD DE,20 

ıD 50,20 

CALL KL_ADD_TICKER 

RET 


Zeiger auf den Event-Block 
Ereignisklasse 
ROM-Auswahladresse 

Zeiger auf Interruptroutine 
Event-Block erstellen lassen 


Zeiger auf die Ticker-Liste 
Countdown-Zaehler 
Wiederanlaufwert 

Ticker initialisieren 
Ruecksprung nach Basic 


— 


CHECK_CURSOR ID 


A,(HOLD_VALUE) ; 


cp 0 ; 
IR 2, CURSOR_ON ; 
CURSOR_OFF CALL TXT_CUR DISABLE ; 
SUB A ; 
1D (HOLD_VALUE),A 5 
IR END_INTERRUPT 
CURSOR_ON CALL TXT_CUR_ENABLE 5; 
ıD A,255 ; 
ıD (HOLD_VALUE),A ; 
END_INTERRUPT POP HL ; 
POP DE ; 
POP BC ; 
EI 5 
RET 5 


5 RHORORGRRHGE DIE INTERRUPT-ROUTINE KHRERRRERRRRHERHRRHRRRRR 


INTERRUPT DI ; Besser keine Interrupts 
PUSH BC ; BC sichern 
PUSH DE ; DE sichern 
PUSH HL ; HL sichern 


Speicherstelle untersuchen 
Wenn 0 - Cursor einschalten 
Sonst ausschalten 


Schaltet den Cursor ab 
Und laedt den entgegengesetzten 
Wert in die Speicherstelle 


Schaltet den Cursor ein 
Und laedt den entgegengesetzten 
Wert in die Speicherstelle 


HL restaurieren 

DE restaurieren 

BC restaurieren 
Interrupts zulassen 
Ruecksprung zum IR-Handler 


Listing 7. Der Assemblercode zum Einbinden des blinkenden Cursors in das 
Betriebssystem 


fordert werden. Mit dem minimalen Wert 
1, sowohl für das BC- und das DE- 
Register, wird die Interruptroutine wirk- 
lich alle '/so-Sekunden abgearbeitet. 
Geben Sie in BC den Wert 10 und in DE 
5.an, wird die Interruptroutine erstmals 
nach '/s Sekunde und im folgenden 
alle '/ıo Sekunden aufgerufen. 

Ändern Sie im Listing 3 die nach dem 


Label INIT_TICKERLIST stehenden 
Befehle in 

ID HL,TICKERLIST 

ID DE,50 

ID BC,50 

CALL KL_ADD_TICKER 

RET 


ab. Als Ergebnis sehen Sie eine etwas 
ungewöhnlich aussehende »Uhr«, die 
die Sekunden durch gesetzte und 
gelöschte Punkte anzeigt. 

Wird der Routine KL ADDTICKER ein 
Countdown-Wert von Null übergeben, 
reiht sie den Interrupt zwar in die Ticker- 
Kette ein, arbeitetihn aber nie ab. Erist 
inaktiv. Ist der Wiederanlaufwert Null, 


188 ° FLIMMER.ASM als Basic-Ladeprogramm 198 ' SPOOL.ASM - Basic-Ladeprogramm L67D6] 
LEBFAI 11a ° L967E1 
a — 120 MEMORY 48957 [78681 
L27E61 130 FOR i=40968 TO 41260 EDB383 
120 MEMORY 48959 L706E] 14D READ a:POKE i,arNEXT i [07A61 
158 FOR i=40948 TD 41006 £cD841 150 CALL &ABBB ° Spooler initialisieren [DSSAJ 
14@ READ a:FOKE i,a:NEXT i 187461 168 PRINT EFBBBI 
158 MODE 2:PRINT:PRINT=CALL &ABOB [2A50] 178 PRINT "Befehle: £2>1SPOOL,Startadress 
16D END LEFICI e,Laenge" LAFEQI 
170 ' Maschinenprogramm in DATA-Zeilen L[497E1 188 PRINT "<1Q>!UNSPDOL" TFAZCI 
180 ° -——. [de 2.7.#} 198 PRINT=PRIN LcDICI 
190 DATA &C3,L0E,AAD,S0OB,%08,%200,200,200 200 END LA9121 
+%00,&00,%00,LAD,LOR,LAB,%21,%04 [36561 210 ” Maschinenprogramm in DATA-Zeilen LCB741 
208 DATA’SAB,L11,KIC,LAD,LN6,LB2,EDE ‚00 220 ’ -——. [52361 
„&CD, GEB, &BC,%09,&F3,&C5,&D5,&E5 LE43C3 250 DATA %C3,%33,4A0,%00,200,&00,.00,20D 
218 DATA &3A,L03,LAD,LIC,EI2,LD3,LAD,&32 ‚%00,%00,%:002,%00,&00,&0B,%D2,.a2 198201 
„&00,&CQ,LE1,%D1 ,%01,&FB,&09 115421 240 DATA’LDN,L2D ‚320,20 ,%00,%B3,&DA,sAD 
3 5 ö 800 ,%00,&22,%AB 303 ,&3D,&AD,&CS t3E1C9 
Listing 2. »Flimmern« als Basic-Lader 250 DATA’&7D,&AD,L53,50,8AF ‚&AF ‚UCC,&55 
„sAE, as: ‚%50, &ar, ar, AG, 200,08 [7A@4] 
260 DATA LDD,LDD,LDR,&D1 ‚LIA,UND,%21 ,&2F 
188 " FNORMAL.ASM — Basic-Ladeprogr amm L&iDAJ ‚&AB,&CD, son &EC, Pc LFE,&B2,: an: L1DC41 
11m ' ESF321 278 DATA &AE,&DD,%66,%03,%DDLAE „&02,%22 
EDER BD t7B6EI „&23,%AQ,%22,%07 ,%AQ,%22,%09 ,&nB [8390] 
150 FOR i=4896B TO a1a2ı EED7EI 288 DATA’&DD,%56,%01 ,&DD,LSE,LOQ,%&19,822 
14@ READ a:POKE i, 1@7A&1 „&B5,2AQ,%97,%32,20B, Ad, &21,&F1 [35A81 
159 MODE 2 LABSAI 290 BATA’SBD,%11)LQD,&AQ,&01 ,u03,LOD, LED 
168 CALL LADBB: PRINT:PRINT La1F@J „&BQ,%21)898, LAD) %22,&F2, RED, 821 137021 
170 END = = LFS1EI 308 DATA’L1D,LAD,%11,&DA,LAD,UB6)KBS,LBE 
188 Maschinenprogramm in BATA-Zeilen aaa! „kDB,&CD, LEO, BC, &c9, &21, &aD, LAU EFDECI 
Inn:° Lö 318 DAT &BD,&D1 ,& D,&BB 
200 DATA %C5,&11,LAB,%0D,%20,%00,%00,&08 m. die! en SCD,LE&) vsBer van: "SED, LA2201 
„100,00, 100,%00,200, 202, a0, 2u@ tA4121 32® DATA’&07,&CD,&5A,&BB,&C9 ‚LES,&B7 LED 
210 DATA’LOB,R21 LOR,LAR,%06, LED, &DE LOB ‚852, &E1,%09,%32, SOC, AB LC5 &DS Liracı 
„11 ,%2B, %AD,&CD, &EF)&BC,%21,804” TAS9CI 330 DATA "LES,&FS,%2A,U07 ‚&AD,LED,%5B,205 
220 BATA’XAD,&11,%01,%00,%01,&01,&DR,&CD „&AB,&CD,%95,%AB,%39,%19,%3A,&0B LEB323 
„SEI ,&BC ,&09 ,&F3,&05,&D5,%ES,&3A T24EC1 348 DATA ’SAB,SFE,LFF ,%28, 808, S2A UBS, LAD 
230 DATA’&BS,RAB,LSC,%32,L0S,LAD,%352,%00 „822, &07 ‚UA, &1B, SON UFB,%37 ,8SF [BaQEI 
„SCO,RE1,&DIL,&C1,SFB,&C9 LAABAI 35@ DATA’&E1,&D1 ,&01,%3A,&00,LAB,LC9 KIA 
i Ss B ia „SOC, &AQ, 877 ,%23,%22,807 ,&0Q,&E1 LBFECI 
Listing 4. »Fnormal« ist nicht so gut wie »Flimmern« 360 BATA’&D1 LEI USEJUFF RS2 LOB LAD, UFB 
,&37 ,&09,&F 3,405, &D5,&E5 ,&CD,&2E LF7DB] 
102 ’ CURBLINK.ASM - Basic-Ladeprogramm [LE97@1 370 DATA’&BD,&38,&45,4F3,UF5,&5A,&0B,&AQ 
11m ° — [aaacı „&FE,&FF ‚820, &5B,&F1 824,809, uAQ 1977E1 
12@ MEMORY 48959 [7@6E1 388 DATA’SED,%SB,%05,&AB,&CD,%95,«AQ,%30 
138 FOR i=48968 TO 41835 [CEBB1 »&25,&ED,&5B,&B7 ,&AB, LCD, %95,&AQ t815A1 
14@ READ a:POKE i arNEXT i [B7AGI 390 DATA'&SQ,&0D,&7E,&23,%22,409 ‚SAD, LEI 
158 CALL &ADRR: END ECBF4] „&D1,&C1,&FB,&CD, &QD, SA, %&L9,%2A EBC441 
168 ° Maschinenprogramm in DATA-Zeilen L[957C1 408 DATA"RBZ,LAD,%22,%07 ‚UAQ,&22,%09 LAD 
170 ° —— -—- LAF3E] 1%97 „832, &0B,&AQ,&18, KOA,%SA, LOB LE25@1 
188 DATA 8C3,&11,&A0,%08,%00,2BD,%OQ,Lan 218 DATA'SAD,LFE,LOR,%28,%05,&18,LEB,UF1 
+%00,&B0,&00,LBD,L00,xaD,0Q,RaD” 143201 „EL ,&D1,&C1,&FB,&C9 LI2ACH 
190 DATA’&UD,%21 ,LOR,&AD,%06, LED, SDE,&0D 
1&11,&2B, &AQ,&CD,LEF ‚&BC,%21,%04 L4EAAI 
200 DATA'SAD,&11,%14,80D,%01,%&14,800,&CD 
„EI ,„&BC ,&C9 „&F3,%C5,&DS,LES,&SA [F8FB] 
210 DATA'ROS,LAD,LFE,&0B,%28,%09 ,&CD,&7E 
,&BB,&97 ,&32,%03,%AQ,%18,%08,&CD LFAF&] 
229 DATA '&7E,LBE,&SE,&FF ‚832,805, RAD,&EI 
&D1,&C1,&FB,&07 L9B6EI 
Listing 8. Der Basic-Lader für den blinkenden Cursor Listing 6. Der Basic-Lader zu »Spool« 
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dann beachtet das System die Routine 
genau einmal und erklärt sie dann für 
inaktiv. 

Solche inaktiven Interrupts haben in 
der Ticker-Kette keine Aufgabe, kosten 
aber wertvolle Rechenzeit. Zum Lö- 
schen von normalen Ticker-Interrupts 
dient die Routine KL DEL TICKER: 


Frame-Flyback-Interrupt: 


BCD7hex - KL NEW FRAME FLY 

Initialisiert einen Block und übergibt ihn an die 
Frame-Flyback-Kette. 

Einsprungbedingungen: 

HL-Zeiger auf den Block. 

B enthält die Ereignisklasse. 

© enthält das ROM-Select-Byte. 

DE zeigt auf die Ereignisroutine. 
Aussprungbedingungen: 

AF, DE und HL sind zerstört. 

BCDAhex - KL ADD FRAME FLY 

Übergibt einen bereits initialisierten Block an die 
Frame-Flyback-Chain. 
Einsprungbedingungen: 

HL zeigt auf den Block. 
Aussprungbedingungen: 

‚AF, DE und HL sind zerstört. 

BCDDhex - KL DEL FRAME FLY 

Löscht Block aus der Frame-Flyback-Chain. 
Einsprungbedingungen: 

HL zeigt auf den Block. 
‚Aussprungbedingungen: 

AF, DE und HL sind zerstört. 
Fast-Ticker-Interrupt: 

BCEOhex - KL NEW FAST TICKER 
Initialisiert einen Block und übergibt ihn an die 
Fast-Ticker-Chain. 

Einsprungbedingungen: 

HL zeigt auf den Fast-Ticker-Block. 

B enthält die Ereignisklasse. 

© enthält das ROM-Select-Byte. 

DE zeigt auf die Ereignisroutine. 
Aussprungbedingungen: 

‚AF, DE und HL sind zerstört. 

BCE3hex - KL ADD FAST TICKER 

Übergibt einen bereits initialisierten Block an die 
Fast-Ticker-Chain. 

Einsprungbedingungen: 

HL zeigt auf den Fast-Ticker-Block. 
‚Aussprungbedingungen: 

AF, DE und HL sind zerstört. 

BCE6hex - KL DEL FAST TICKER 

Löscht einen Block aus der Fast-Ticker-Chain. 
Einsprungbedingungen: 

HL zeigt auf den Fast-Ticker-Block. 
Aussprungbedingungen: 

AF, DE und HL sind zerstört. 

Normale Ticker-Interrupts: 

BCE9hex - KL ADD TICKER 

Übergibt einen vorbereiteten Block an die nor- 
male Ticker-Chain. 

Einsprungbedingungen: 

HL zeigt auf den Ticker-Block. 

DE enthält den Ausgangswert des Zählers. 
BC enthält den Wiederanlaufwert des Zählers. 
‚Aussprungbedingungen: 

AF, BC und DE sind zerstört. 

BCEChex - KL DEL TICKER 

Löscht Block aus der normalen Ticker-Kette 
Einsprungbedingungen: 

HL zeigt auf den Ticker-Block. 
‚Aussprungbedingungen: 


KL_DEL_TICKER EQU &BCEC 


DELETE_TICKER LD HL,TICKERLIST 
CALL KL_DEL_TICKER 
RET 


Damit kennen Sie fast alles, was zur 
Interrupt-Programmierung wissenswert 


‚Akku und HL sind zerstört. 
Wenn der Ticker-Block gefunden wurde, ist das 
Carry-Flag eingeschaltet und DE enthält den 
Zähler vor dem nächsten Event. Wurde der 
Ticker-Block nicht in der Ticker-Chain aufgefun- 
den, ist das Carry-Flag ausgeschaltet und der 
Inhalt des DE-Registers bedeutungsios. 
Ereignisse: 

BCEFhex - KL INIT EVENT 

Initialisiert einen Event-Block aus den in Regi- 
stern übergebenen Daten. 
Einsprungbedingungen: 

HL zeigt auf den Event-Block. 

B enthält die Ereignisklasse. 

© enthält die ROM-Auswahladresse. 

DE zeigt auf die Event-Routine. 
Aussprungbedingungen: 

HL enthält die Adresse des Event-Blocks plus 7 
und zeigt deshalb auf die erste Adresse hinter 
dem Event-Block. 

BCF2hex - KL EVENT 

Fordert die Bearbeitung einer Event-Routine an. 
Einsprungbedingungen: 

HL zeigt auf den Event-Block 
‚Aussprungbedingungen: 

AF, BC, DE und HL sind zerstört 

BCFShex - KL SYNC RESET 

Löscht die Warteschlange für.synchrone Ereig- 
nisse. 

Einsprungbedingungen: 

Es sind keine Registerwerte nötig. 
‚Aussprungbedingungen: 

AF und HL sind zerstört. 

BCFähex - KL DEL SYNCHRONOUS 

Löscht ein synchrones Ereignis aus der Warte- 
schlange und verhindert die Bearbeitung noch 
ausstehender Interrupt-Anforderungen. 
Einsprungbedingungen: 

HL zeigt auf den Event-Block. 
‚Aussprungbedingungen: 

AF, BC, DE und HL sind zerstört. 

BDO4hex - KL EVENT DISABLE 

Sperrt die Bearbeitung normaler synchroner 
Ereignisse, so daß Interrupt-Anforderungen dem 
Hauptprogramm verborgen bleiben. 
Einsprungbedingungen: 

Keine Registerwerte nötig. 
‚Aussprungbedingungen: 

HL ist zerstört. 

BDO7hex - KL EVENT ENABLE 

Ermöglicht wieder die Bearbeitung normaler 
synchroner Ereignisse. 

Einsprungbedingungen: 

Keine Registerwerte nötig. 
Aussprungbedingungen: 

HL ist zerstört. 

BDOAhex - KL DISARM EVENT 

Verhindert das Auftreten eines Events. KL 
DISARM EVENT darf nur bei asynchronen Ereig- 
nissen benutzt werden. 

Einsprungbedingungen: 

HL zeigt auf den Event-Block. 
‚Aussprungbedingungen: 

Akku und Flag sind zerstört. 


Tabelle. Diese Firmwareroutinen brauchen Sie für Interruptsteuerung 


ist. Zum Abschluß zeigen wir noch zwei 
Programme, die den Interrupt sinnvoll 
ausnutzen. 

Listing 5 ist der Assemblercode für 
einen kompletten Druckerspooler. Die 
Aufgabe eines Druckerspoolers be- 
steht darin, alle Zeichen, die der 
Computer an den Drucker schickt, 
intern zwischenzuspeichern. Der 
Spooler gibt die Zeichen dann mittels 
Interrupt an den Drucker weiter. Da- 
durch arbeitet der Computer schon 
längst weiter, während der (langsame- 
re) Drucker noch beschäftigt ist. Listing. 
6 zeigt das gleiche Programm als Basic- 
Lader. 

Bei »Spool« handelt es sich nun aber 
nicht nur um einen »nackten« Spooler, 
sondern um eine komfortable Basic- 
Erweiterung als RSX-Befehl. Nachdem 
der Spooler mit 
CALL &A000 
initialisiert ist, kennt Ihr Computer zwei 
neue Befehle: 

1 SPOOL,Startadresse, Länge 
I UNSPOOL 

Der erste Befehl initialisiert den Spoo- 
ler. Dabei verändert das Programm den 
Systemvektor zur Druckerausgabe und 
initialisiert einen Fast-Ticker-Interrupt. 
Sie können dazu einen beliebigen Spei- 
cherbereich festlegen. Brauchen Sie 
beispielsweise einen 10000 Zeichen 
großen Puffer ab der Adresse 30000, 
so teilen Sie das dem Computer mit fol- 
gendem Befehl mit: 

MEMORY 29999:1 SPOOL, 30000, 10000 
Normalerweise reicht ein Speicherbe- 
reich von drei bis vier KByte aus. Dieses 
»Speicherplatzopfer«jedoch lohnt sich. 
Mit 

I UNSPOOL 

wird der Spooler wieder abgeschaltet. 
Dabei dürfen aber keine Zeichen mehr 
im Zwischenspeicher stehen, da diese 
sonst unwiderruflich verlorengehen 
und nicht gedruckt werden. 

Das Programm aus Listing 7 (Basic- 
Lader in Listing 8) simuliert einen blin- 
kenden Cursor auf dem Bildschirm. Der 
von Schneider serienmäßig benutzte 
stehende Cursor ist oft auf dem Bild- 
schirm etwas schwierig zu finden. Ein 
blinkender Cursor fällt hingegen sofort 
ins Auge. Mit »Curblink« erweitern Sie 
Ihr Betriebssystem um dieses nützliche 
Utility. 

Der Aufwand für das Programm ist 
nicht so groß. Es werden lediglich 
abwechselnd die Systemroutinen TXT 
CUR ENABLE und TXT CUR DISABLE 
aufgerufen. Diese ändern jeweils die 
Darstellung des Cursors. Als Count- 
down- und Wiederanlaufwert benutzt 
das Programm den Wert 20. Vermin- 
dern Sie die beiden Werte, so blinkt der 
Cursor schneller - vergrößern Sie ihn, 
so blinkt er langsamer. 

(Martin Kotulla/hg) 
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Der Flopp 
aufs Bit geschaut 


Fast jeder Computerbesitzer hat 
ein Diskettenlaufwerk. Wir zei- 
gen Ihnen, wie Sie ganz ohne 
Kenntnis von Maschinensprache 
Ihr Laufwerk voll ausreizen. 


Schneider CPC besteht im Prinzip 
nur aus zwei für den Programmie- 
rer interessanten Baugruppen. Da ist 
zum ersten der Ein-/Ausschalter für die 
Laufwerksmotoren, der über die Port- 
adresse FA7TE hex gesteuert wird. 
Durch den Befehl 
OUT &FATE,&01 
werden die Motoren aller Laufwerke 
ein- und mit 
OUT &FATE,&00 
wieder ausgeschaltet. Damit klärt sich 
auch die oft gestellte Frage, ob es kor- 
rekt ist, daß bei einem Zugriff auf eine 
Diskette die Motoren aller Laufwerke 
anlaufen. 

Das Herz der zweiten Baugruppe ist 
das IC mit dem Namen uPD765 - der 
eigentliche Disketten-Controller. Die- 
ser Baustein gibtsich dem Programmie- 
rer durch zwei Register, über die die 
Daten zwischen Computer und Lauf- 
werk ausgetauscht werden, zu erken- 
nen. Mit 


3 eder Disketten-Controller für den 


PRINT INP(&FB7E) 

wird der gerade aktuelle Zustand des 
Controllers und der angeschlossenen 
Laufwerke abgefragt. Mit 

OUT &FB7F, 

und 

PRINT INP(&FB7F) 

wird das Datenregister des Controllers 
beschrieben beziehungsweise gele- 


Befehle des Floppydisc-Controllers „PD765 


Befehlsname in Kommandophase zu sendende Bytes Resultatphase 
READ DATA <MTMFSKO0110> <XISJHDUSIZ)> CHRNEOTGPLOTL | STOSTISTZCHRN 
READ DELETED DATA | <MTMFSKO1100> <X(S)HDUSI2)> CHRNEOTGPLDTL | STOSTISTZCHRN 
WRITE DATA <MTMF X00101> <X(S)HDUS(2)> CHRNEOTGPLOTL | STOSTISTZCHRN 
WRITE DELETED DATA| <MTMF X01001> <X(SJHDUSI2)> CHRNEOTGPLOTL | STOSTISTZCHRN 
READ ATRACK <MTMESK00010> <X(S)HDUSI> CHFNSRGPLOTL | STOSTISTZCHRN 
READ ID <XMFX01010> <X(5)HDUSI2)> STOSTISTZCHRN 
FORMATATRACK | <XMFX01101> <xisiHDUSI2)> NSCGIFD STOSTI STZUUUU 
SCAN EQUAL <MIMFSK10001> <X(SJHDUSI2)> CHRNEOTGPLSIP | STOSTISTZCHRN 
SCAN LOW OREQUAL| <MTMFSK11001> <X(S)HDUSI2)> CHRNEOTGPLSIP | STOSTISTZCHRN 
SCAN HIGH OREQUALL <MTMFSK11101> <X(S)HDUS)> CHRNEOTGPLSIP | STOSTISTECHRN 
SENSEDRVESTATUS| <00000100>  <X(S)HDUSI2)> ST3 

RECALIBRATE <00000111> <Xe)ust2I> 

SEEK <o000i111> <X6} US2)> NEN 

SPECIFY <00000011> <SATM4)HUT)> <HLIZIND> 

SENSEINTERRUPT | <00001000> STOPEN 

STATUS 

INVALID BAD DUM 


INFO: Spitze Klammern »<Bits.. >« repräsentieren ein Byte, dessen Wert von Parameterbits abhängt. 
Ein Wertin runden Klammern hinter der Bezeichnung »{x)« gibtan, aus wievielen Bits sich der Parameter zusammensetzt. 


Tabelle 1. Die Befehle des Controllers ıPD765 


sen. Das »X« steht dabei für die einzu- 
gebenden Werte. Das funktioniert aber 
nur, wenn der Controller auch dazu 
bereit ist. Die abgefragten (oder ge- 
schriebenen) Werte enthalten zusätz- 
liche Zustandsmeldungen, Befehle für 
den Controller oder Daten, die zwi- 
schen Diskette und Computer übertra- 
gen werden sollen. 

Diese drei Adressen reichen aus, um 
die Laufwerke zu steuern. Alle anderen 
Bauteile des Controllers sind schal- 
tungstechnisches Beiwerk und damit 
für den Programmierer uninteressant. 

Die Controller von Schneider (Am- 
strad) und Vortex unterscheiden sich 
zwar in einigen Details, in der Funktion 
sind sie aber beide gleich. Somit sind 
alle erwähnten Portadressen identisch. 
Die folgenden Erklärungen gelten des- 
halb ohne Einschränkungen für belie- 
bige Kombinationen von CPC-Geräten 
und Diskettenstationen. Alle beschrie- 
benen Experimente können Sie mit den 
folgenden drei Programmen vorneh- 
men. Leider erweist sich das einge- 
baute Basic für solche Untersuchun- 
gen als ungeeignet. Deshalb sind alle 
Listings in Turbo-Pascal geschrieben. 
Aber auch wer nicht über diesen 
leistungsfähigen Compiler verfügt, 
braucht nicht verzweifeln. Auf der 
Leserservice-Diskette finden Sie die 
lauffähigen Programme. 

»Rundrive« (Listing 1) ist ein umfang- 
reicher Diskettenmonitor. Mit diesem 
Programm schicken Sie Kommandos 
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an den Controller, wobei alle Auswir- 
kungen am Bildschirm detailliert proto- 
kolliert werden. Das Programm über- 
nimmt alle zeitkritischen Routinen. Zum 
Absturz bringen Sie den Computer nun 
nicht mehr. Gleichzeitig bleiben aber 
alle sinnvollen Kommandos wirksam. 
Sie können also nichts falsch machen 
und dürfen bedenkenlos experimentie- 
ren. 

Im Vordergrund steht dabei der Lern- 
effekt. Siesehen, was man alles beach- 
ten muß, um eine bestimmte einfach er- 
scheinende Operation auszuführen. 
Mit dem Programm lassen sich aber 
auch Aufgaben erledigen, denen ein 
richtiger Diskettenmonitor nicht ge- 
wachsen ist. Zum Beispiel können Sie 
damit Disketten mit 40 Spuren in Lauf- 
werken doppelter Dichte (80 Spuren) 
lesen (und jede zweite Spur auch 
umgekehrt) oder bei entsprechendem 
Laufwerk doppelseitige Disketten mit 
dem Schneider-Controller. Ein dritter 
Zweck von Rundrive ist das Ausprobie- 
ren von Kommandos, um sie später in 
anderen Programmen einzusetzen. 

Rundrive besteht aus drei Teilen: dem 
Hauptprogramm aus Listing 1 und den 
beiden Include-Dateien »Convbyte« 
(Listing 2) und »Fdc« (Listing 3). Die 
genaue Funktion wird später erklärt. 
Zuerst tippen Sie die drei Program- 
me ein und speichern sie unter den 
Namen »RUNDRIVE.PAS« (Listing 1), 
»CONVBYTE.INC« (Listing 2) und 
»FDC.INC« (Listing 3). Die folgenden 
Experimente können Sie dann sofort in 
‚Angriff nehmen. 

Das Programm »Readid« (Listing 4) 
nimmt eine Diskettenanalyse vor und ist 
damit eine Anwendung dessen, wasSie 
mit Hilfe von Rundrive lernen. 

Ohne Speichererweiterung passen 
die Programme nicht in einem Stück in 
den Speicher. Aber keine Angst, Sie 
brauchen sich für dieses Programm 
nicht extra eine Speichererweiterung 
zulegen. Streichen Sie einfach die zwei 
Zeilen »$i...« (Zeile 9 und 10) aus dem 
Programm Rundrive und teilen Sie den 
Rest in zwei ungefähr gleichgroße 
Stücke auf. Vor der Zeile 
(* 512 Byte langen... 
trennen Sie den Code und speichern 
ihn unter dem Namen »Teili.INC« und 
‚Teil2.INC«. Auch die Datei Fdce muß an 
der Stelle 
(* Diskettenmotoren... 
geteilt werden. Der Anfang wird mit 
»FDC1.INC« und das Ende mit 
»FDC2.INC« gespeichert. Jetzt schrei- 
ben Sie ein neues Programm »RUN- 
DRIVE.PAS«, das nur aus einer einzigen 
Zeile besteht: 

(*$i FDC1.INC*) (*$i FDC2.INC) 
(*$i CONVBYTE.INC*) 
(*$i TEILL.INC*) (*$i TEIL2.INC*) 

Wählen Sie die Compiler-Option »C« 
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Einer der 171 nicht als erstes Kommandobyte erlaubten Werte, 
insbesondere 00 hex 


c Cylinder Number Zylindernummer in der ID des gesuchten Sektors 

D Data Wert, mit dem ein Sektor gefüllt wird 

DUM | Dummy Byte | Geletert wird hier immer der Wert 80 hex 

DIL Data Length Wenn N Null ist, gibt DTL die Anzahl der zu übertragenden Bytes an 

EOT ‚End of Track Letzte Sektornummer auf einem Zylinder. 
Nach dem Lesen/Schreiben eines Sektors dieser Nummer bricht 
‚der Controller die Operation ab. 

F First Sector Nummer des ersten Sektors auf der Spur 

GPL | Gapuengtn Zei, während der der Controller nach dem Lesen/öchreiben eines 
Sektors Signale von der Diskette nicht beachtet. 

3 1 DRRE SEE EIERBEENN 

GLF Gap Length Format ‚Abstand zwischen zwei Sektoren In Bytes 

H Head Address Kopfadresse in der ID der gewünschten Sektoren 

HD Head gewünschte Kopfnummer des Laufwerks 

Hır Head Load Time Zeit zwischen Aufsetzen des Schreib-/Lesekopfes und Schreib-/ 
Lesebeginn (01=2 ms: .. 7F=254 m: bei MHz Takt 
(bei 4 MHz 4 ms: ... 508 msi) 

HUT Head Unioad Time Zeit zwischen Ende von Schreiben/Lesen und Abheben des 


Schreib-/Lesekopfes (01=16 ms: 
(bei 4 MHz 32 ms: ... 508 ms:) 


OF=240 ms: bei 8MHz 


'FM- or MFM Mode O0=Single Density, 1=Double Density 


Multi Track 1=nach dem Ende von Seite O mit Seite 1 weitermachen, 
O=nach dem Ende von Seite 0 Abbruch 
N Number ‚Anzahl der Bytes in einem 


‚Sektor 
00=128 Byte, 01:=256, 02=512, 03=1024, ... 06:=8192 


New Cylinder Number 


Zylinder, auf den der Schreib-/Lesekopf gestellt wird (unabhängig 
von den Werten in den Ids der Sektoren dieses Zylinders) 


Non-DMA Mode 


1, wenn Operation nicht mit Hilfe einer DMA abgewickelt wird 


Present Cylinder Number 


aktuelle Position des Schreib-/Lesekopfes 


[Record 


ID-Nummer des zu lesenden Sektors 


Sector 


‚Anzahl der Sektoren pro Zylinder 


Skip 


= 


1, wenn Sektor mit »Deleted Data Adress Marke 
übersprungen wird 


Sectors Read 


‚Anzahl der zu lesenden Sektoren 


‚Step Rate Time Zeit, die der Schreib-/Lesekopf zum Spurwechseln braucht 


(OF=1 ms:, OE=2 ms:, 
(bei.4 MHz 2 ms: ... 32 


00=16 ms: bei 8 MHz Takt) 


Status O 


Inhalt des Statusregisters O 


sm Status 1 Inhalt des Statusregisters 1 
st2 Status 2 Inhalt des Statusregisters 2 
sTa Status 3 Inhalt des Statusregisters 3 
sıP Step Sektorversatz beim Durchsuchen mehrerer Sektoren 
(A<alt> + STP — R<nächst>) 
Undefined Diese Werte haben keine Bedeutung 
Unit Select Welches Laufwerk wurde gewählt (0,...,3)? 


beliebiger Wert, in der Regel steht hier aber O 


Tabelle 2. Byte-Namen in Klarschrift 


und schon wird das neue Programm 
auch ohne Speichererweiterung com- 


piliert. 


Laufwerke zu tun. Ein Beispiel dafür ist 
das dritte Laufwerk bei dem Vortex- 
Controller. Die eingebauten Laufwerke 
benutzen die Geräteadressen O und 1. 


Ein Schneider-3-Zoll-Laufwerk liegt 
Was kann der normalerweise ebenfalls auf einer die- 
„PD765? ser Geräteadressen. Der bei Vortex 


erhältliche Adapterstecker macht 


nichts anderes, als die Anschlußleitun- 


Der uPD765 kann bis zu vier Lauf- 
werke mit den Nummern O bis 3 steu- 
ern. Diese Nummern haben jedoch 
nichts mit den Kennbuchstaben für die 


gen so raffiniert zu vertauschen, daß 
beim Aufruf der Adresse 3 die Nummer 
1 oder O resultiert. Das Kommando 
»S2« schaltet nicht etwa durch dubiose 


Status-Register 0 Tricks das eingebaute Laufwerk ab, N 
sondern setzt nur ein Flag (Merker). ı 


Bit N: utui . P N 
- ame ee) - Beim nächsten Zugriff auf das Lauf- |) 
D7-D6 Interrupt Code 00: Kommando korrekt ausgeführt, normales Ende werk B wird durch die Abfrage dieses ii 
01: gestartetes Kommando nicht erfolgreich beendet Merk fest: tellt, di x 

10: Ungültiges Kommando angefordert. Nicht gestartet jerkers festgestellt, ob nun die 
11: Abbruch, weil Ready-Signal vom Laufwerk geändert Schreib-/Leseroutinen für das Laufwerk L 

D5 Seek End 1, nachdem SEEK-Kommando vervollständigt | = der ee 3 Der it En 

D4 Equipment Check 1, wenn Laufwerk Fehler meldet oder bei RECALIBRATE nach 77 ii 4 Br N h ee er on 
Schritten Spur O nicht gefunden wurde Sn = WE a ns jender 4 ae h 

nen Sie soı 

03 Not Ready 1. wenn ein Schreib-/Lesekommando angefordert wurde und Lauf- hließ N Ber = Ki ve e: N 

werk noch nicht Ready meldete oder nach Versuch, Kopf 2 eines anschließen. Beim Schneider-Control- 

Einzelkopflaufwerkes anzusprechen ler ist ein ähnlicher Trick leider nicht 

D2 Head Address. Nummer des betroffenen Kopfes. Sn een megleh da 

ickler die n - 

D1-D0 | Unit Select Nummer des betroffenen Laufwerkes a eliia D ln 


schlußleitungen eingespart haben. 


Status-Register 1: Der „PD765 unterstützt zwei ver- 
schiedene Aufzeichnungsverfahren, 


Name Bedeutung die sich in der Codierung der Bits unter- 
End of Cylinder 1 nach Versuch, Sektor hinter Spurende anzusprechen scheiden. Das erste trägt den Namen 
nicht verwendet, immer 0 »IBM 3740 single density format« (oder 
D5 Data Error (CRC-Lesefehler im ID- oder Datenfeld eines Sektors N andere »IBM-System 34 
D4 Over Run Controller vom Programm während Datenübertragung nicht goublerdeneity fonmete oder gaucn 
schnell genug bedient »MFM«. Da die Unterschiede beim Pro- 
jrammieren nicht in Erscheinung tre- 
D3 9 
Me ten, sondern nur, wenn Sie den Lauf- 
D2 No Data, Nach READ DATA, WRITE DELETED DATA oder SCAN: 3 enam il 
1, wenn angeforderter Sektor nicht gefunden wurde werken mit‘ einem! Osziloskop zulsibe; | 
rücken, gehen wir hier nicht näher dar- | 
Nach READ ID: Ss 
1, wenn ein ID-Feld nicht fehlerfrei gelesen auf ein. 
Nach READ A TRACK: In der Praxis kommt meist das neuere 
1. wenn Sektor nicht fortlaufend numeriert ist MFM-Verfahren zur Anwendung, weil 
D1 Not Writable 1. wenn Laufwerk während WRITE DATA, WRITE DELETED DATA man damit durch einige ausgeklügelte 
oder FORMAT A TRACK Schreibschutz meldet Tricks bei der Codierung in einem 
D0 Missing Address Mark | 1, wenn das Indexioch zweimal entdeckt wurde, bevor ein ID-Feid | bestimmten Abschnitt der Diskette bei 
oder ein Datenfeld gefunden wurde. Im letzten Fall wird zugleich i i 18 
Ererretn ee 
2 bringt. Daneben erfolgt die Datenüber- 
Status-Register 2: g 
tragung doppelt so schnell. 
Bit Name Bedeutung Die beiden Aufzeichnungsverfahren 
D7 nicht verwendet, immer O stehen jeweils in zwei Varianten zur Ver- 
D6 Control Mark 1. wenn während READ DATA oder SCAN ein Sektor mit einer fügung: mit den Frequenzen 250 KHz 
Deleted Data Address Mark entdeckt wurde und 500 KHz. Die Auswahl erfolgt, 
05 Data Error 1. wenn im Datenfeld eines Sektors ein indem ein Anschluß eines ICs im Con- 
in Data Field CRC-Lesefehler auftrat troller entweder mit Masse oder mit 5 
D4 Wrong Zylinder 1, wenn die angeforderte Spurnummer mit der auf der Diskette Volt verbunden wird. Dadurch wird der 
verzeichneten nicht übereinstimmte (ähnlich Bit 2 von Register 1) „PD765 entweder mit 4 MHz oder mit 
D3 Scan Equal Hit 1. wenn während eines SCAN-Kommandos die Bedingung x MEZ nt En en 
gleiche erfüllt war nschluß bei den Schneider-Compu- 
D2 Scan Not 1. wenn während eines SCAN-Kommandos kein Sektor gefunden tern ständig auf Masse, so daß nur die 
Satisfied wurde, der die Bedingung erfüllte Taktfrequenz von 4 MHz und damit eine 
D1 Bad Oylinder 1, wenn der Sektor auf der Diskette die Spurnummer FF enthält Signalfrequenz von 250 KHz möglich 
und eine andere Spurnummer angefordert wurde ist. Die höhere Aufzeichnungsge- 


(ähnlich Bit 1 von Status-Register 1) schwindigkeit wird allerdings auch nur 


bei 8 Zoll und bei einigen äußerst exoti- 
schen 5"/4-Zoll-Laufwerken einge- 
setzt. International hat sich die nied- 
rigere Geschwindigkeit durchgesetzt, 
so daß es nur wenige Computer gibt, 


Missing Address Mark 
In Data Field 


1, wenn beim Lesen eines Sektors zwar eine ID Address Mark, 
aber keine Data Address Mark oder Deleted Data Address 
Mark gefunden wurde 


Status-Register 3: 


Bit Name Bedeutung deren Disketten von Laufwerken am 
D7 Fault Zeigt den Zustand des Fehlersignals des angesprochenen Schneider PC nicht gelesen werden 
Laufwerks an können. Vom Computer aus gesehen, 


verhalten sich übrigens Laufwerke in 


06 Wiite Protected Zustand des Schreibschutz-Signals vom Laufwerk 5 
55 er aa Sinai des Lauer verschiedenen Formaten (also 3, S3'/a- 
us oder 5"/4-Zoll) vollkommen identisch. 
Er TBERO) SerD, mel vorn Läufeerk Zur Datenübertragung zwischen 
D3 Two Side Signal, ob Laufwerk doppelseitig Computer und Controller unterstützt 
D2 Head Address Welcher Kopf des Laufwerks wurde angesprochen? der «PD765 drei Verfahren: Bei der 
1-00 | Unit Select Welches Laufwerk wurde angesprochen? ersten Methode generiert der Control- 


ler, sobald ein Byte übertragen werden 
Tabelle 3. Die Bedeutung der Statusregister soll (egal in welcher Richtung), einen 
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Interrupt. Bei den Geräten von Schnei- 
der ist aber die Interruptleitung des 
Controllers nicht mit dem Computer 
verbunden. Diese Methode darf also 
nicht eingesetzt werden. 

Der zweite Weg dient zur Zusammen- 
arbeit mit einem DMA-Controller (DMA 
= Direkt Memory Access). Beim Über- 
tragen von langen Dateien mit vielen 
Bytes 'vertrödelt die CPU die meiste 
Zeit damit, festzustellen, daß tatsäch- 
lich nichts weiter gemacht werden soll, 
als ein Byte zu übertragen, und mit der 
Kontrolle, ob die Übertragung zu Ende 
ist. Ein DMA-Baustein leistet nun außer 
dem Übertragen von Bytes überhaupt 
nichts anderes. Die oben erwähnten 
Entscheidungen der CPU braucht und 
kann er gar nicht treffen. Die Folge ist, 
daß die Datenübertragung mit DMA bei 
einem Z80 10- oder 20mal schneller 
erfolgt als ohne DMA. Leider gibt es bis 
heute für die Schneider-Computer 
noch kein Zusatzgerät mit eingebauter 
DMA. Damit fällt auch diese Steuerung 
weg. 

Bei den Schneider-Computern bleibt 
also nur noch die dritte, die »Polling- 
Methode«. Hierbei meldet der uPD765 
im Statusregister, daß ein Byte übertra- 
gen werden soll. Die CPU testet dann in 
einer Schleife ständig, ob Daten zum 
Übertrag vorliegen. 

Der „PD765 überprüft nicht, ob bei 
den einzelnen Operationen die Disket- 
tenmotoren eingeschaltet sind oder 
nicht. Darum müssen Sie sich selbst 
kümmern. Klar ist, daß die Motoren bei 
allen Operationen, die Daten lesen oder 
schreiben, eingeschaltet sein müssen. 
Aber auch beim Aufsuchen einer be- 
stimmten Spur muß diese Bedingung 
erfüllt sein. Bei allen anderen Operatio- 
nen dürfen die Motoren allerdings aus- 
geschaltet bleiben. Nach dem Einschal- 
ten der Motoren müssen Sie (bezie- 
hungsweise Ihr Programm) den Moto- 
ren etwas Zeit lassen, um richtig in 
Schwung zu kommen. Sonst erhalten 
Sie ständig scheinbar unerklärliche 
Fehlermeldungen. Im Normalfall ist bei 
den Schneider-Computern eine Warte- 
zeit von einer Sekunde voreingestellt. 
Sie können aber auch mit anderen Zei- 
ten experimentieren. Beim Ausschalten 
erweist es sich als günstig, den Motor 
interruptgesteuert noch einige Sekun- 
den nachlaufen zu lassen. Bei einem 
kurzfristigen nächsten Einschalten 
spart das dann die Hochlaufzeit. 

Der „PD765 kennt 15 Kommandos, 
die in Tabelle 1 aufgelistet sind. Alle 
Kommandos sind nach demselben 
Schema aufgebaut. Jedes besteht aus 
einer Kommandophase, dem Ausfüh- 
rungsbereich und dem Ergebnis. In der 
Kommandophase werden zwischen 
einem und neun Byte vom Computer an 
den Controller übertragen. Sie geben 
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an, welches Kommando ausgeführt 
werden soll. Das erste Byte sagt dabei, 
welches Kommando angesprochen ist 
(zum Beispiel »Lies Sektoren«). Daraus 
ergibt sich die Zahl der weiter zu über- 
tragenden Bytes, die nötig sind, um das 
Kommando genauer zu beschreiben 
(zum Beispiel welchen Sektor). 


In der nächsten Phase wird die Ope- 
ration ausgeführt. Es werden entweder 
Daten von der CPU an den uPD765 
(beim Schreiben), vom Controller an die 
CPU (beim Lesen) oder auch gar nichts 
übertragen. Sobald die Operation abge- 
schlossen ist, folgt die Ergebnisphase. 
Dabei werden einige Statusbytes vom 


comtab = array[0..8] of byte; 


restab = array[0..6] of byte; 


[ERERELERETERTTETELTETTTTEUTTELETUTETTETETEEEETETDTEETETDTETDLTTELTELELE LTE) 


(*  Experimentierhilfe zum Direktzugriff auf Disketten-Controller uPD765 *) 
“ - ein 'Diskettenmonitor' - “) 
(x hardwareunabhaengige Teile des Programms *) 
(x (Vers. 16.07.1986) *) 
(RHUROREORIOEI AO) 
(* Einbinden der Module, die das Programm benoetigt ") 
[$1 fac.ine]) (* hardwareabhaengige Teile der Laufverksteuerung iD) 
$iconvbyte.ine] (* verschiedene Konvertierungen von Bytes zu Strings *) 
| 
const vers: string[8] = '16.07.86'; (* aktuelle Programmversion *) 
maxtoken = 20; (* maximale Argumentangahl in der Eingabezeile *) 
maxbuffer = 10239; (* Datenpufferlaenge fuer Datenuebertragung *) 
type line = string[80]; (* Eingabezeilen x) 


token = array[0..maxtoken] of integer; 


exectab = array[O..maxbuffer] of byte; 


(x dekodierte Eingaben x) 
(* Befehlsbytes FDO-Kommando *) 
(* Datenpuffer fuer Laufwerk *) 
(* Zustandsmeldung des Controllers *) 


var laenge, anfang, ende, i:integer; 
begin 

© := upcase(s[1]); 

fehler := 05 1 := 0; 
length(s); 


ı= 2; 
while s[ende] 
while (ende 

begin 
anfang 
ende : 

if ende = anfang - 1 

then ende := laenge + 1; 
1 := suce(1); 


ende; 


while s[ende] = ' ' do ende 
end; 

if fehler <> O then begin 1 

[0] :=i 


end; 


var result: restab; var busy: byte); 
var 1: Integer; 
begin 

if werte[0] > 9 then werte[0] := 


fillchar(result, 7, 0); 
fdeinterrupt(0); 


fäcinterrupt(1); 

write('Command: '); 
for i. 
write('Result: '); 


var command: eomtab; (% Raum fuer Komnandobytes fuer Controllerbefehl *) 
execute: exeetab; (* Raum fuer von/an zu uebertragende Bytes “ 
result: restab; (* Raum fuer Zustandsmeldung des Controllers *) 
werte: token; (* dekodierte Eingaben *) 
eingabe: line; (* Eingebezeilen *) 
befehl: char; (* Welcher Befehl wird gewuenscht? *) 
start, (* Ab welchem Byte wird Puffer gefuellt? *) 
fehler: integer; (* Fehlerposition in der Eingabezeile *) 
busy: byte; (* Welche Laufwerke sind gerade aktiv? *) 


(* Eingabezeile untersuchen, Kommando und Hexzahlen heraussuchen *) 
procedure scanline(var s:line; var e:char; var w: token; var fehler: integer); 


(* Befehlscode zurueckgeben *) 
(* kein Fehler, kein Schluesselwort *) 


" " do ende := suce(ende); 
laenge) and (1 <= maxtoken) and (fehler = 0) do 


anfang - 1 + pos('! ',copy(s, anfang, laenge)); 
(* wenn nicht gefunden, dann bis Ende *) 


(* Zahl hexadezimel betrachten und Wert ablegen *) 
val('$' + copy(s,anfang,ende-anfang), w[i], fehler); 
succ(ende); 


pred(i); fehler 


(* Disketten-Operation ausfuehren mit Anzeige der Ergebnisse *) 
procedure operate(var werte: token; var command: comtab; var exeoute; exeotab; 


for 1:= 1 to werte[0] do command{i - 1] := werte[i]; (* in Commandtabelle *) 
busy := fdecall(command[0],execute[0],result[0]); 


0 to 8 do write(convhex(command[i]), ' '); writeln; (* hexadezimalt) 


Listing 1. »Rundrive« - eine Experimentierhilfe 


(* Laenge der Eingabezeile *) 
(* erste Zahl suchen *) 
(* Space nicht beachten *) 


(* Ende der Zahl suchen *) 


(* Space nicht beachten *) 


anfang end; 
(* Anzahl der Befehlsargumente *) 


(* hoechstens 9 Argumente erlaubt *) 


(* Zustands-Tabelle loeschen #) 
(X Interrupts sperren *) 
(* Disketten-Operation *) 
(* Interrupts erlauben *) 
(* Kommandobytes anzeigen *) 


(* Controllerzustand ausgeben *) 


for i:= 0 to 6 do write(eonvhex(result[i]), ' '); writeln; (* Hex *) 
write(' 1) 

for i:= 0 to 6 do write(convbin(result[i]), ' '); weiteln; (= binser 
writeln('Busy:  ', copy(convbin(busy), 5, 4)); (* Drives beschaef‘ 


end; 


(* 512 Byte langen Datenpufferausschnitt anzeigen, ab Versatzadresse *) 
procedure showbuffer(var werte: token; var execute: exectab); 
var i, start, zeichen: integer; 
begin 
if werte[0] = 0 then start := 0 
else start := werte[1] shl 9; 
write('Execute: '); 
for i := start to start + 511 do 
begin 
zeichen := exeeute[i] and 127; 
if (zeichen < 32) or (zeichen = 127) 
then write('.') else write(chr(zeichen)); 
if (i and 63) = 63 then (* 64 Byte in einer Zeile ®) 
begin writeln; write(' ') end 
end 
end; 


(% ohne Argumente Standerdpuffer *) 
(% Puffernummer mal 512 (=Pufferlaenge) *) 


(* 512 Byte eines Puffers ausgeben *) 


(* Steuerzeichen ausblenden *) 


(* Diskettenmotoren ein- oder ausschalten *) 
procedure motor(var werte: token); 
begin 
if werte[0] = 0 then fäemotor(0) 
else fdemotor(werte[1]) 
end; 


(* ohne Argumente ausschalten *) 
(# sonst wahlweise *) 


(# gewaehlten Datenpuffer loeschen *) 
procedure elearbuffer(var werte: token; var execute: exeotab; start: integer); 
begin 
if werte[0] = 0 then werte[1] := 0; 
fillchar(execute[start], 512, werte[1]) 
end; 


(% ohne Argument mit Null loeschen *) 
(* Loeschen ab ektuellem Puffer *) 


(* gewaehlten Datenpuffer mit bestimmten Bytes beschreiben *) 

procedure setbuffer(var werte: token; var execute: exectab; start: integer); 

var A:integer; 

begin (* Argumente in aktuellen Puffer kopieren #) 
for 1 := 1 to werte[0] do execute[start + 1 - 1] := werte[i] 

end; 


(* gewaehlten Datenpuffer mit Text beschreiben *) 

procedure writebuffer(var eingabe:line; var execute: exectab; start :integer); 

begin (* Eingabezeile ab zweiten Zeichen in aktuellen Datenpuffer kopieren *) 
move(eingabe[2], execute[start], length(eingebe) - 1) 

end; 


(# 512 Byte-Datenpuffer in anderen Datenpuffer kopieren *) 
procedure copybuffer(var werte: token; var execute: exectab); 
begin (* nur wenn mindestens Quellpuffer angegeben *) 
if verte[0] <> O then if werte[0] = 1 
then move(execute[werte[1] shl 9], execute, 512) (# in ersten Puffer *) 
else move(execute[werte[1] shl 9], execute[werte[2] shl 9], 512) 
end; (* aus Puffernunner in zweiten Argument Zieladresse berechnen *) 


(* zu aendernden Datenpuffer waehlen *) 

procedure seleetbuffer(var werte: token; var start: integer); 

begin (* wenn Argument, dann Puffernunmer mal 512(=Pufferlaenge) *) 
if werte[0] = O then start := 0 else start := werte[1] shl 9 

end 


(* Alle erlaubten Eingaben auflisten *); 
procedure help; 


begin 
writeln; 
writeln('Experimentierhilfe fuer Disketten-Controller „PD765 und aehnliche'); 
weiteln(! (Vers. ', vers, ', angepasst fuer ', computertyp, ')'); 
writeln; 
writeln('erlaubte Eingaben: (alle Zahlen hexadezimal)'); 
writeln(! Add -> 512 Byte-Datenpuffer auswaehlen'); 
writeln(' Cdl d2 d3 .. d9 -> Kommando an Disketten-Controller uebergeben'); 
writeln(' Dad -> 512 Byte-Datenpuffer Nr. di anzeigen'); 
writeln(' E -> Programmende'); 
writeln(' Fad -> gewaehlten Datenpuffer mit Wert di fuellen'); 
writeln('! H -> Hilfe); 
writeln(' Kal d2 -> Datenpuffer di in Datenpuffer d2 kopieren'); 
writeln(' Mdd -> 0 = Laufwerksmotoren abschalten, sonst ein'); 
writeln(' Sal d2d3... -> Bytes in gewaehlten Datenpuffer schreiben'); 


Listing 1. »Rundrive« - eine Experimentierhilfe (Fortsetzung) 


Controller an die CPU übertragen. Der 
Inhalt dieser Bytes gibt detailliert dar- 
über Auskunft, ob die Operation er- 
folgreich war und wenn nicht, welche 
Fehler auftraten. Bei einigen Operatio- 
nen gibt es allerdings keine Ergebnis- 
phase. 

Der Controller nimmt esmit den in der 
Kommando- und der Ergebnisphase zu 
übertragenden Bytes sehr genau. So- 
bald ein einziges Byte abgeschickt 
wurde, müssen auch alle anderen über- 
tragen werden. Wenn es sich das Pro- 
gramm nach der Hälfte der Daten 
»anders überlegt«, so wartet der Con- 
troller bis zum Ausschalten auf die feh- 
lenden Bytes. In der Ergebnisphase 
müssen ebenso alle Bytes abgeholt 
werden, bevor ein neues Kommando 
angefordert wird. 

Das Statusregister des uPD765 darf 
zwischen Kommando- und Ergebnis- 
bytes erst nach einer Wartezeit von 
0,5 „sek abgefragt werden. Ganz weg- 
lassen dürfen Sie diese Abfrage aber 
auch nicht. Bei Kommandos ohne Er- 
gebnisphase dauert es nach dem letz- 
ten Datensatz einige Zeit, bis das Kom- 
mando tatsächlich beendet ist. Um zu 
vermeiden, daß das Programm noch ein 
weiteres Byte überträgt, das dann vom 
Controller als nächstes Kommando 
interpretiert wird, muß also eine Warte- 
schleife eingefügt werden. Trotz Min- 
destwartezeit muß man aber auch das 
Maximum beachten. Beim Übergang 
von der Kommandophase zur Ausfüh- 
rungsphase ist die maximale Ausfüh- 
rungszeit wieder recht knapp bemes- 
sen. Unkritisch in bezug auf die Anzahl 
der zu übertragenden Bytes ist allein 
die Ausführungsphase, Dafür muß sich 
hier das Programm sputen, damit die 
mit einer Geschwindigkeit von einer 
Viertelmillion Bit pro Sekunde übertra- 
genen Bytes rechtzeitig verarbeitet 
werden. Denn sonst gehen einige Infor- 
mationen verloren. Zudem kann sich 
das Programm auch hier aufhängen, 
beispielsweise wenn es darauf wartet, 
ein Byte zum Controller senden zu kön- 
nen, während dieser gerade Bytes 
abliefert. 

Im Hauptstatusregister meldet der 
uPD765 ständig, in welchem Zustand 
er sich gerade befindet. Bit 7 ist ge- 
setzt, wenn der Controller auf ein Byte 
wartet oder ein Byte zum Abholen 
bereitliegt. Bit 6 gibt an, in welche Rich- 
tung die durch Bit 7 gemeldete Daten- 
übetragung erfolgen soll. Ist Bit 6 Null, 
so wartet der Controller auf ein Byte 
vom Prozessor. Andersherum liegt ein 
Byte zum Abholen bereit. Bit 5 hat wäh- 
rend der Befehlsausführung den Wert 
1, sonst den Wert O. Bit 4 hat den Wert 
1, während ein Kommando in Arbeit ist 
(also die ganze Zeit zwischen dem 
ersten Kommandobyte und dem letzten 
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Ergebnisbyte). Bit O, 1, 2 oder 3haben 
den Wert 1, wenn der Schreib-/ 
Lesekopf des Laufwerks auf der Gerä- 
teadresse 0, 1, 2 oder 3 dabei ist, eine 
neue Spur aufzusuchen, die Anforde- 
rung des Spurwechsels aber schon 
beendet ist. 

Reicht es Ihnen nun schon von den 
ganzen Bits und davon, wann welches 
warum den Wert 1 oder O annimmt? Das 
dachten wir uns auch und schrieben 
deshalb ein kleines Unterprogramm, 
das diesen ganzen »Kleinkram« erle- 
digt. Dem Programm müssen nur drei 
Tabellen übergeben werden. Wie die 
Tabellen zu behandeln sind, entschei- 
det es selbst. Es verläßt sich dabei ganz 
auf die Statusbits, die der uPD765 
liefert. 

Solange der Controller Kommando- 
bytes anfordert, liefert das Programm 
diese aus der Kommandotabelle (auch 
auf die Gefahr hin, daß ein paar unsin- 
nige dabei sind). Danach überträgt es 
die Daten zwischen Ausführungstabel- 
le und Controller, wobei der Controller 
die Richtung angibt (auch wenn der 
Programmierer eine andere erwartete), 
bis diese Phase zu Ende ist (auch wenn 
einige nicht benötigte Bytes gelesen 
oder bedeutungslose geschrieben 
werden). Zum Schluß werden solange 
Bytes in die Ergebnistabelle übertra- 
gen, bis der Controller das Komman- 
doende meldet (auch wenn die Bytes 
wegen eines unsinnigen Kommandos 
nicht erwünscht sind). 

Während eines Befehls ist der Con- 
troller also Herr über den Computer. Für 
diese Freiheit revanchiert er sich damit, 
daß sich der Computer niemals auf- 
hängt und nach dem Ende des Unter- 
programms der Controller sofort für ein 
neues Kommando bereitsteht. Die Zahl 
der übertragenen Bytes hält sich dabei 
allerdings in Grenzen. Als Ergebnis lie- 
fert das Unterprogramm den Zustand 
der Bits O bis 3 des Hauptstatusregi- 
sters, also welche Schreib-/Leseköpfe 
gerade eine neue Spur aufsuchen. Die 
Bits 4 bis 7 haben nur innerhalb des 
Unterprogramms eine Bedeutung und 
werden deshalb mit dem Wert O zu- 
rückgegeben. Nur ein Fehler kann 
somit theoretisch auftreten: Wenn der 
Controller am Anfang des Unterpro- 
gramms nicht bereit ist, ein Kommando 
zu übernehmen, so gibt das Unterpro- 
gramm den Wert FF hex zurück. Das 
kommt aber in der Regel nicht vor. 

Aus Zeitgründen istes notwendig, die 
Bedienungsroutine für den Controller in 
Assembler zu schreiben. Für nicht so 
zeitkritische Experimente verwendet 
man aber bequemer eine höhere Pro- 
grammiersprache. Damit haben auch 
Nicht-Assemblerkundige die Chance, 
eigene Experimente vorzunehmen. 

In der Datei »Fdc« ist deshalb das 
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writeln(' Tetttttttttt.. 

writeln; 

writeln(' 
end; 


-> Text in gewaehlten Datenpuffer schreiben'); 


",convhex((maxbuffer+1)shr 9),'h 512 B-Datenpuffer verfuegbar'); 


(* Hauptprogramm *) 
begin 
help; 
start 
repeat 
writeln; write('===> '); readin(eingabe) ; 
soanline(eingabe, befehl, werte, fehler); 
case befehl of 
: selectbuffer(werte, start); 
operate(werte, command, execute, result, busy); 
showbuffer(werte, exeoute); 


; fillchar(command, 9, 0); (* Kommando loeschen und Puffer 0 *) 


writeln(!=---- Ende ----- 5 
elearbuffer(werte, execute, start); 
help; 

copybuffer(werte, execute); 


: motor(werte); 
ı setbuffer(werte, execute, start); 
ı writebuffer(eingabe, execute, start); 
else writeln('####% falsche Eingabe ###Ak*') 
end 
until befehl = 'E'; 
end. 


Listing 1. »Rundrive« - eine Experimentierhilfe (Schluß) 


(* Byte in binsere Schreibweise umwandeln *) 

type binstring-string[8]; 

function convbin(z:byte) :binstring; 

var erg:binstring;begin 
Anline($3a/2/$21/erg/$4£/806/$08/870/823/$a£/$cb/$11/8ce/$30/877/810/8£7); 
eonvbin:=erg end; 


(* Byte in hexadezimale Schreibweise umwandeln *) 

type hexstring-string[2]; 

funetion convhex(z:byte):hexstring; 

var erg:hexstring;begin 
inline($21/erg/$3a/2/836/802/$42/$12/81f/812/31/$e6/$07/$06/890/327/$ce/840/ 
$27/$23/877/379/326/$02/$c6/890/327/$ce/$40/827/323/$77); 


convhex:=erg end; 


Listing 2. »Convbyte« wird Wandlung genannt 


\ Funktionen zun Direktzugriff auf den Disketten-Controller „PD765 X) 
fuer Z80-Computersystene 

ir hier: Einbindung der Maschinensprache passend fuer Turbo-Pascal, OP/M-BO Bi 

(x (ec) by Isar-Amper-Soft (Vers. 06.08.1986) 

Ener re mEl retro] 


(RRROOCOOERKRRERRRRSRRRERRICERRKERRER) 


(* notwendige Ein/Ausgabe-Portadressen zum Steuern der Laufwerke: *) 
* “) 
(* FDCPOR: Statusregister Disketten-Controller *) 
(#* (Datenregister hat automatisch Adresse (FDCPOR + 1) *) 
(# NOTPOR: Portadresse zum Steuern der Diskettenmotoren *) 
(x Datenbyte zum Motoreinschalten (ueber Port MOTPOR) *) 
(x : Datenbyte zum Motorausschalten (ueber Port MOTPOR) *) 


const FDCPOR: Integer = $fb7e; 
MOTPOR: Integer = $fa7e; 
MOTON: byte = $01; 
MOTOFF: byte = 00; 


(* Adresswerte an eigene Hardware anpassen *) 
(* hier: Adressen fuer Schneider OPC, *) 
(# Schneider- oder Vortex-Controller “) 


eonst eomputertyp: string(.13.) = "Schneider CPC'; (X Name des Computers *) 
(* Laufwerk-Operation ausfuehren *) 
(* comman, execut und result muessen Elemente eines Feldes vom Typ *) 
(* "array(.O..max.) of byte” sein. Die zu uebertragenden Bytes werden in *) 


(* dem Feld aufeinanderfolgend hinter dem angegebenen Feldelement abgelegt. *) 


funetion fäccall(var comman, execut, result: byte) byte; 
var busy: byte; 


Listing 3. »Fde« - Direktangriff auf den Controller 


begin 
Inline( 
$ED/$4B/FDCPOR/ 
BED/$5B/COMMAN/ 
S2A/RESULT/ 


8E5/ 
S2A/EXECUT/ 


$ED/878/ 
387/ 

930/811/ 
BE6/SEL/ 
$3E/SFF/ 
320/862/ 


S/ 
913/ 
800/ 
$ED/879/ 


80D/ 
93E/805/ 
83D/ 
#20/8FD/ 
SED/978/ 


938/80D/ 
S3E/80A/ 
33D/ 

320/3FD/ 
SED/878/ 
$E6/810/ 
$20/8DF/ 
$18/83B/ 


B7E/ 
300/ 
$ED/879/ 
$0D/ 


323/ 

$ED/878/ 
$F2/R-3/ 
$E6/$20/ 
920/8F1/ 
s18/812/ 


387/ 
$30/80F/ 


800/ 
$ED/$78/ 
80D/ 
977/ 
923/ 
$ED/878/ 
BP2/K-3/ 
3E6/320/ 
920/8F1/ 


$ED/$78/ 


HH: Vorspann zum Einsatz unter Turbo-Pascal 

;1. Arg (Controllport) 
;2. Arg (Command-Tab) 
;4. Arg (Result-Tab) 
liegt auf Stapel 

53. Arg (Execute-Tab) 


1d be,(fdepor) 
1d de,(comman) 
14 hl,(result) 
push hl 
14 hl, (execut) 
50H Ausfuehren der Controller-Operation 
; (Vorbereitung der Operation) 
wait0O: in a,(c) 


add a,a ;Uebertragung moeglich? 
jr ne,wait3e jnein -> warten 

and OE1 hex ijetzt Kommando fertig? 
14 a,0PF hex ;Flag fuer Fehler 

Jr nz,fäcerr ;darf nicht vorkonnen 


;(Kommandophase: Ausgabeschleife) 
waitie: 1d a,(de) 


ine de 

inc c ;Datenregister FDC 
out (c),a ‚Byte senden 

dee c ;Statusregister FDC 
1d 2,5 ;kurze Pause 


wait2e: deo a 
Jr nz,wait2c 
wait3e: in a,(c) 
add a,a 


Jr ne,wait3c jnein -> warten 
add a,a ;Datenriehtung lesen? 
jr o,wait3e ;ja -> Lese oder Result 
add a,a ;Exeoute-Phase? 
jr e,waitie ;ja -> Schreibschleife 
14 a,10 jkurze Pause 

weite: deo a (Zeit zum Komnando- 
jr nz,waltse jebschluss benoetigt) 
in a,(e) 
and 10 hex Kommando abgeschlossen? 
jr nz,waitic mein -> Konmandobyte 
jr fäcend ;Kommandoende 


;(Ausfuehrungsphase: Schreibschleife) 
waitie: 14 a,(hl) 


ine c ;Datenregister FDC 
out (e),a ;senden 

dee c ;Statusregister FDC 
ine hl jnaechstes Byte 


wait2e: in a,(c) ;Status holen 
jp p,waitze ‚Warten bis bereit 
and 20 hex ;Ende der Vebertragung 
jr nz,waitie ;nein -> weiter senden 
jr waitir ;Result-Phase 


;(Ausfuehrungsphase: Test, ob Leseschleife noetig) 
;Ausfuehrungsphase? 
;nein -> Resultschleife 


weite: add a,a 
jr no,waitir 
;(Ausfuehrungsphase: Leseschleife) 


waitse: ine c ;Datenregister FDC 
in a,(c) ;Byte empfangen 
dee c ;Statusregister FDC 
14 (h1),a 
ine hl ;naechstes Byte 


wait5e: in a,(c) Status holen 


jr nz,wait4e 
;(Result-Phase: Vorbereitung) 
waitir: ex (sp)‚hl 
wait2r: in a,(c) 

add a,a 


;Status lesen 


Sr ne,walt2r ;Warten bis bereit 
and 20h ;Operation beendet? 
jr z,waitr ;ja -> Ende Result 
ine c ‚tenregister FD 
in.a,(c) jesult-Byte holen 


dee c ;Statusregister FDO 


14 (hl),a ‚Byte in Tabelle 
ine hl 
14 2,4 kurze Pause 


waitär: de a 

jr nz,wait3r 

jr walt2r 
waitsr: ex (sp),hl 
;(Rueckgabe vorbereiten) 
fäcend: in a,(e) 


Listing 3. »Fdc« - Direktangriff auf den Controller (Fortsetzung) 


;Byte aus Tabelle holen 


;(Zeit zur Verarbeitung) 


;Vebertragung moeglich? 


;zu sendendes Byte 


;Warten bis bereit 
;Ende der Uebertragung? 
jnein -> weiteres lesen 


;Tabelle Result-Phase 


;(Zeit zur Verarbeitung) 
E 


;Result-Schleife 


;Hauptstatusregister 


SULUER 
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* 
) 


;Ausfuehrungs-Tab zurueckk*) 
* 
*) 


Assemblerprogramm so abgelegt, daß 
das Resultat eine reine Turbo-Pascal- 
Funktion ist. Programmieren Sie gerne 
in Assembler, so ziehen Sie die Kom- 
mentarzeilen aus dem Programm und 
verwenden diese als Assemblerquell- 
datei weiter. Leider gilt die hier benutzte 
Art der Parameterübergabe nur für 
Turbo-Pascal. Wenn Sie einen anderen 
Compiler benutzen, kommen Sie um 
einigekleine Anpassungennichtherum. 

Als Parameter dürfen der Funktion 
keine Felder übergeben werden. Die 
erlaubten Bytes müssen aus Elemen- 
ten von Tabellen des Typs »array 
[.O..max.] of byte« stammen. Wenn 
Daten von der Diskette zum Beispiel ab 
dem 1000. Byte der Ausführungsta- 
belle abgelegt werden sollen, geben 
Sie beim Aufruf an: 


busy := callfde(command(.0.), 
execute(.1000.), result(.0.)) 
Wenn die Daten ab dem ersten Byte 
abgelegt werden, geben Sie 
busy := callfde(..., 
execute(.0.),...) 
an. Sind Sie sicher, daß ein Kommando 
keine Ausführungs- oder Ergebnis- 
phase besitzt, können Sie anstelle der 
Tabelle eine beliebige Variable vom Typ 
Byte übergeben: 


busy := callfde(command(.0.), 
dummy, dummy) 

Die Funktion »callfdc« funktioniert 
auch bei eingeschalteten Interrupts. 
Während der Ausführungsphase 
kommt es dann aber zu Zeitproblemen. 
Ein geschriebener Sektor sieht so aus, 
als ob das Laufwerk »stottert«. Anderer- 
seits kann es sinnvoll sein, auch wäh- 
rend unkritischer Kommandos die Inter- 
rupts abzuschalten, beispielsweise um 
keine wichtige Stelle der Diskette zu 
übersehen. Deshalb enthält die Datei 
»FDC.INC« auch eine Prozedur zur 
Behandlung der Interrupts. Beachten 
Sie aber, daß alle Betriebssystemauf- 
rufe (Bildschirmausgabe, Tastaturab- 
frage, normale BDOS-Diskettenopera- 
tionen) die Interrupts wieder einschal- 
ten. Bei abgeschalteten Interrupts läßt 
sich übrigens der Computer nicht ein- 
mal mehr mit <SHIFT+CTRL+ESC> 
stoppen. 

Wahrscheinlich werden Sie diese 
Datei mit 
(*$i FDC.INCK) 
sehr oft in eigene Programme einbin- 
den. Die Zeit zum Compilieren verkürzt 
sich in diesem Fall wesentlich, wenn Sie 
eine »Kurzform« der Datei erstellen, in 
der alle Kommentare fehlen. Ferner 
sollte jede Zeile bis zum Ende genutzt 
werden. Diese Kurzform können Sie mit 
»°KR«auch direkt in Ihr Programm einfü- 
gen. 

»Rundrive« erlaubt eine sehr komfor- 
table Programmierung des Disket- 
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ten-Controllers. Wenn Sie als ersten 
Buchstaben einer Zeile ein »c« einge- 
ben, werden die nachfolgenden hexa- 
dezimalen Ziffern als in der Kommando- 
phase einer Diskettenoperation zu sen- 
dende Bytes verstanden. Die entspre- 
chende Routine wird sofort ausgeführt 
und die Ergebnisbytes sowie der Lauf- 
werkszustand nach der Operation dezi- 
mal und hexadezimal ausgegeben. Das 
Kommando dürfen Sie sehr weit abkür- 
zen. Wenn sich von einem Kommando 
zum nächsten etwa nur das erste Byte 
ändert, brauchen Sie bei der Eingabe 
auch nur dieses angeben. Wollen Sie 
das beim nächsten Mal das gleiche 
Kommando noch einmal starten, tippen 
Sie nur ein »o« ein. Erfolgten dazwi- 
schen keinerlei andere Eingaben, 
genügt es sogar, nur <ENTER> zu 
drücken. 

Andere Kommandos unterstützen 
diese Funktion ebenfalls. Sie dürfen 
Texte und hexadezimale Werte in einen 
von 20 Datenpuffern schreiben, den 
Datenpuffer löschen, kopieren oder an- 
zeigen. Selbstverständlich lassen sich 
die Diskettenmotoren zu jedem beliebi- 
gen Zeitpunkt ein- und ausschalten. 
Sogar eine »Hilfe«-Funktion ist vorhan- 
den. Es fehlt also nichts, was Sie zum 
Steuern Ihrer Laufwerke benötigen. 

Die Programmdatei Rundrive ist voll- 
ständig hardwareunabhängig. Die drei 
verwendeten hardwareabhängigen 
Funktionen »callfdc«, »motorfde« und 
»interruptfdc« beinhaltet die Datei 
»Fdc«. Damit der Compiler diese auch 
kennt, müssen sie mit Hilfe von 
(*$i FDC.INCK) 
in das Programm integriert werden. So 
reicht es aus, die Funktionen nur ein 
einziges Mal zu schreiben und schon 
stehen sie in jedem Programm bereit. 
»Fdc« enthält dabei auch eine Kon- 
stante, die den Namen des Computer- 
typs angibt. 

Weiterhin benötigt wird die Datei 
»Convbyte«. Diese enthält zwei Funk- 
tionen: zum Umwandeln eines Bytes in 
eine hexadezimale und eine dezimale 
Zeichenkette. Genauso wie »Fdc« kann 
sie universell eingesetzt werden. 

Die 15 Controllerbefehle stehen in 
der Tabelle 1. Jede Abkürzung in der 
Tabelle repräsentiert ein zu übertragen- 
des Bit oder Byte. Die Bedeutung der 
Abkürzungen erklärt Tabelle 2. 

Manche Kommandobytes ' setzen 
sich aus verschiedenen zusammen, 
wobei jedes Bit eine andere Einzelheit 
des Kommandos regelt. In diesem Fall 
stehen alle Bits, die für ein Kommando 
notwendig sind, in spitzen Klammern. 
Wenn zur Regelung eines bestimmten 
Details des Kommandos mehrere Bits 
nötig sind, steht hinter der Bezeich- 
nung (in runden Klammern einge- 
schlossen) die Anzahl der Bits. Beim 
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3B6/30F/ (x and OF hex ;Drivestatusbits x) 
(# fdcerr: *) 
(* ;68# Nachspann fuer Verwendung unter Turbo-Pasoeal *) 

$c1/ * pop be ;Result-Tab vom Stapel *) 

$32/8uSY) (* 1d (busy),a ‚an Pascal liefern *) 
@; (bei Turbo-Pascal kein ret) *) 

;fäccall:=busy 

end; 

(* Diskettenmotoren ein- oder ausschalten (0 = aus, sonst ein) *) 

procedure fdemotor(flgmot: byte); 

begin 

Inline( (# ;06t Vorspann zur Verwendung unter Turbo-Pascal *) 


$ED/$4B/MOTPOR/ (* 14 be, (motpor) 
$3A/MOTON/ (# 1d a, (moton) 
S5r/ (* 1d e,a 


51. Arg (I/O-Adresse) *) 
;2. Arg (Einschaltwert) #*) 
x 


$3A/MOTOFF/ (* 1d a,(motoff) ;3. Arg (Ausschaltwert) %*) 
857/ (# 14 d,a *) 
$3A/FLGMOT/ (# 14 a,(flgmot) ;4. Arg (Ein oder Aus) *) 
317/ (# and a *) 
(#* ;xx8#%# Ausfuehren der Operation 2) 
S7a/ (# 1d a,d *) 
828/801/ (x jr 2,motx ;Z, dann ausschalten *) 
87B/ (x 14 a,e ;nein, dann einschalten *) 
$ED/$79) (* motx: out (c),a ‚Motor ein/ausschalten *) 
(#* ;##0% Nachspann zur Verwendung unter Turbo-Pascal *) 
(#5; (bei Turbo-Pascal kein ret) i) 
end; 
(* Interrupts sperren oder erlauben (0 = sperren, sonst freigeben) *) 
procedure fdeinterrupt(flgint: byte); 
begin 
Inline( (# ;ers8t Vorspann zur Verwendung unter Turbo-Pascal 2) 
S3A/FLCINI/ (8 14 a, (flgint) ;1. Arg (Ein oder Aus)  *) 
Sa7/ (* ande *) 
(# ; ms Ausfuehren der Interruptwahl *) 
328/303/ (x jr 2,disint ;Z, dann sperreb x) 
SPB/ (x ei ;Interrupts erlauden *) 
$18/801/ (x jr endint x) 
$F3) (* disint: di ;Interrupts sperren *) 
(* endint: *) 
(# ;’900468 Nachspann zur Verwendung unter Turbo-Pascal *) 
(#; (bei Turbo-Pascal kein ret) *) 
end; 


Listing 3. »Fdc« - Direktangriff auf den Controller (Schluß) 


program readid; 

[EEELSTTTESTETESTTESTTETTTEEETTEESTTETUTTEE TUE EU DEE DE TE ee Tre Teen] 
(* Diskettenanalyse * 
(# - findet alle formatierten Sektoren einer Diskette - *) 
(x (Vers. 2.08.86 « 


[ELEESEEE TE TE TETTTEE Te Terer ROHR) 
{$1 fde.ine} (* Funktionen zum Direktzugriff auf Disketten-Controller %) 
[$1 convbyte.ine) (* Funktionen zum Umwendeln von Bytes in Zeichenketten *) 


const maxid = 31; 
type resultfeld = array[0..maxid, 0..6] of byte; msgstr = string[80]; 
var drive, track, side: byte; twoside: char; endofdisk: boolean; 


procedure specify; 
const command: array[0..2] of byte = (3, 0, 3); 
var speed: integer; dummy: byte; 
begin 
Tepeat 
write('Spurwechselzeit in msec? (1 bis 32) '); readin(speed); 
until (speed >= 1) and (speed <= 32); 
command[1] := 257 - (speed + (speed and 1)) shl 3; 
dumay := fäccall(command[0], dummy, dummy) 
end; 


procedure abbruch(message: nsgstr); 
begin writeln('**** Fehler: ', message, ' #***');fdcmotor(0);specify;halt end; 


procedure home(drive: byte); 
Listing 4. »Readid« findet alle Sektoren 


const calibrate: array[0..1] of byte = (7, 0); sense: byte = 8; 
var dummy: byte; result: array[0..1] of byte; 
procedure primitivehone; 
begin dummy :;= fdecall(calibrate[0], dummy, dummy); 
repeat until fdecall(sense, dummy, result[0]) = 0; end; 
begin 
ealibrate[1] := drive and 3; 
repeat until (fdecall(sense, dunmy, result[0]) = 0) and (result[0] = 128); 
prinitivehome; if (result[0] and 192) <> O then primitivehome; delay(32); 
if(result[0] and 192) <> 0 then abbruch('Justierung nicht erfolgreich!) 
end; 


procedure seektrack(drive, zylinder: byte); 

eonst seek: array[0..2] of byte = (15, 0, 0); sense: byte = 8; 

var dunmy: byte; result: array[0..1] of byte; 

begin 
repest until (fdecall(sense, dunmy, result[0]) = 0) and (result[0] = 128); 
seek[1]:=drive and 3;seek[2]:=zylinder;dummy: 

=fdecall(seek[0] ‚dunmy,dummy) ; 
repeat until fdecall(sense, dummy, result[0]) = 0; delay(32); 
if(result[0] and 192) <> 0 then abbruch('Zylinder nicht gefunden') 

end; 


procedure readids(drive, side, dens: byte; var anzahl, start: byte; 
var idfeld: resultfeld); 
var readid: array[O..1] of byte; result: array[0..6] of byte; dummy: byte; 
begin 
fdeinterrupt(0); 
readid[0]:=(dens and 1)shl 6+10;readid[1]:=(drive and 3)+(side and 1)shl 2; 
aummy := fdccall(readid[0], dunmy, result[0]); anzahl ;= 0; start := 0; 
if (result[0] and 192) = O then 
repeat 
dunny := fdocall(readid[0], dummy, idfeld[anzahl,0]); 
if Adfeld(angahl, 5) <1dfeld[start,5]then start:=anzahl;anzahl;=anzahl+i 
until idfeld[anzahl - 1, 5] = result[5]; 
fdeinterrupt(1); 
end; 


procedure auswahl(var drive: byte; var twoside: char); 
var continue: char; 
begin 
write('Welches Laufwerk analysieren? (0 bis 3) '); 
repeat read(kbd,continue) until (continue >= '0') and (continue <= 13"); 
writeln(eontinue); drive := ord(oontinue) - ord('0'); 
write('Doppelseitig analysieren ? (J/N) '); 
read(kbd, twoside); twoside := upoase(twoside); writeln(twoside); 
write('Bitte Diskette einlegen und dann eine Taste druecken '); 
repeat until keypressed; writeln; 
writeln; write('---Position-- 1"); 
writeln('---- ---Herte in den Sektor-IDs-------- ') 
end; 


function spurinhalt(drive, track, side: byte): boolean; 
var continue, density: char; idfeld: resultfeld; max, st, i: byte; 


begin 
spurinhalt := false; 
density := 'D'; readids(drive, side, 1, max, st, 1dfeld); 


if max=0 then begin density:='8';readids(drive,side,O,max,st,iäfeld)end; 
if max = 0 
then begin write('nicht formatiert. Weitersuchen? (J/N) '); 
read(kbd,continue); write(upease(continue)); 
if upease(continue)<>'J' then spurinhalt := true; end 
else begin 
write(density, 'D Track ', convhex(idfe1d[0,3]), ' Head '); 
write(convhex(idfeld[0,4]), ' Size ', idfeld[0,6], ' Sek'); 
for i:=8st to st+max-1 do write(' '‚convhex(1dfeld[i mod max,5])) 
end; 
writeln 
end; 


begin 
writeln('Diskettenanalyse'); writeln('--- '); writeln; 
speeify; auswahl(drive,twoside); fdemotor(1); delay(1000); home(drive); 
track := 0; side := 0; 
repeat 
write('Oyl ', eonvhex(track), ' Side ', side, ' -> '); 
if side = 0 then seektrack(drive, track); 
endofdisk spurinhalt(drive, track, side); 
if twoside='J'then side:=(side+l)and 1;if side=0 then track:=track+l 
until endofdisk; 
home(drive); fäemotor(0); specify 
end. 


Listing 4. »Readid« findet alle Sektoren (Schluß) 


PPy 
a 


Kommando »Write Data« heißt das erste 
Kommandobyte zum Beispiel »<MT 
MF 0 00 10 1>« Bit 7 (MT, das 
höchstwertige Bit) regelt, ob nach dem 
Beschreiben der ersten Seite mit der 
zweiten Seite fortgefahren werden soll. 
Ist dies nicht der Fall, muß dieses Bit auf 
O gesetzt werden. Bit 6 (MF) bestimmt, 
welches Aufzeichnungsverfahren an- 
gewandt wird. In diesem Fall soll es das 
MFM-Verfahren sein, weshalb dieses 
Bit auf 1 gesetzt wird. Insgesamt 
ergibt das erste Kommandobyte also 
den Wert 01000101 bin oder 45 hex. 
Das zweite Byte heißt »<X(5) HD 
US(2)>«. »X(5)« bedeutet, daß die fünf 
höchstwertigen Bits beliebige Werte 
annehmen dürfen. »HD« muß den Wert 
Null haben, wenn auf Seite Null 
geschrieben werden soll und »US(2)« 
gibt an, daß in den zwei niederwertig- 
sten Bits die Geräteadresse des anzu- 
sprechenden Laufwerks steht. Wenn 
auf Seite Null des Laufwerks 1 ge- 
schrieben werden soll, muß das zwei- 
te Kommandobyte also den Wert 
XXXXX001 bin haben, also zum Bei- 
spiel 01 hex oder F9 hex. 

Die meisten Kommandos fordern die 
Angabe von Zylindernummer, Kopf- 
nummer, Sektornummer und Sektor- 
länge (C, H, R, N). Als Zylindernummer 
wird nicht die Position des Schreib-/ 
Lesekopfes angegeben, sondern die 
Nummer, die sich in den Sektormarkie- 
rungen auf der angesprochenen Dis- 
kette befindet. Die beiden Nummern 
können damit zwar übereinstimmen, 
eine Notwendigkeit ist es aber nicht. 
Das ist zum Beispiel bei Disketten mit 
40 Spuren, die in 80-Spur-Geräten lie- 
gen, der Fall oder bei doppelseitigen 
Formaten, bei denen in den Sektormar- 
kierungen statt der physikalischen Zy- 
lindernummer die logische Spurnum- 
mer steht. Sinngemäß gilt das gleiche 
für die anderen drei Byte der Sektor- 
markierungen (oder Sektor-IDs). Die 
Ergebnisphase liefert ebenfalls die 
Bytes C, H, Rund N. 

STO, ST1, ST2 und ST3 geben die 
Inhalte der Statusregister des Control- 
lersan. Aus diesen können Sie ablesen, 
ob die letzte Operation erfolgreich war 
oder welcher Fehler auftrat. Die Bedeu- 
tungen der einzelnen Bits ersehen Sie 
aus Tabelle 3. Die Bits O bis 2 in den Sta- 
tusregistern O und 3 geben an, auf wel- 
ches Laufwerk sich die Inhalte der Bits 
3 bis 7 beziehen. Fehler wie »Daten 
nicht gefunden« treten auf, wenn nach 
zweimaligem Passieren des Index- 
loches (eine volle Diskettenumdre- 
hung) auf der Diskette die angeforderte 
Sektormarkierung nicht gefunden 
wurde. 


(Helmut Tischer/hg) 
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Disketten — 
eine runde Sache 


Forscher ans Werk! Experimen- 
tieren Sie mit dem Disketten- 
Controller. Lesen Sie Daten aus 
Bereichen, die sonst nur dem 
Profi zugänglich sind! 


ach der Theorie des vorherge- 

henden Beitrags geht es jetzt 

los mit dem Experimentieren. 
Arbeiten Sie aber nur mit einer Diskette, 
deren Daten Sie nicht mehr benötigen. 
Es passiert öfter als man denkt, daß mit 
der Floppy »nichts mehr gehte«. 

Als erstes teilen Sie dem Controller 
alle Leistungsdaten des Laufwerks mit. 
Die »Head Load Time« gibt an, wieviel 
Zeit vergehen muß zwischen dem 
Hand-Load-Signal (dem Befehl an das 
Laufwerk, den Schreib-/Lesekopf auf 
die Diskette zu senken) und dem ord- 
nungsgemäßen Lesen beziehungswei- 
se Schreiben. Die »Head Unload Time« 
gibt an, nach welcher Zeit der Schreib- 
/Lesekopf nach dem letzten Zugriff von 
der Diskette abgehoben werden darf. 
Wenn während dieser Zeit ein neuer 
Zugriff erfolgt, wird die »Head Load 
Time« eingespart, da der Kopf noch auf 
der Diskette ist. 

Die Schneider-Controller beachten 
dieses Signal nicht. Der Schreib-/Lese- 
kopf bleibt auf der Diskette, solange der 
Motor eingeschaltet ist. Das Specify- 
Kommando (zuständig für das Einstel- 
len der Laufwerksdaten) wählt deshalb 
die kürzest erlaubten Zeiten, nämlich 4 
beziehungsweise 32 Millisekunden. Das 
Bit »Non-DMA Mode« gibt an, ob die 
Operationen mit oder ohne einem DMA 
(Baustein zur direkten Datenübertra- 
gung) ausgeführt werden. Bei Schnei- 
der hat dieses Bit immer den Wert 1. 


Schwung mit DMA 


Aus der »Step Rate Time« ersehen 
Sie, wie lange der Schreib-/Lesekopf 
des Laufwerks von einer Spur zur näch- 
sten braucht. Der Controller richtet sich 
danach und schickt die Schrittimpulse 
nicht schneller zum Laufwerk, als die- 
ses sie ausführen kann. Zwischen 2 
und 32 (in Schritten von jeweils 2) Milli- 
sekunden läßt sich dieser Wert einstel- 
len. Bemerkenswerterweise wird hier 
jedoch »rückwärts« gezählt, der Wert 
OF entspricht also 2 Millisekunden und 
der Wert 00 hex 32 Millisekunden. Die 
Vortex-Laufwerke arbeiten mit einer 


Schrittzeit von 3 (Einstellen lassen sich 
aber nur 4 Millisekunden), die Schnei- 
der-Stationen hingegen mit 12 Millise- 
kunden. Manche 3-Zoll-Laufwerke ver- 
tragen aber auch Schrittzeiten bis her- 
unter zu 6 Millisekunden. Etwas Experi- 
mentieren schadet also nichts. Die 
Standardeinstellung erhalten Sie mit 
dem Programm Rundrive (siehe Seite 
132) mit »C3 E1 3« beziehungsweise 
»C3 Al 3« (Option C (Kommando an 
Disketten-Controller übergeben)). 


Aufsuchen einer 
Spur 


Mit dem Controller--Kommando »Re- 
calibrate« wird das angegebene Lauf- 
werk auf den Zylinder O justiert. Dabei 
fahren die Schreib-/Leseköpfe solange 
in Richtung Zylinder 0, bis je nach Gerä- 
tetyp eine Lichtschranke oder ein me- 
chanischer Anschlag erreicht wird. 
Wenn der Zylinder die Spur O nach 77 
Schrittimpulsen nicht gefunden hat, er- 
folgt eine Fehlermeldung. Bei Laufwer- 
ken mit 80 Zylindern (Spuren) muß die- 
ses Kommando damit immer zweimal 
hintereinander ausgeführt werden. 

Das Kommando »Seek« positioniert 
die Schreib-/Leseköpfe des angegebe- 
nen Laufwerks über dem gewünschten 
Zylinder. Diese Position ist von den 
Sektormarkierungen der eingelegten 
Diskette unabhängig. 

Nachdem eines dieser beiden Kom- 
mandos gestartet wurde, meldet das 
entsprechende Laufwerk im Hauptsta- 
tusregister solange »Busy«, bis das 
Kommando »Sense Interrupt Status« 
aufgerufen wird. Erst danach sind auf 
diesem Laufwerk wieder Schreib-/Lese- 
befehle zugelassen. 

Während der Wartezeit, bis der ge- 
suchte Zylinder gefunden wurde, gibt 
der Controller die Kontrolle an den 
Computer zurück. Diese Zeit kann also 
genutzt werden, um andere Komman- 
dos zu starten. So können zum Beispiel 
auf allen vier Laufwerken (so viele kann 
der „PD765 maximal kontrollieren) 
gleichzeitig »Seek«-Operationen aus- 
geführt werden. Nach dem Erreichen 
des richtigen Zylinders wird vor dem 
ersten Zugriff eine kleine Wartepause 
eingelegt, damit der Schreib-/Lesekopf 
vollständig zum Stillstand kommt. Das 
normale Betriebssystem setzt hier 32 
Millisekunden ein. 


Geben Sie also im Programm Run- 
drive »M1«ein. Damit starten Sie die Dis- 
kettenmotoren. Wenn Sie jetzt »C7 O« 
eingeben, hören Sie, wie der Schreib- 
/Lesekopf vom Laufwerk A in die Aus- 
gangspositon fährt. »Cf O 10« stellt ihn 
auf den Zylinder 16. 

Zylinder und Spur sind zwei nah ver- 
wandte Begriffe. Es gibt aber einen 
Unterschied. Die Zylindernummer gibt 
die absolute Position auf der Diskette 
an, unabhängig davon, was an dieser 
Stelle steht - also zum Beispiel »10 
Schrittimpulse von der Ausgangsposi- 
tion«. Mit »Spur« ist dagegen die logi- 
sche Spur gemeint, die auch unter 
CP/M bekannt ist. Wenn Sie jetzt eine 
Diskette mit 40 Spuren in ein Laufwerk 
mit 80 Spuren einlegen, befindet sich 
jeweils nur auf einem geradzahligen 
Zylinder eine logische Spur (wobei die 
Spurnummer dann meist genau den hal- 
ben Wert der Zylindernummer besitzt). 
Ferner enthält bei einer doppelseitigen 
Diskette ein Zylinder zwei logische 
Spuren: eine auf der Oberseite der Dis- 
kette und eine auf der Unterseite. Auch 
hier nimmt deshalb die auf der Diskette 
markierte Spurnummer einen anderen 
Wert an als der Zylinder. 


Laufwerkszustand 
abfragen 


Wenn auf einem Laufwerk ein »Recali- 
brates, oder ein »Seek«-Kommando 
beendet wurde oder die Ready-Leitung 
eines Laufwerks den Zustand änder- 
te, generiert der Controller-Baustein 
uPD765 einen Interrupt. Danach kann 
man mit dem Kommando »Sense Inter- 
rupt Status« feststellen, welches Lauf- 
werk den Interrupt verursacht hat und 
aus welchem Grund. Nach diesem 
Kommando wird der Interrupt gelöscht. 

Leider leitet der „PD765 bei den 
Schneider-Computern die Interrupts 
nicht an die CPU weiter. Es bleibt also 
nichts anderes übrig, als von Zeit zu Zeit 
den Interruptstatus probeweise abzu- 
fragen. Glücklicherweise bemerkt der 
Controller die Abfrage des Interruptsta- 
tus auch wenn gar kein Interrupt vorlag. 
In diesem Fall steht in dem Register STO 
der Wert 80 hex, das Register PCN wird 
überhaupt nicht abgefragt. 

Beachten Sie, daß man den Status für 
jeden Interrupt extra abfragen muß. 
Wenn beispielsweise auf allen vier Lauf- 
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werken ein »Seek«-Kommando been- 
det wurde und sich das Ready-Signal 
vom Laufwerk Null änderte, muß man 
fünfmal hintereinander das »Sense«- 
Kommando aufrufen. Jedesmal ergibt 
sich dann der Zustand eines anderen 
Laufwerks. Erst bei der sechsten Ab- 
frage erhältman die Meldung 80 hex für 
Interrupt gelöscht. 

Das Ready-Signal eines Laufwerks 
ändertsich, wenn beim Einschalten des 
Motors eine bestimmte Drehzahl er- 
reicht wird und zuvor eine Diskette ein- 
gelegt war. Einige Laufwerkstypen mel- 
den mit diesem Signal auch, wenn eine 
Diskette gewechselt wurde. Ein sol- 
ches Laufwerk kann nach Wunsch bei 
unerlaubtem Diskettenwechsel eine 
Warnung auf dem Bildschirm ausge- 
ben. 

Mit »Sense Drive Status« lassen sich 
einige weitere Informationen über ein 
wählbares Laufwerk abfragen. 


Bevor eine Diskette einsatzbereit ist, 
muß sie formatiert werden. Dabei wer- 
den an allen Stellen, an denen später 
Sektoren stehen sollen, Markierungen 
angebracht. Das gewährleistet, daß ein 
bestimmter Sektor auch bei mehrmali- 
gem Überschreiben immer dieselbe 
Stelle der Diskette beibehält und sich 
nicht mit einem anderen Sektor über- 
lappt. In der Kommadophase beim For- 
matieren müssen drei wichtige Parame- 
ter bestimmt werden: die Länge jedes 
Sektors, die Anzahl der Sektoren und 
der Abstand zwischen den Sektoren in 
Bytes. Das nächste Byte gibt das Zei- 


chen an, mit dem die formatierten Sek- 
toren beschrieben werden sollen. Die- 
ser Wert ist im Prinzip beliebig. Übli- 
cherweise wählt man aber ES hex. Bei 
vielen Computertypen invertiert die 
Schreib-/Leseroutine alle Bytes, bevor 
sie sie an den Anwender oder an den 


Controller weitergibt. Unter Pascal 
macht dies 
datenbyte := datenbyte xor 255 


rückgängig. Für solche Formate ist das 
Füllbyte mit dem Wert 1A hex ange- 
bracht. 

In der Ausführungsphase müssen Sie 
dem „PD765 für jeden Sektor der Spur 
vier Byte übergeben. Das erste der vier 
Byte gibt die Spurnummer an, das 
zweite die Kopfnummer, das dritte die 
Sektornummer und das vierte die Sek- 
torlänge. Diese Bytes fließen in die Sek- 
tormarkierung auf der Diskette ein. Die 
ersten drei Byte können Sie dabei belie- 
big wählen. Allerdings empfiehlt es 
sich, auf einer Spur die einmal gewählte 
Spur- und Kopfnummer beizubehalten. 
Sonst kommen Sie beim Bearbeiten 
dieser Sektoren leicht in Schwierigkei- 
ten. Es vereinfacht spätere Programme, 
wenn die formatierte Spurnummer so- 
wohl zur Zylindernummer als auch zur 
logischen Spurnummer in einer mög- 
lichst unkomplizierten Beziehung steht. 
Bei einseitig genutzten Disketten ver- 
wendet man deshalb meistens die 
Kopfnummer O0 hex, für die Rückseite 
einer doppelseitigen Diskette 01 hex. 
Die Sektorennummern sind beliebig. 
Am besten wählen Sie sie aus einem 
zusammenhängenden Wertebereich. 
Die Reihenfolge der Sektoren sollten 
Sie so einrichten, daß sich zwischen 
zwei logisch aufeinanderfolgenden 
Sektoren immer ein weiterer Sektor 
befindet. Während der unwichtige Sek- 


tor unter dem Schreib-/Lesekopf vor- 
beistreicht, hat dann das Anwendungs- 
programm genügend Zeit, den gelese- 
nen Sektor zu verarbeiten. Wenn die 
nächsten Informationen gelesen wer- 
den sollen, steht der passende Sektor 
fast augenblicklich zur Verfügung. 
Ohne diesen Trick ist der gesuchte 
Sektor gerade vorbei, und das Pro- 
gramm muß eine volle Diskettenumdre- 
hung warten, bis der betreffende Sek- 
tor das nächstemal gelesen wird. Bei 
Formaten mit neun Sektoren hat sich 
die folgende Reihenfolge bewährt: 

01 06 02 07 03 08 04 09 05 

Diese Reihenfolge bezeichnet man 
als »Sektorversatz 2«. Beachten Sie 
aber, daß der Nummernabstand zwi- 
schen zwei physikalisch benachbarten 
Sektoren dabei nicht etwa ebenfalls 2, 
sondern 5 beträgt. 

Der Wert im Byte »Sektorgröße« 
sollte bei Standardformaten dem in der 
Kommandophase angegebenen Wert 
entsprechen - also O für eine Sektor- 
länge von 128 Byte, 1 für 256 Byte, 
2 für 512 Byte und so weiter. Sie dürfen 
aber auch jederzeit einem einzelnen 
Sektor eine andere Größenangabe mit- 
geben. Mit einem Schreibbefehl auf 
diesen Sektor wird dann die neue An- 
zahl Daten geschrieben und eventuell 
der nächstfolgende Sektor überschrie- 
ben. So kann man verschieden lange 
Sektoren auf einer einzigen Spur erzeu- 
gen. 


Der Sektorabstand 


Ein schwieriges Problem blieb bisher 
ausgeklammert: Zu einer gegebenen 
Länge den richtigen Abstand zwischen 
den Sektoren und die maximale Sektor- 


1 Sektor weitere Sektoren 
Spanaolang, Sektorkopf Daten Lücke Spurende 
| it = = e Be 
1 = maximale 
1 „linge 
- / maximale Länge } 
2 { 
2 
6) 12 %) 
Index- u Index- 
loch. loch 


Bild 1. Daten, die beim Schreiben eines Sektors überschrieben werden 
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zahlzu finden. Zu diesem Themagibtes 
leider keine offiziellen Informationen. 
Einen Anhaltspunkt bieten aber die Bei- 
spiele im Datenblatt zum „PD765. 
Diese finden Sie in der Tabelle. 

Diskettenlaufwerke, die für eine Si- 
gnalfrequenz von 250 kHz geeignet 
sind, laufen mit fünf Umdrehungen pro 
Sekunde. Deshalb passen bei dem FM- 
Verfahren genau 3125 Byte auf eine 
Spur; bei dem MFM-Verfahren sogar 
6250 Byte. Allerdings reserviert der 
4#PD765 am Anfang einer Spur 146 
Byte zur eigenen Verwendung. Jeder 
Sektor enthält außer den Daten noch 
einen Kopf, der unabhängig von der 
Zahl Daten 62 Byte lang ist. Im Sektor- 
kopf stehen zum Beispiel die Markie- 
rungen, die beim Formatieren angege- 
ben wurden, interne Markierungen, 
Prüfsummenbytes und Signale zur Syn- 
chronisation der Lesevorgänge mit der 
Datenaufzeichnung. Die 62 Byte teilen 
sich auf in 22 Byte, die nur einmal beim 
Formatieren geschrieben und 40 Byte, 
die bei jedem Überschreiben erneuert 
werden. Beim Formatieren ist der 
‚Abstand der Sektoren so groß zu wäh- 
len, daß trotz Toleranzen beider Umdre- 
hungsgeschwindigkeit der Disketten 
beim Beschreiben eines Sektors der 
nächstfolgende Sektor nicht berührt 
wird. Trotzdem müssen natürlich alle 
Sektoren auf die Diskette passen. 

Beim Schreiben, beziehungsweise 
Lesen, muß ebenfalls ein Abstand an- 
gegeben werden. Während der Zeit, in 
der sich das Ende eines zu lang gerate- 
nen - und überschriebenen - Sektors 
unter dem Lesekopf befindet, dürfen 
diese gelieferten Daten nicht beachtet 
werden. Diese könnten sonst fälsch- 
licherweise als Anfang des neuen Sek- 
tors interpretiert werden. Andererseits 
darf diese Pause aber auch nicht so 
lang sein, daß der Anfang des nächsten 
Sektors verpaßt wird. Die optimale Ver- 
teilung der Daten zeigt Bild 1. 


Suchen eines 
Gleichgewichts 


Im folgenden bezeichnet »t« die Tole- 
ranz der Umdrehungsgeschwindigkeit, 
»rgap« und »fgap« die Lücken beim 
Lesen beziehungsweise Formatieren, 
»ranf« und »fanf« die immer neu oder nur 
einmal geschriebenen Teile des Sektor- 
kopfes, »tanf« und »tlen« der, Spuran- 
fang beziehungsweise die gesamte 
Spurlänge, »n« und »dat« die Anzahl der 
‚Sektoren pro Spur oder der Datenbytes 
in einem Sektor. 

Damit beim Schreiben oder Lesen der 
nächste Sektor niemals verpaßt wird, 
dürfen die neu geschriebenen Teile des 
Sektors zusammen mit der Lücke nie- 
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Experimentierhilfe fuer Disketten-Controller uPD765 und aehnliche 
(Vers. 16.07.86, angepasst fuer Schneider CPC) 


erlaubte Eingabemoeglichkeiten: (alle Zahlen hexadezimal) 


Add -> 512 Byte-Datenpuffer auswaehlen 
Caı d2 d3..d9-> Kommando an Disketten-Controller uebergeben 

Dad -> 512 Byte-Datenpuffer Nr. di anzeigen 

E -> Programmende 

rad -> gewaehlten Datenpuffer mit Wert di fuellen 

H -> Hilfe 

kaı d2 -> Datenpuffer di in Datenpuffer d2 kopieren 

Mad -> 0 = Floppymotoren abschalten, sonst einschalten 
Sa1 d2 43 .. -> Bytes in gewaehlten Datenpuffer schreiben 
Titttttttttt..  -> Text in gewaehlten Datenpuffer schreiben 


14h 512 B-Datenpuffer verfuegbar 


su> 03 e13 (# Laufwerksdaten angeben *) 
Command: 03 E1 03 00 00 00 00 00 00 
Result: 00 oo 00 00 00 00 


00 
00000000 00000000 00000000 00000000 00000000 00000000 00000000 
Busy: ‚0000 


=..> m (* Motor einschalten *) 

zuu> 071 (* Laufwerk 1 (entspricht B) Justieren *) 
Command: 07 01.03 00 00 00 00 00 00 

Result: 00 00 00 00 00 00 


00000000 00000000 00000000 00000000 00000000 00000000 00000000 
Busy: 0010 


zus; (* Noch einmal *) 
x falsche Eingabe *Arx* 


===> 0 (* der Kommentar war schuld I *) 
Command: 07 01 00 00 00 00 00 00 00 
Result: 00 00 00 00 00 00 
00000000 00000000 00000000 00000000 00000000 00000000 00000000 
Busy: 0010 


===> 08 (* Interruptstatus abfragen *) 

Command: 08 01 03 00 00 00 00 00 00 

Result: CO 36 00 00 00 00 0 
11000000 00111100 00000000 00000000 00000000 00000000 00000000. 

Busy: 0010 


===> c (* solange bis alle Interrupts gemeldet %) 
Command: 08 01 03 00 00 00 00 00 00 
Result: 21 00 00 00 00 00 

00100001 00000000 00000000 00000000 00000000 00000000 00000000 
Busy: 0000 


„> 
Command: 08 01 03 00 00 00 00 00 00 
Result: 80 00 00 00 00 00 00 


10000000 00000000 00000000 00000000 00000000 00000000 00000000 
Busy: 0000 


sum> of11 (* Zylinder 1, Laufwerk 1 aufsuchen *) 
Command: OF 01 01.00.00 00 00 00 00 
Result: 00 00 oo 00 00 00 


00000000 00000000 00000000 00000000 00000000 00000000 00000000 
Busy; 0010 


se=> c8 (* Interruptstatus *) 
Command: 08 01 01 00 00 00 00 00 00 
Result: 21 01 oo 00 00 00 
00100001 00000001 00000000 00000000 00000000 00000000 00000000 
Busy: 0000 


===> 046110029 2a ff 
Command: 46 01 01 00 00 02 09 2A FF 
Result: 41 0% 00 01 00 00 

01000001 00000100 00000000 00000001 00000000 00000000 00000010 
Busy: 0000 


===> c46 1101 (* Huch, das war falsch. Gleich korrigieren! *) 

Command: 46 01 01 00 01 02 09 24 FF 

Result: 41 80 00 01 00 09 02 
01000001 10000000 00000000 00000001 00000000 00001001 00000010 

Busy: 0000 


(# Spur 2, entspricht 2yl 1 Seite 1 lesen *) 


==> m (* Motor aus *) 
s.> d (* Spannung --- wurde wohl das Inhaltsverzeichnis gelesen? *) 
Execute: „GRADEMO4PAS. BAS.. 
o com 
TLECOPYCOM 
ö ’ARCOPY COM, 
„SYSCOPY COM. SYSGEN COM. 
„INSTALL COM. com 
.82 com. com 
‚LOAD COM. coM. 
a.> di (#* Jal Und weil's so schoen war, noch einen Sektor ansehen *) 
Bxecute: ‚XSUB COM. F = 
‚DUMP COM, 
«STADT COM. 
‚PIP COM. 
‚LEITER COM, 
‚PATCH COM. 
„FILCOP62CON. ... 
«SPOOL O0Mesuctuenene 


Bild 2. Eine Sitzung mit »Rundrive« 


> e (# eigentlich wurden neun Sektoren gelesen. Fuers erste reicht's aber!*) 


Diskettenanalyse 


Spurwechselzeit in ms? (1 bis 32) 4 


Welches Laufwerk analysieren? (0 bis 3) 1 


Doppelseitig analysieren? (J/N) I 


Bitte Diskette einlegen und dann eine Taste druecken 


---Position-- mamma Herte in den Sektor-IDs---------------- 
Cyl 00 Side 0 -> DD Track 00 Head 00 Size 2 Sek 00 08 03 06 01 09 04 07 02 05 
Cyl 00 Side 1 -> DD Track 00 Head 01 Size 2 Sek 01 02 03 04 05 06 07 08 

cyl 01 Side 0 -> nicht formatiert. Weitersuchen? (J/N) I 

Cyl 01 Side 1 -> DD Track 01 Head 01 Size 2 Sek 01 02 03 04 05 06 07 08 

Cyl 02 Side 0 -> DD Track 01 Head 00 Size 2 Sek 00 08 03 06 01 09 04 07 02 05 
Cyl 02 Side 1 -> DD Track 02 Head 01 Size 2 Sek 01 02 03 04 05 06 07 08 

Cyl 03 Side 0 -> nicht formatiert. Weitersuchen? (J/N) J 

Cyl 03 Side 1 -> DD Track 03 Head 01 Size 2 Sek 01 02 03 04 05 06 07 08 

Cyl 04 Side 0 -> DD Track 02 Head 00 Size 2 Sek 00 08 03 06 01 09 04 07 02 05 
Cyl 04 Side 1 -> DD Track 04 Head 01 Size 2 Sek 01 02 03 04 05 06 07 08 

Cyl 05 Side 0 -> nicht formatiert. Weitersuchen? (J/N) I 

Cyl 05 Side 1 -> DD Track 05 Head 01 Size 2 Sek 01 02 03 04 05 06 07 08 

Cyl 06 Side 0 -> DD Track 03 Head 00 Size 2 Sek 00 08 03 06 01 09 04 07 02 05 
Cyl 06 Side 1 -> DD Track 06 Head 01 Size 2 Sek 01 02 03 04 05 06 07 08 


0yl 07 Side 0 -> nicht formatiert, Weitersuchen? (J/N) N 


Spurwechselgeit in ns? (1 bis 32) 4 


Bild 3. »Readid« sieht so aus 


Schreiben (Lesen), müssen selbst 
dann die Reste des Datenteils eines 
überschriebenen Sektors überdecken, 
wenn dieser um den Faktor (1 + t) zu 
lang und gleichzeitig der neue Sektor 
um den Faktor (1 + t) zu kurz ist. Für die 
minimale Länge der Lücke ergibt sich 
die folgende Bedingung: 


(ranf+dat+rgap)/(1+t) > 
(ranf+dat)*(1+t) 


Aus den letzten drei Bedingungen 
ergeben sich durch Auflösen direkte 
Grenzwerte für rgap und fgap: 


rgap > (ranf+rdat)* ((1-H)"2-1) 
fgap < MINIMUM(255, (tlen/(1+t)- 
tanf)/n-(fanf+ranf+dat)) 


Beieiner vorgegebenen Toleranz des 
Laufwerks gibt es jetzt mehrere erlaub- 
te Kombinationen vonrgap und fgap. Im 
nächsten Schritt muß man die optimale 
Kombination herausfinden. Das ist die- 
jenige, bei der die erlaubte Toleranz 
möglichst groß wird. Das Laufwerk soll- 
te dann aber diese Toleranz nicht mehr 
ausnutzen. 5 

Das Resultat all dieser Überlegungen 
ist das Programm »Gaps« (Listing). Das 
sehr einfache, aber hier ausreichende 
Näherungsverfahren für eine gegebe- 
ne Sektorlänge und -zahl berechnet die 
optimalen Gaplängen und die maximal 
erlaubte Laufwerkstoleranz. Zuerst ge- 
ben Sie die Sektorlänge, dann durch ein 
Leerzeichen getrennt, die Anzahl der 
Sektoren pro Spur, ein. Wenn das Pro- 
gramm keine Werte liefert, ist die einge- 
tippte Kombination verboten. In diesem 
Fall müssen Sie eine geringere Sektor- 
länge oder Sektorzahl wählen. 

Die Pausezeit »rgap« wird beim 
Schreiben von Sektoren dazu genutzt, 
den Schreib-/Lesekopf vom Schreib- in 
den Lesebetrieb umzuschalten. Wenn 
Ihr Laufwerk das in rgap* 0,03 Millise- 
kunden nicht schafft, müssen Sie einen 
Sektor der Spur weglassen. Im Zwei- 
felsfall helfen (wie immer) Experimente. 


Sektormarkierungen 
lesen 


mals länger sein, als die Sektorlänge 
zusammen mit dem Sektorabstand 
beim Formatieren. Sicherheitshalber 
muß gelten: 


(ranf+dat+fgap)/(1+t) > 
(ranf+dat+rgap)*(1+t) 


Dieselbe Bedingung gilt für »rmin«, 
die minimale Länge des Abstandes 
beim Formatieren. 

Alle Sektoren müssen auch dann auf 
die Spur passen, wenn der Umfang der 
Diskette wegen Schwankungen in der 
Umdrehungsgeschwindigkeit um den 


Faktor (1 + t) zukurz erscheint. Für das 
maximale fgap gilt also die Bedingung: 


(tanf-+n* (fanf+ranf+dat+fgap)) < 
tlen/(1+t) 


Für den uPD765 kann fgap maximal 
255 Byte lang werden, selbst wenn die 
obige Bedingung einen größeren Wert 
liefert. 


Es gilt also immer: 
fgap < 256 


Die neu geschriebenen Teile des 
Sektors zusammen mit der Pause beim 


Das Kommando »Readidk liest die vier 
Byte der beim Formatieren angegebe- 
nen Markierung des nächsten Sektors, 
auf den der Schreib-/Lesekopf trifft. So 
läßt sich zum Beispiel das Format einer 
Diskette bestimmen, 

Ein Beispiel für dieses Kommando ist 
das Programm »Readid« (Seite 136). 
Das Ergebnis zeigt Bild 3. Es führt eine 
vollständige Diskettenanalyse durch, 
wobei es alle in Sit Density oder in 
Double Density geschriebenen Sekto- 
ren ausfindig macht. Von den Informa- 
tionen werden wegen der besseren 
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Übersicht nur Ausschnitte dargestellt. 
Bei besonders hartnäckigen Formaten 
schaffen Sie aber durch Einfügen von 
einigen »write«-Anweisungen leicht Ab- 
hilfe. 

Sektoren können nur übersehen wer- 
den, wenn sich auf einer Spur mehrere 
Sektoren mit derselben Nummer befin- 
den. Durch mehrmaliges Analysieren 
einer Spur und Weiterverwenden des 
Ergebnisses mit der größten Sektoren- 
zahl lösen Sie aber auch dieses Pro- 
blem. 


Schreiben und Lesen 
von Daten 


Die Kommandos zum Schreiben oder 
Lesen von Daten bewegen den 
Schreib-/Lesekopf nicht. ‘Bearbeitet 
wird immer der Zylinder, auf dem sich 
der Kopf gerade befindet. Die Bytes C, 
H, R und N entsprechen den ID-Bytes 
des ersten gesuchten Sektors. Wenn 
diese Sektoren 128 Byte lang sind 
(N=0), kann man mit dem Byte DTL 
angeben, wieviele Bytes jedes Sektors 
übertragen werden sollen. GPL ist 
dabei die rgap, die im letzten Abschnitt 
berechnet wurde, 

Alle Schreib- und Lesekommandos 
übertragen automatisch Daten mehre- 
rer aufeinanderfolgender Sektoren. Die 
Übertragung endet erst dann, wenn der 
Controller entweder von einem Peri- 
Pheriegerät ein sTerminal-Count-Signal« 
erhält oder der letzte Sektor der Spur 
übertragen wurde. Bei den Schneider- 
Computern kann kein Terminal-Count- 
Signal erzeugt werden. Deshalb muß im 
Kommandobyte »EOT« nicht der letzte 
Sektor der Spur, sondern der letzte zu 
übertragende Sektor angegeben wer- 
den. Wenn nur ein Sektor bearbeitet 
werden soll, muß also das Byte R den- 
selben Wert erhalten wie EOT. Diese 
Methode hat aber den Fehler, daß auch 
bei einem korrekten Übertrag ein Fehler 


die nicht unmittelbar zu lesen sind. Eine 
dieser Markierungen hat den etwasirre- 
führenden Namen »Deleted«. Beim 
Schreiben von Daten wird angegeben, 
ob die betroffenen Sektoren die Mar- 
kierung »Deleted« oder »Not Deleted« 
erhalten sollen. Mit dem Bit »SK« wird 
entschieden, wie die Markierungen 
beim Lesen behandelt werden. Wenn 
beim Lesen von als »Not Deleted« mar- 
kierten Daten das SK-Bit gesetzt ist, 
werden mit »Deleted« markierte Daten 
einfach übersprungen. Wenn dieses Bit 
nicht gesetzt ist, wird der erste als 
»Deleted« markierte Sektor zwar gele- 
sen, das Kommando aber sofort da- 
nach abgebrochen. Beim Lesen von mit 
»Deleted« markierten Daten hat das SK- 
Bit die umgekehrte Bedeutung. Bei ge- 
setztem Bit werden jetzt »Not Deleted«- 
Daten übersprungen und bei nicht 
gesetztem Bit entsprechend dem Kom- 
mando bei »Not Deleted«-Daten abge- 
brochen. 

Bei den Kommandos »Read Data«, 
»Read Deleted Data«, »Write Data« und 


»Write Deleted Data« werden Sektoren 
in der Reihenfolge ihrer Numerierung 
übertragen, also unabhängig von der 
Reihenfolge auf der Diskette. Eine Aus- 
nahme ist das Kommando »Read A 
Track«. Bei diesem werden die Daten- 
bytes der Sektoren, unabhängig von 
der Numerierung, in der Reihenfolge 
übertragen, in der sie auf der Diskette 
stehen. Die Übertragung beginnt bei 
»Read A Track« mit dem Sektor, der sich 
unmittelbar hinter dem Indexloch der 
Diskette befindet. Statt des letzten Sek- 
tors wird hier die Anzahl der zu übertra- 
genden Bereiche angegeben. Bei die- 
sem Befehl bricht die Datenübertra- 
gung auch dann nicht ab, wenn ein 
Lesefehler auftritt. Falls die Sektoren 
auf der Diskette nicht aufsteigend nu- 
meriert sind oder der erste Sektor eine 
andere Nummer als die angegebene 
hat, läuft die Datenübertragung eben- 
falls weiter. In der Ergebnisphase wer- 
den allerdings Fehler gemeldet. 

In dieser Phase werden die ID-Bytes 
desjenigen Sektors zurückgegeben, 


program GAP-Laengenberechnung; 


begin repeat 
write('Sektorlaenge, Anzahl: 


»= 0; 


n/ 
rgap:=(t2-1)rges; 


then begin writeln('':2 

else if t >= st then t 

St := st/2 until st < gen 
until false end. 


= t-st; 


Listing. Wie lang ist der »Gap«? 


real = 6250; tanf: real = 146; ranf: real = 40; fanfı real = 22; 


eonst tlen: 
gen: real = 0.000015 
var slen, ns, rges, fgep, rgap, st, t, tl, t2: 


'); readin(sien, ns); 
"Toleranz GAP-Format GAP-Read/Write'); 


Be (taftere)) if fgap >= 255.5 then fgap 


if ((rges+fgap) > ((rgestrgap)*t2)) 
"1:6, fgap:3:0,'':12,rgap:3:0); t:=t+st end 


real; 


ı= 255; 


Vorgeschlagene Werte für GPL bei verschiedenen Formaten 


gemeldet wird. Density Sektor- Größen- Sektor- GPL bei GPL beim 
größe kennung anzahl Read/Write | Formatieren 
single 128 OOhex 18hex O7hex O9hex 
Zy! derweise single 128 OOhex 10hex 10hex 19hex 
single 256 Oihex O8hex 18hex 30hex 
Wenn das »Multi-Track-Bit« gesetzt single 512 O2hex O4hex 46hex 87hex 
ist, endet die Übertragung nicht am e 
single 1024 O3hex 02hex Cöhex FFhex 
Sektor EOT auf der Seite Null, sondern en 02 Ban 57 cah ES 
sie wird beim Sektor Nummer 1 auf der > 4 a sei I nr 
Diskettenseite 1 fortgesetzt. Erst wenn double 256 Oihex 12hex OAhex OChex 
= Zylinder vollständig gelesen ist, double 256 Othex 10hex 20hex 32hex 
endet das Kommando. Mit einer einzi- = 
: = doubl 2Ah Oh: 
gen Anweisung können so bei Disket- = > Daher Daher x SaeE 
ten mit 250 000 Hz Aufzeichnungsfre- double 1024 O3hex O4hex 80hex FOhex 
quenz bis zu 10 KByte Daten übertra- double 2048 O4hex 02hex CS8hex FFhex 
gen werden. double 4096 OShex Olhex Cöhex FFhex 
Die Sektoren enthalten außer den ID- I— 


Bytes einige zusätzliche Markierungen, 


Tabelle. Werte für GPC bei verschiedenen Formaten 
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der dem letzten übertragenen logisch 
folgen würde. 

Die Kommandos »Scan Equal«, »>Scan 
Low Or Equal« und »Scan High Or 
Equal« arbeiten sehr ähnlich wie die 
Kommandos zum Schreiben und Lesen 
von Daten. Hier vergleicht der Control- 
ler aber Daten, die von den Laufwerken 
geliefert werden mit Daten, die der 
Computer liefert. Die Operation wird 
beendet, sobald ein Byte gefunden ist, 
das die gewünschte Eigenschaft erfüllt 
oder wenn das Kommando durch ein 
Terminal-Count-Signal oder Erreichen 
des letzten Sektors abgebrochen wird. 
Bei »Scan Low Or Equal« dauert die 
Suche damit höchstens solange, bis 
das Laufwerk ein Byte liefert, dessen 
Wert kleiner als der des gerade von der 
CPU gelieferten Bytes ist. Wenn beider 
Suche alle Bytes identisch waren, wird 
in den Statusbits der Ergebnisphase 
unabhängig vom Kommando das Bit 
»Scan Equal Hit« gesetzt. Wenn weder 


ein Byte gefunden wird, das die Bedin- 
gung erfüllt, noch alle Bytes identisch 
sind, ist das Bit »Scan Not Satisfied« 
gesetzt. Nur wenn ein Wert gefunden 
wurde, der die »Scan«-Bedingung er- 
füllt, ist keines der beiden Bits gesetzt. 


Die SCAN- 
Kommandos 


Das Byte »STP«gibtan, um wieviel die 
aktuelle Sektornummer nach dem Un- 
tersuchen des aktuellen Sektors erhöht 
wird. Das Resultat ist die Nummer des 
als nächstes zu untersuchenden Sek- 
tors. Wenn STP den Wert 1 besitzt, wer- 
den wie beim normalen Zugriff aufein- 
anderfolgende Sektoren untersucht; 
hat STP den Wert 2, nur jeder zweite 
Sektor. Auf diese Weise kann ein even- 
tueller softwaremäßiger Versatz nach- 
vollzogen werden. Zu beachten istaller- 


dings, daß der Sektor mit der Nummer 
EOT tatsächlich unter den zu untersu- 
chenden Daten ist. Wenn STP so einge- 
stellt ist, daß nur ungeradzahlige Sekto- 
ren untersucht werden, muß also auch 
EOT einen ungeradzahligen Wert ent- 
halten. 

Sie wissen jetzt alles, was das Pro- 
grammieren Ihres Diskettenlaufwerks 
voraussetzt. Jetzt steht eigenen An- 
wendungen nichts mehr im Wege, zum 
Beispiel mit einem Kopierschutz Marke 
Eigenbau. Oder einem Programm, das 
mit Ihrem Original-Schneider-Controller 
beliebige fremde Diskettenformate le- 
sen kann, einschließlich doppelseitigen 
Disketten. Vorstellbar ist auch ein su- 
perschnelles Kopierprogramm, das mit 
Hilfe von »Readid« feststellt, welche 
Sektoren als nächste vorbeikommen 
und diese dann ohne Wartezeit liest, 
Vielleicht wagen Sie sich auch an ein 
neues und schnelleres CP/M-BIOS. 

(Helmut Tischer/hg) 


Freie Auswahl mit Format 


Jeder Computer beschreibt 
seine Disketten in einem ihm 
eigenen Format. Mit nur weni- 
gen »Pokes« kann man aber sei- 
nem Schneider CPC beibringen, 
auch fremde Daten zu lesen. 


em Betriebssystem CP/M wird 

nachgesagt, es sei das mit dem 

größten Software-Angebot. Das 
ist richtig, aber was hilft es, wenn Ihr 
Computer die Programme von fremden 
Geräten nicht lesen kann. Anders als 
unter MS-DOS gibt es'nämlich für CP/M 
kein standardisiertes Aufzeichnungs- 
verfahren. Aber nicht verzagen, mit nur 
wenigen Anweisungen kann auch der 
Schneider- (und auch der Vortex-) Con- 
troller fast alle fremden Datenträger 
lesen. 

Allen Diskettenformaten gemeinsam 
ist die Aufteilung in Spuren und Sekto- 
ren. Eine Diskette ist dabei in 40 oder 
80 Spuren aufgeteilt, die sich wie- 
derum in einzelne (normalerweise 8) 
Sektoren gliedern. Das Indexloch dient 
dabei dem Controller zur Orientierung, 
um sich auf der Diskette zurechtzufin- 
den (siehe Bild 1). 

Die grundsätzliche Struktur einer 
3-Zoll-Diskette sieht übrigens genauso 
aus wie die einer Diskette mit 3'/.- 
oder 5"s-Zoll-Format. Deshalb darf 
man die 3-Zoll-Laufwerke der Schnei- 
der-Computer ohne weiteres durch 
Stationen für andere Diskettengrößen 


ersetzen. Da fastalle CP/M-Programme 
auf 5"/s-Zoll-Disketten vorliegen, ist es 
sinnvoll, seinen Schneider mit einem 
5'/,-Zoll-Zweitlaufwerk auszustatten. 
Grundsätzlich kennt der Disketten- 
Controller von Schneider zwei ver- 
Aufzeichnungsverfahren: 


schiedene 


das »IBM 3740 Single Density«- und 
das »IBM System 34 Double Density«- 
Format. Diese beiden Formate sind seit 
ihrer Einführung in den 70er Jahren so 
weit verbreitet, daß-es sich kaum ein 
Hersteller leisten kann, seinem Compu- 
ter ein eigenes Aufzeichnungsverfah- 


Spur 0 
Spur 1 


Spur 40 
bezlehungswalse 
Spur 80 


Bild 1. Disketten sind leicht formatiert 
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ren zu verpassen. Allein Apple und 
Commodore arbeiten mit einem eige- 
nen Format. Commodore allerdings 
greift beim Amiga ebenfalls auf das 
bewährte Datenformat von IBM zurück. 

Jedes der beiden IBM-Formate gibt 
es mit einer Aufzeichnungsfrequenz 
von 250 und 500 kHz. Diese Frequenz 
darf man nicht mit der Bitrate verwech- 
seln, mit der die Daten dann tatsächlich 
geschrieben beziehungsweise gele- 
sen werden. Die höhere Geschwindig- 
keit von 500 kHz kommt fast aus- 
schließlich bei 8-Zoll-Laufwerken zur 
Anwendung. Die kleinen Formate arbei- 
ten mit der niedrigeren Geschwindig- 
keit, so auch Schneider und Vortex. 

Beim Übertragen von CP/M-Pro- 
grammen treten somit in aller Regel 
keine Probleme mit dem Aufzeich- 
nungsverfahren auf. 


Wo steht was? 


Anders sieht es mit dem Platz aus, an 
dem sich die Daten auf der Diskette 
befinden. Unter CP/M existieren dazu 
die unterschiedlichsten Formate. Am 
leichtesten erkennen Sie diese an den 
verschiedenen Speicherkapazitäten 
und an den unterschiedlich großen 
Inhaltsverzeichnissen. Selbst ein einzi- 
ger CP/M-Computer arbeitet oftmit ver- 
schiedenen Formaten - beispielsweise 
eins für eine Festplatte und ein anderes 
für die Disketten. Beim Schneider 
ändert sich das Format sogar beim Dis- 
kettenwechsel, So gibt es das System- 
und das Datenformat. Im Laufwerk B 
erkennt der Controller auch unter CP/M 
dieses Format ohne Systemspuren. Da 
die Betriebssystem-Routinen im BDOS 
die gleichen sind, muß man also durch 
unterschiedliche Parameter den Con- 
troller umstellen können. 

Dazu ist es erforderlich, dem BDOS 
mitzuteilen, wie die zu lesende Diskette 
(Im Rahmen bestimmter Normen) ver- 
waltet wird. Wenn das BDOS nach 
einem Warmstart zum ersten Mal ein 
Diskettenlaufwerk anspricht, dann lie- 
fert der vom Computertyp abhängige 
BIOS-Teil des Betriebssystems die 
Anfangsadresse einer Tabelle. In dieser 
Tabelle stehen die Informationen über 
das Format der eingelegten Diskette. 
Danach richtet sich dann das BDOS 
beim späteren Datentransfer. Unmittel- 
bar vor einem Warmstart darf sich der 
Inhalt dieser Tabelle immer ändern - 
und das kann nicht nur das BIOS selbst 
veranlassen. Auch Sie sind hier zu 
einem Eingriff ins BIOS »per Hand« 
berechtigt. 

Zum Beschreiben dieser Tabelle gibt 
es verschiedene Wege. Unter Basic 
steht dafür der Befehl POKE zur Verfü- 
gung (allerdings muß das ein unter 
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CP/M laufender Interpreter sein - zum 
Beispiel C- oder MBasic). Unter Turbo- 
Pascal dient dazu das Pseudo-Bytefeld 
»mem(..)« oder eine Variablendefinition 
mit »Absolute«. Der Debugger DDT 
kennt hierfür den »S«-Befehl. Haben wir 
damit die Lösung unserer Probleme 
gefunden? 

Leider sind die Regeln für die Verwal- 
tung von CP/M-Disketten nicht vollstän- 
dig. Für einige Details gibt es verschie- 
dene erlaubte Lösungen. Und - wie 
sollte es anders sein - jeder Hersteller 
wählt eine andere. 

Ein Beispiel dafür sind doppelseitig 
beschriebene Disketten, wie sie bei- 
spielsweise der Vortex-Controller pro- 
duziert. Das Standard-CP/M kennt nur 
eine Diskettenseite pro Laufwerk. Des- 
halb unterscheiden sich die Spuren auf 
der Oberseite von den Spuren auf der 
Unterseite durch die Spurnummer. Die 
Umrechnung der von CP/M benutzten 
(in die der Hardware bekannten) Kenn- 
ziffern übernimmt das vom Computer- 
typ abhängige BIOS des Betriebssy- 
stems. 


Und da treten Probleme auf. Beiman- 
chen Systemen liegen alle Spuren mit 
geradzahligen Nummern auf der Ober- 
seite der Diskette und ungeradzahlige 
auf der Unterseite. Bei anderen tragen 
die oberen Spuren die Ziffern Null bis 
79 und die unteren 80 bis 159. Bei drit- 
ten sind die Spuren auf der Unterseite 
in der umgekehrten Reihenfolge ange- 
ordnet. Die niedrigste Kennziffer be- 
zeichnet die Spur im Zentrum und die 
höchste die am Rand. 

Beim Datenzugriff müssen Sie daran 
denken, daß die Spur- und Sektornum- 
mern, die beim Formatieren auf die Dis- 
kette geschrieben wurden, beim Lesen 
wieder zurückgegeben werden. Und 
auch hierbei gibt es zwei verschiedene 
Formate. Entweder haben die sich an 
einer Stelle der Diskette direkt gegen- 
überliegenden Sektoren unabhängig 
von derlogischen Reihenfolge dieselbe 
Nummer (diese heißt dann »Zylinder- 
nummer«) oder in den Spuren sind 
unabhängig von der Seite die logischen 
(und damit verschiedenen) Sektoren 
eingetragen. 


Das BDOS von CP/M kennt nur Sek- 
toren mit einer Länge von 128 Byte. 
Diese BDOS-Sektoren werden oft 
»Records« genannt. Auf einer Diskette 
sind jedoch auch andere Sektorenlän- 
gen erlaubt. Heutzutage benutzt man 
meist 512 oder 1024 Byte. Allerdings 
wird ein Sektor auf einer Diskette immer 
am Stück und nicht in mehreren Portio- 


nen gelesen und geschrieben. Das 
BIOS des Computers muß also die 
BDOS-Sektoren selbständig zu größe- 
ren Paketen bündeln beziehungsweise 
auseinanderdividieren. Dazu bekommt 
es vom BDOS nur wenige Hilfen. 

Das BIOS schreibt einen bearbeite- 
ten Sektor in der Regel nur dann auf Dis- 
kette, wenn der Sektorpuffer für andere 
Aufgaben benötigt wird. Falls mehrere 
Records hintereinander in denselben 
Sektor geschrieben werden, spart man 
somit einige Diskettenzugriffe ein. Das 
bringt aber auch eine große Gefahr: 
Falls unmittelbar nach dem Schreiben 
(und damit vor dem physikalischen Da- 
tenübertrag) das System durch einen 
Warmstart neu gestartet wird, geht der 
letzte Sektor verloren. Das BDOS setzt 
deshalb beim Schreiben ins C-Register 
die Zahl 1, wenn der Sektor ausnahms- 
weise auch physikalisch sofort ge- 
schrieben werden soll. Umgekehrt liest 
das BIOS auch zuerst jeden Sektor von 
der Diskette, bevor einzelne Records 
durch neue ersetzt werden. Wenn der 
Sektor vorher leer ist, erübrigt sich das 
allerdings. In solch einem Fall meldet 
das BDOS im C-Register den Wert 2. 
Nur beim »normalen« Diskettenzugriff 
steht im C-Register der Wert O. 


Physik kontra Logik 


Wie weiter oben ausgeführt, haben 
also die physikalischen Sektoren auf 
einer Diskette andere Nummern als die 
logischen Sektoren. Beim Systemfor- 
mat von Schneider tragen die Sektoren 
zum Beispiel Nummern zwischen 41 
und 49 hex, beim Datenformat hinge- 
gen Ziffern zwischen C1 und C9 hex. 
Das IBM- und das Vortex-Format zählen 
von O1 hex an aufwärts. Und da das 
BIOS sowieso schon beim Rechnen ist, 
wird oft auch noch die Reihenfolge der 
Sektorennummern geändert. Der beim 
Umrechnen erzeugte Sektorversatz 
darf übrigens nicht mit dem Sektorver- 
satz beim Formatieren verwechselt 
werden. Manchmal sind auch noch die 
beiden Spuren eines Zylinders als eine 
logische Spur bezeichnet, und die Sek- 
toren werden zwischen beiden »wild« 
aufgeteilt. 

Das ist aber noch nicht alles. Einige 
wenige Formate arbeiten mit einer 
»invertierten« Aufzeichnung, bei der in 
allen Datenbytes die Bits mit dem Wert 
1 zurück- und die Bits mit dem Wert O 
gesetzt werden. Aus der Bitfolge 
»01001110« für den Buchstaben »N« 
wird dann »10110001«. Falls eine Dis- 
kette mit 40 Spuren in einem Laufwerk 
mit der doppelten Spurzahl liegt, muß 
beim Lesen jede zweite Spur über- 
sprungen werden. Bei bestimmten 
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Bozsionnung UN | FI 2 [rs m T2 12 fo]s RG 100 | Der Datenbereich einer Diskette istin 
Blöcke der Länge 2, 4, 8 oder 16 KByte 
Byte 00 01 08 09 0A OB 0C OD ODE OF 10 4F aufgeteilt. Bei Disketten mit einem 


Bild 2. Der Aufbau des Inhaltsverzeichnisses ist leicht zu verstehen 


Operationen auf der Diskette ist sogar 
der Abstand zwischen zwei einzelnen 
Sektoren von Bedeutung. 

Beisoviel Wirrwarr scheint es unmög- 
lich, Disketten in einem fremden Format 
mit dem Schneider lesen zu können. 
Doch keine Angst! Alle Inkompatibilitä- 


Das st der Toaster! , } 
Da k mt das Bro£ rem!“ 


Kom 


ten bei nicht standardisierten Details 
der Diskettenformate lassen sich auf 
eine einzige »zentrale Umrechnungs- 
routine« reduzieren. Diese rechnet 
Laufwerks-, Spur- und Recordnummer 
in Geräte-, Zylinder- und Kopfadresse 
um. Gleichzeitig werden die formatierte 
Spur- und Kopfnummer sowie Sektor- 
größe, -nummer und Lage des Records 
im Sektor bestimmt. Darüber hinaus 
muß das BIOS dann nur noch zwischen 
invertierter und nicht invertierter Auf- 
zeichnung sowie zwischen 40 (Single) 
und 80 Spuren (Double Density) unter- 
scheiden. 

Das BIOS einiger Computertypen 
unterstützt nur eine einzige Umrech- 
nungsvariante der gelieferten Daten. 
Andere BIOS-Versionen besitzen ana- 
log zu der dem BDOS übergebenen 
Parametertabelle intern eine zweite 
Tabelle für die Diskettenstation. In die- 
ser werden dann verschiedene Para- 
meter der Umrechnung eingestellt. 
Diese »BIOS-Tabelle« stehtim RAM des 
Computers, so daß sie leicht zu ändern 
ist. Je leistungsfähiger ein BIOS, desto 
besser läßt sich die Umrechnung steu- 
ern. Das BIOS der Schneider- 
Computer zeigt sich sehr anwender- 
freundlich. Es läßt die Voreinstellung 
fastaller Parameter zu, soweit das über- 
haupt sinnvoll erscheint. Programme, 
die unterschiedliche CP/M-Formate 
lesen, verändern diese Tabelle. Für 
Besitzer einer Vortex-Disketten-Station 
gibt es dazu »Para« (das Programm ist 
aber leider nicht ganz fehlerfrei - an 
einer verbesserten Version wird gear- 
beitet). CP/M Plus-Anwender finden auf 
Seite 122 in Happy-Computer, Aus- 
gabe 12/86, ein geeignetes Programm. 

Im folgenden beschränken wir uns 
auf CPM 2.2. Zum einen gibt es noch 
kein passendes Programm für den 
Schneider-Controller unter CP/M Plus, 
und zum zweiten ist auf den Systemdis- 
ketten für den CPC 6128 auch das 
ältere Betriebssystem zu finden. Das 
Umsetzen auf CP/M Plus bleibt dann 
Ihrem eigenen Erfindungsgeist vorbe- 
halten. 

Unter CP/M wird eine Diskette in 
einen System- und einen Datenbereich 
aufgeteilt. Für den Systembereich sind 
die äußersten zwei Spuren der Diskette 
reserviert. Es dürfen aber auch weniger 
oder mehr sein. Auch Disketten ganz 
ohne Systemspuren sind erlaubt. Diese 
(normalerweise) zwei Spuren benutzt 
das eigentliche CP/M nicht. Das BIOS 


Datenbereich von maximal 256 KByte 
istauch die Blocklänge 1 KByte erlaubt. 
Blockgrenzen brauchen dabei übrigens 
nicht mit den Spurgrenzen übereinzu- 
stimmen. Eine Datei beginnt immer an 
einer Blockgrenze. Selbst wenn sie nur 
wenige Bytes lang ist, wird immer ein 
voller Block reserviert. Der restliche 
Raum des Blockes bleibt ungenutzt. 
Somit ist es günstig, ein Format mit 
möglichst kleiner Blocklänge zu ver- 
wenden. 

-Der erste Block des Datenbereiches 
trägt die Nummer Null und ist immer für 
das Inhaltsverzeichnis reserviert. Falls 
ein Block nicht ausreicht, werden noch 
die nächstfolgenden Blöcke freigehal- 
ten. Ein einzelner Eintrag im Inhaltsver- 
zeichnis belegt immer 32 Byte (siehe 
Bild 2). 

Im ersten Byte steht die Usernum- 
mer, zu der-der Verzeichniseintrag 
gehört. Erlaubt sind die Werte Null bis 
15. Der Wert E5 hex markiert einen 
gelöschten Eintrag. Diesen über- 
schreibt beim nächsten Beschreiben 
der Diskette die neue Datei. Die Bytes 
Fi bis F8 und Ti bis T3 enthalten den 
Dateinamen zuzüglich Erweiterung. 
Nicht benutzte Bytes werden mit Leer- 
zeichen aufgefüllt. Da ASCIl-Zeichen 
mit nur 7 Bit eindeutig gekennzeichnet 
sind, benutzt CP/M das 8. Bit für spe- 
zielle interne Informationen. Wenn das 
8.Bit des Byte T1 gesetzt ist, wird die 
Datei von BDOS-Operationen nicht 
mehr beschrieben (R/O-Datei). Das 
gesetzte 8. Bit von T2 bewirkt, daß die 
Datei beim Befehl »DIR« nicht ausgege- 
ben wird (SYS-Datei). Die 8. Bits der 
Bytes Fi bis F4 stehen für beliebige 
Informationen zur Verfügung. Alle übri- 
gen Bits (also von F5 bis F8 und T3) 
sind späteren Versionen des Betriebs- 
systems CP/M vorbehalten. 


Ab 16 Blöcke wird 
es kompliziert 


In den Bytes DO bis DF stehen die 
Kennziffern der Blöcke, die für die Datei 
reserviert sind. Falls der Datenbereich 
der Diskette maximal 256 Blöcke 
kennt, sind die Blocknummern 8 Bit 
lang, und es können 16 Blöcke reser- 
viert werden. Wenn der Datenbereich 
eine größere Zahl von Blöcken enthält, 
ist eine Blocknummer 16 Bit lang, und 
es können maximal 8 Blöcke reserviert 
werden. Hierbei tritt nun ein Problem 
auf. Unter CP/M 2.2 darf eine Datei 
theoretisch bis zu 8. MByte lang wer- 
den. Selbst wenn die Blöcke maximale 
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Länge haben, können in einem Eintrag 
nur 256 (=16*16) KByte reserviert 
werden. Falls eine Datei mehr als 16 
(beziehungsweise 8) Blöcke enthält, 
wird in das Inhaltsverzeichnis ganz ein- 
fach ein weiterer.Eintrag mit demselben 
Dateinamen geschrieben. Darin stehen 
dann die zusätzlichen Blöcke für die 
Datei. Falls auch dieser nicht ausreicht, 
so wird ein dritter angelegt. 

In den Bytes EX, S1, S2 und RC wird 
die Reihenfolge der Verzeichnisein- 
träge und die Anzahl der Records, die 
im aktuellen Eintrag belegt sind, gere- 
gelt. Beide Informationen sind in einer 
einzigen Zahl verschlüsselt. 

Eine Datei darf maximal 65535 
Records belegen. Die Kennziffern 
beginnen mit Null. Im Inhaltsverzeichnis 
wird in den Bytes EX, S1, S2 und RC die 
Kennziffer des letzten Records plus 1 
vermerkt. Falls ein Eintrag für die Datei 
nicht ausreicht, steht hier der höchste 
Record dieses Eintrags plus 1. Dieser 
Wert entspricht damit der Nummer des 
ersten Records, der nicht mehr in die- 
sen Eintrag paßt, und für den ein weite- 
rer Eintrag reserviert ist. 

Ein Beispiel: Falls eine Datei 1200 
Records belegt, im Inhaltsverzeichnis 
‚pro Eintrag allerdings nur Platz für 512 
Records reserviert ist, dann belegt die 
Datei drei Einträge. Der erste ist voll- 
ständig gefüllt. Der letzte hiermit ange- 
sprochene Record hat die Nummer 
511. In den 4 Byte EX, SO, S1 und RC 
ist also der Wert 512 eingetragen. Der 
zweite Eintrag ist ebenfalls vollständig 
gefüllt, wobei der Record mit der Num- 
mer 1023 als letzter eingetragen ist. In 
den 4 Byte steht deshalb der Wert 
1024. Der letzte Record der zu schrei- 
benden Datei hat die Nummer 1199, 
weshalb im dritten Eintrag im Verzeich- 
nis der Wert 1200 steht. 


Eintrag der 
Recordnummer 


Weil das alles so aber noch zu einfach 
ist, werden die 16 Bit der Recordnum- 
mer nicht einfach als Integerzahl abge- 
legt. Die Bits Null bis 6 der Recordnum- 
mer stehen im Byte RG, die Bits 7 bis 11 
in EX und die Bits 12 bis 15 in S1. Das 
Byte SO, die Bits 5 bis 7 von EX und die 
Bits 4 bis 7 von S1 werden nicht be- 
nutzt und haben immer den Wert Null. 
Auch Bit 7 des Byte RC muß nach dem 
bisher Besprochenen immer den Wert 
Null haben. 

Auch hat die Regel bis jetzt noch 
einen schweren Mangel. Falls nämlich 
die Datei aus dem Beispiel genau 512 
Records langist, so wirdim zweiten Ein- 
trag der erste nicht mehr belegte 
Record eingetragen - also der Wert 
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512. Genau derselbe Wert steht aber 
schon im ersten Eintrag im Verzeichnis. 
Es istnun nichtmehr zu unterscheiden, 
welcher Eintrag der erste und welcher 
der zweite ist. Wir brauchen also eine 
Ausnahmeregelung: Falls ein Eintrag 
am Ende der Datei vollständig gefüllt ist, 
wird von der eigentlich einzutragenden 
Kennziffer der Wert 128 abgezogen 
und das neue Ergebnis eingetragen. 
Für eine Datei mit 512 Blöcken ist das 
dann die Ziffer 384. Das gesetzte Bit 7 
von RC weist auf diesen Ausnahmezu- 
stand hin. Zur Kennzeichnung dieses 
Ausnahmezustandes wird im Byte RC 
das Bit Nr. 7 gesetzt. 


rimente mit 
lem Inhalts- 
verzeichnis 


Falls die letzten Erklärungen etwas 
schnell an Ihnen »vorbeigerauschte« 
sind, lassen Sie sich keine grauen 
Haare wachsen. Das Programm aus 
Listing 1 gibt das vollständige Inhalts- 
verzeichnis der Diskette im Bezugslauf- 
werk aus. Aus den schon auf Seite 129 
erklärten Gründen istesin Turbo-Pascal 
geschrieben. Wer keinen Turbo-Pascal- 
Compiler besitzt, dem ist mit der 
Leserservice-Diskette geholfen. Auf ihr 
befinden sich alle Programme als lauf- 
fähige COM-Dateien. Mit Hilfe dieses 
Programms oder eines Diskettenmoni- 
tors betrachten Sie die Einträge ver- 
schieden langer Dateien. Vieles wird 
dann sofort klarer. Hilfreich istübrigens, 
wenn Sie in Gedanken eine Datei auf- 
bauen und nach jedem Record die Ver- 
zeichniseinträge und die darin stehen- 
den Nummern aufschreiben. 

Unabhängig vom Aufzeichnungsfor- 
mat werden mindestens 16 KByte 
Daten pro Eintrag reserviert. Damit nun 
nie Daten verlorengehen, schließt das 
BDOS vorsichtshalber auch bei länge- 
ren Einträgen nach 16 KByte die Datei, 
Ein Eintrag im Verzeichnis wird in der 
Terminologie von CP/M »physikalischer 
Extent« genannt. Entsprechend heißt 
ein 16 KByte langer Dateiabschnitt 
»logischer Extente. Ein logischer Extent 
enthält damit also bis zu 128 Records. 
In den Bytes EX und Si steht also 
immer die Nummer des letzten reser- 
vierten logischen Extents des physikali- 
schen Extents. Das Byte RC enthält die 
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Anzahl der im letzten logischen Extent 
reservierten Records. 

Im Gegensatz zum wahlfreien Datei- 
zugriff mitspeziellen BDOS-Funktionen 
hat das Byte Si beim sequentiellen 
Zugriff (zum Beispiel bei Textdateien) 
immer den Wert Null. Sequentielle 
Dateien können damit maximal 512 
KByte lang werden. Byte S1 berück- 
sichtigen viele Programme deshalb gar 
nicht erst. Byte EX heißt dann »das 
Extentbyte«. Eine CP/M-Datei kann 
übrigens auch »Löcher« enthalten: Ein 
nicht belegter Block mitten in einer 
Datei istim Verzeichnis mit Null gekenn- 
zeichnet. Ein Eintrag, der nur unbelegte 
Blöcke enthält, entfällt vollständig. Das 
ist dann ein besonders großes Loch. 
Somit ist beispielsweise auch eine erst 
mit dem 16. Extent beginnende und 
dann normal weiterlaufende Datei denk- 
bar. Das Inhaltsverzeichnis zeigt aller- 
dings nur Dateien an, beidenen der Ein- 
trag mit der Nummer Null existiert. 


Die Disketten- 
verwaltung 


Nun aber wieder zurück zum Ändern 
des Diskettenformates. Sie wissen 
jetzt, nach welchen Gesichtspunkten 
der Datenträger eingeteilt ist und inwie- 
weit das Inhaltsverzeichnis vom Format 
der Diskette abhängt. 

Für jedes einzelne Laufwerk gibt es 
im BIOS des CP/M eine zentrale Tabelle, 
den 16 Byte langen »Disk Parameter 
Header«. Deren Adresse wird beim 
ersten Aufruf des Laufwerkes an das 
BDOS weitergeleitet. In ihr stehen die 
Adressen von den verschiedenen Spei- 
cherbereichen, die für dieses Laufwerk 
reserviert sind. Den Aufbau finden Sie 
in Bild 3. 

»XLT« ist die Adresse der Tabelle, die 
die BIOS-Routine »Sectran« benutzt, 
um eine logische Sektornummer in die 
zugehörige physikalische umzurech- 
nen. Beim Aufruf übergibt das BDOS 
der Sectran-Routine im BC-Register die 
logische Sektornummer und im DE- 
Register die Adresse der in Frage kom- 
menden Tabelle. Im HL-Register wird 
die physikalische Sektornummer zu- 
rückgegeben. Bei Schneider wird die 
Sektornummer jedoch immer unverän- 
dert zurückgegeben. Die Sectran- 
Routine bleibt unbeachtet. Somit ent- 
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Bild 3. Der Disketten-Parameter-Header enthüllt alle Geheimnisse 


progran dirleser; 
(% Liest das vollstaendige 
Inhaltsverzeichnis und zeigt es an *) 


type datei=string[11]; 

var nametdatei; 
dma :array[0..127]of byte; 
fob :array[0..35Jof byte; 
ro,i:integer; 


procedure nb(n:integer) ; 
begin 
if n>9 then 
write(chr(ord('A')-104n)) 
else 
write(chr(ord('0')+n)) 
end; 


procedure wrhex(b:integer); 


begin 
nb(b shr 4); 
nb(b and 15); 
write(! ') 

end; 

begin 


writeln('Ausgeben der gesamten 
Inhaltsverzeichnisinformation'); 
writeln; 
bdos(26,addr(dna)); 
£illchar(fob,16,ord('?')); 
re:=bdos(17,addr(Feb)); 
while re<>255 do 
begin 

rc:=re shl 5; 

wrhex(dma[re]); 

name: =ptr(addr(dma)+re) ; 

name” [0]:=#11; 

write(name”,' '); 

for i:= re + 12 to re + 31 do 

wrhex(dma[i]); 

writeln; 

re:=bdos(18) 
end; 

end. 


Listing 1. Lesen Sie das Inhaltsverzeichnis 
Ihrer Disketten 


program getdisk; 
(*Feststellen der Adressen und Inhalte 
der Diskparameterbloecke *) 


var olddisk :byte; 
äphstart,freistart:integer; 
csvab,alvab :array[0..1Jof integer; 


type bstr=string[2]; 
wstr=string[4]; 


function nibble(n:integer):char; 
begin 
if n>9 then 
nibble:=chr(ord('A')-10+n) 
else 
nibble:=chr(ord('0')+n) 
end; 


funetion conyhexb(b:integer):bstr; 
begin 

convhexb:=nibble(b shr 4)+nibble(b and 15) 
end; 


function convhexw(w:integer) :wstr; 
begin 

convhexw;=convhexb(w shr 8)+convhexb(w and 255) 
end; 


procedure showäpb(st:integer);; 
var i:integer; 
begin 
write('dpb;'); 
for A:=st to st+14 do write(! $',convhexb(mem[1])); 
writeln; 
write('apx:'); 


for i:=8t+15 to st+24 do write(' $',convhexb(men[i])); 
riteln 
end; 
begin 
olddisk:=bdos(25); 
dphstart:=biosh1(8,0); 
bdos(14,01ddisk) ; 


if dphstart<$C000 then 

freistart:=$bd3a 

else 

freistart:=dphstart+$5e; 

esvab[0] := mem[dphstart + $0c] + 
mem[dphstart + $0d] shl 8; 

esvab[1] := men[dphstart + $lc] + 

men [dphstert + $1d] shl 8; 

alvab[0] := men[dphstart + $0e] + 
mem[dphstart + $0f] shl 8; 

alvab[1] := nen[dphstart + $le] + 
men[dphstart + $1f] shl 8; 
writeln("Achtung! Werte gelten nur fuer 
CP/M 2.2 und nicht fuer CP/M Plusi'); 
writeln("dphstart: $',‚convhexw(dphstart) , 
' freistart: $',convhexw(freistart)); 
writeln('esvab: $',convhexw(esvab[0])," 
und $',convhexw(csvab[1])); 
writeln('alvab: $',convhexw(alvab[0]), ! 
und $',convhexw(alvab[1])); 
writeln('Laufwerk A:');showdpb(mem[dphstart+$0a] 
+nem[dphstart+$0b]shl 8); 
writeln('Laufwerk B:");showdpb(mem[dphstart+$1a] 
+mem[dphstart+$1b]shl 8) 
end. 


Listing 2. Manipulationen sind einfach 
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halten die Bytes XLT immer den Wert 0. 
Die folgenden Bytes »0000« werden 
vom BDOS zum Speichern verschiede- 
ner Werte benutzt. Ihr Ausgangswert ist 
‚somit beliebig. 

»Dirbuf« enthält die Adresse eines 
128 Byte langen Speicherbereichs, 
den das BDOS für Manipulationen im 
Inhaltverzeichnis benötigt. Da immer 
nur ein Laufwerk gleichzeitig angespro- 
chen wird, gibt es nur eine gemeinsame 
Adresse für alle Laufwerke. 

»DPH« enthält die Adresse des 
Disketten-Parameter-Blocks des akti- 
ven Laufwerks. Dieser Block bestimmt 
das genaue Format der Diskette, Für 
Jedes Diskettenformat ist im System ein 
eigener Parameter-Block vorgesehen. 

Die Informationen über das Format 
der Diskette werden allerdings nur beim 
ersten Zugriff gelesen. Nach einem 
unangemeldeten Diskettenwechsel 
stimmen deshalb diese Informationen 
manchmal nicht mehr mit der tatsächli- 
chen Belegung überein. Bei jedem 
Zugriff auf das Inhaltsverzeichnis 
berechnet deshalb das BDOS für jeden 
Record eine Prüfsumme. Ist diese mit 
der nach dem Start berechneten nicht 
identisch, so wird die Diskette als nicht 
beschreibbar gekennzeichnet. Damit 
werden alle Dateien vor versehentli- 
chem Zerstören geschützt. 

»CSV« enthält die Adresse des Spei- 
chers, der die Prüfsumme aufnimmt. 

Für jeden Block im Datenbereich 
einer Diskette ist in der Belegungsta- 
belle ein Bit reserviert. Hat dieses Bit 
den Wert 1, so gilt der Block als belegt. 
In dem Wort »ALV« steht die Start- 
adresse dieser Tabelle. 

Die entsprechenden Routinen des 
Schneider-Controllerss sehen relativ 
wenig Speicherplatz für die Tabellen 
»CSV« und »ALV« vor. Falls Sie ein ande- 
res Format wählen, müssen Sie den 
Tabellen in der Regel einen anderen, 
genügend großen, Speicherbereich 
zuteilen. 

Der 14 Byte lange »Disketten-Para- 
meter-Block« enthält vom Computertyp 
unabhängige Informationen über das 
Format der Disketten. Den Aufbau zeigt 
Bild 4. 

Der 2 Byte lange Wert »SPT« gibt die 
Anzahl der Records pro Spur an. Der 
Wert 24 hex (=36 dez) entspricht dann 
4,5 (=36*128 Byte) KByte pro Spur. 

»BSHE« ist die (verschlüsselte) Block- 
größe der Diskette. Die Zahl 218°") gibt 
die Anzahl der Records an, die in einem 
Block stehen. Bei einer Blockgröße von 
1 KByte ergibt sich der Wert 3 (1 KByte 
= 1024 Byte = 128*(2®). Für »BSH« 
ist 7 als maximaler Wert erlaubt. Die 
maximale erlaubte Blocklänge beträgt 
also 16 (=128*27) KByte, 

Der Wert von »BLM« hängt unmittel- 
bar von »BSH« ab. Er errechnet sich 
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Bezeichnung| SPT | BSH | BLM | ExM | Dsm | orm | ALo | Aut | cRs orr] 


Byte 00-01 02 03 


04 05-06 07-08 09 


OA 0B-0C OD-OE 


Bild 4. Der Disketten-Parameter-Block ist lebensnotwendig 


nach der Formel BLM=(2s)-1, In 
diesem Byte sind also so viele Bits 
gesetzt, wie der Wert des BSH-Bytes 
angibt. Für eine Blocklänge von 1 
KByte also 3 Bit und für eine Block- 
länge von 16 KByte 7 Bit. 

»EXM« gibt die um 1 verminderte Zahl 
der logischen Extents an, die in einem 
physikalischen Extent enthalten sind, 
Hat eine Diskette eine Größe von höch- 
stens 256 Blöcken, so können in einem 
physikalischen Extent maximal 16 
Blöcke reserviert werden. Bei einer 
Blocklänge von 4 KByte sind es 64 
(=4*16) KByte und damit 4 logische 
Extents. Im »EXM« steht dann der Wert 
3(=4-1). Enthälteine Diskette mehr als 
256 Blöcke, so können nur noch 8 
Blöcke pro Eintrag oder 32 (=4*8) 
KBytereserviert werden. Dassind dann 
nur noch zwei logische Extents. In 
»EXM« steht in diesem Fall der Wert 1 
(=2-1). Den genauen Zusammenhang 
finden Sie in Tabelle 1. 

»DSMe« bezeichnete nach Interpreta- 
tion den um 1 verminderten Wert der 
Blockanzahl oder die Nummer des letz- 
ten Blocks auf der Diskette. Dieser Wert 
darf problemlos vermindert werden, 
einige Blöcke auf der Diskette bleiben 
dann aber ungenutzt. Eine Erhöhung ist 
jedoch nur erlaubt, wenn auf der Dis- 
kette zusätzliche Spuren formatiert 
wurden. Das BDOS versucht sonst bei 
einer 3-Zoll-Diskette vergeblich, bei- 
spielsweise auf die nicht vorhandene 
41. Spur zuzugreifen. Eine Diskette im 
Systemformat von Schneider enthält 
bekanntlich 38 Datenspuren zu je 4,5 
KByte, also 170 KByte, beziehungs- 
weise Blöcke. Der höchste erlaubte 
DSM-Wert beträgt damit 169. 

In »DRM« steht die um 1 verminderte 
Zahl der Einträge im Inhaltsverzeichnis, 
die auf der Diskette vermerkt werden 


dürfen. Bei einer Vortex unter VDOS 1.0 
sind für das Inhaltsverzeichnis 4 KByte 
reserviert, obwohl nur 2 KByte benutzt 
werden. Durch Ändern dieses Wertes 
auf 127 gewinnen Sie - ohne die Dis- 
ketten neu formatieren zu müssen - 64 
zusätzliche Einträge. BeiVDOS 2.0 und 
folgenden Versionen ist das allerdings 
schon von Hause aus eingebaut. 

Die Bytes »ALO« und »AL1« geben die 
Anzahl der Blöcke an, die für das 
Inhaltsverzeichnis reserviert sind. 
Jedes gesetzte Bit bezeichnet einen 
Block. Das Bit 7 von »ALO« entspricht 
dem Block 0 der Diskette. Bit O analog 
Block 7. Bit 7 von AL1 entspricht Block 
8 und Bit O Block 15. Das Inhaltsver- 
zeichnis darf somit eine Länge bis zu 16 
Blöcke annehmen. 

Das Wort »CKS« gibt die Größe der 
CSV-Tabelle des Disketten-Parameter- 
Headers an. Bei normalen Disketten- 
stationen stellte sich der Wert 
(DRM+1)/4 als sinnvoll heraus. Wird 
der Speicherplatz knapp, ist aber auch 
ein niedriger Wert zulässig. Bei Fest- 
plattenlaufwerken oder RAM-Disks 
muß man hier den Wert O eintragen. 

»OFF« gibt die Zahl der Systemspu- 
ren aufeiner Diskette an. Dieser Wert ist 
frei wählbar. Üblich ist der Wert 2. 

Wie schon weiter oben erwähnt, kön- 
nen Sie bei den Schneider-Computern 
außer den Standard-Diskettenpara- 
metern auch noch einige andere ver- 
ändern. Der zusätzliche Disketten- 
Parameterblock ist 10 Byte lang und 
steht unmittelbar hinter dem Standard- 
Disketten-Parameterblock. Das 16. 
Byte des Standard-Blocks entspricht 
also dem ersten Byte des erweiterten 
Blocks. Dessen Belegung finden Sie in 
Bild 5. Sowohl beim Schneider- als 
auch beim Vortex-Controller, mit oder 
ohne Speichererweiterung, sind die 


Block- BSH-Wert BLM-Wert EXM-Wert =] 
größe 
(Byte) Gesamtblock- Gesamtblock- 
anzahl < = 256 | anzahl > 256 
1024 3 7 [} (verboten) 
2048 4 15 1 je} 
4096 5 31 3 y 
8192 6 63 7 3 
16384 je 127 15 7 


Tabelle 1. Die Werte für die Codierung der Blockgröße 
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Parameterblöcke fast identisch. Die 
Unterschiede sind im folgenden extra 
vermerkt. 

Byte 15 enthält die physikalische 
Nummer des ersten Sektors auf der 
Spur. Im Systemformat von Schneider 
steht hier der Wert 41 hex, im Datenfor- 
mat C1 hex. Das IBM- und das Vortex- 
Format benutzen den Wert O1 hex. 

Byte 16 enthält die Zahl der Sektoren 
pro Spur - normalerweise 9, nurim IBM- 
Format 8. 

Byte 17 bestimmt die Zeit, indernach 
dem Lesen beziehungsweise Schrei- 
ben eines Sektors Signale von der Dis- 
kette: nicht beachtet werden. 

Byte 18 steuert den Abstand zweier 
Sektoren einer Spur beim Formatieren. 
Ermuß so gewählt werden, daß die Sek- 
toren möglichst gleichmäßig auf der 
Spur verteilt werden. Die genaue 
Berechnung der beiden eng miteinan- 
der korrespondierenden Bytes 17 und 
18 ist sehr kompliziert. Experimente 
helfen schneller weiter, um festzustel- 
len, bei welchen Werten sich Sektoren 
fehlerfrei schreiben und auch wieder 
lesen lassen. 

Byte 19 enthält den Wert, mit dem die 
Sektoren beim Formatieren gefüllt wer- 
den. In der Regel ist das E5 hex. 

Byte 20 enthält den codierten Wert 
der Zahl der Bytes pro Sektor. Die Sek- 
torlänge berechnet sich dabei mit der 
Formel 128* 2®= 20), Für eine Sektor- 
länge von 256 Byte muß also der Wert 
1 eingetragen werden, bei512 Byte der 
Wert 2 und bei 1024 Byte der Wert 3. 

Leider ist der Sektorpuffer bei 
Schneider nur 512 Byte lang, so daß 
Formate mit längeren Sektoren unter 
CP/M mit 44 KByte TPA nicht problem- 
losinstalliertwerdenkönnen. Andersist 
es bei dem OP/M mit Speichererweite- 
rung. In dem 62-KByte-CP/M steht das 
BIOS im RAM. Mit einem Suchbefehl 
(beispielsweise »Q« beim DDT) finden 
Sie alle Stellen im BIOS, an denen die 
Anfangsadresse des Sektorpuffers 
benötigt wird. Falls Sie alle Werte korri- 
gieren, dürfen Sie den Puffer in einen 
anderen Speicherbereich verlegen. 
Genügend freien Platz zwischen BDOS 
und BIOS schaffen Sie sich mit 
»MOVCPM xxx *« und »SYSGEN«. 

In Byte 21 steht, wie viele Records in 
einem Sektor stehen, bei 512 Byte pro 
Sektor beispielsweise der Wert 4. 

Byte 22 dient zum Speichern derjeni- 
gen Zylindernummer, über der der 
Schreib-/Lesekopf gerade steht. Der 
Wert ändert sich somit laufend. 

Byte 23 justiert bei Schneider das 
Laufwerk unmittelbar vor dem nächsten 
Diskettenzugriff neu, sofern hier ein 
Wert ungleich O steht. Nach dem 
Justieren wird es automatisch auf O 
gesetzt. Bei Vortex steht hier die maxi- 
male Zylinderzahl des Laufwerks. Bei 


Füllbyte beim Formatieren 
Codierung für Anzahl der 


Vortex: 


Vortex: Flagbyte 


erste Sektornummer auf der Spur 
Anzahl der Sektoren pro Spur 
Pause nach Schreiben/Lesen 
Abstand zwischen den Sektoren 


Bytes/Sektor 
Anzahl der Records pro Sektor 

aktueller Zylinder 
Schneider: O heißt Laufwerk justieren 


maximale Zylindernummer 
Schneider: O heißt automatische Formaterkennung aktiv 


Bild 5. Mehr Kraft durch den erweiterten Disketten-Parameter-Block 


einem Laufwerk mit 40 Spuren findet 
sich hier der Wert 27 hex und bei einem 
Laufwerk mit 80 Spuren 4F hex. 

Auch Byte 24 kommt bei Schneider 
und Vortex eine unterschiedliche 
Bedeutung zu. Beim Aufruf der BIOS- 
Routine zur Laufwerkswahl hat Bit O des 
Registers E immer dann den Wert O, 
wenn das Laufwerk seit dem letzten 
Warmstart zum ersten Mal aufgerufen 
wird. In diesem Fall stellt die Routine im 
ROM des Disketten-Controllers von 
Schneider automatisch das Format der 
eingelegten Diskette fest. Vor der 
Rückgabe der Programmkontrolle an 
das BDOS werden die Daten dieses (in 
diesem Moment für den Computer 
neuen) Formats in die Parametertabelle 
eingetragen. Damit gehen auch von 
Hand geänderte Daten wieder verloren, 
da der Computer ja das alte Format 
restauriert. Wünschenswert hingegen 
ist, daß ein einmal eingestelltes Format 
solange erhalten bleibt, bisman es aus- 
drücklich wieder ändert. Und es gibt 
tatsächlich einen Trick, der das be- 
werkstelligt. Die automatische Format- 
erkennung wird nämlich nur ausgeführt, 
wenn in Byte 24 der Wert O steht. Ein 
Eintrag eines anderen Wertes schaltet 
die Routine zur Formaterkennung ab. 


Experimentier- 
reude mit 
fremden Formaten 


Von Hand eingegebene Werte bleiben 
damit so lange erhalten, bis sie aus- 
drücklich wieder geändert werden. Bei 
Experimenten mit fremden Disketten- 
formaten ist es damit immer sinnvoll, als 
erstes dieses Byte auf den Wert 255 zu 
setzen. In der Kombination Vortex- 
Speichererweiterung und Schneider- 
Controller funktioniert das Abschalten 
der automatischen Formaterkennung 
leider nicht. 

Das VDOS von Vortex macht prinzi- 
piell keine automatische Formaterken- 
nung. Damit ist Byte 24 aber nicht über- 


flüssig, sondern es stellt das universelle 
Flagbyte des zugehörigen Laufwerks 
dar. Jedes Bit hat dabei eine eigene 
Bedeutung. 

BitO hat den Wert 1, wenn ein doppel- 
seitiges Diskettenformat eingestellt ist, 
und den Wert O bei einem einseitigen 
Diskettenformat. Nur durch Ändern die- 
ses einen Bits läßt sich also der zweite 
Schreib-/Lesekopf »abschalten«. Unse- 
re Übersetzungsroutine von der Spur- 
zur Zylinder- und Kopfnummer beach- 
tet dieses Bit ebenfalls. 

Bit 1 hat nur bei Laufwerk A eine 
Bedeutung. Wenn es den Wert O hat, 
wird beim nächsten Warmstart eine 
Meldung über die aktuelle Betriebssy- 
stemversion ausgegeben. Danach wird 
das Bit automatisch auf 1 gesetzt. 

Bit 2 hat ebenfalls nur für Laufwerk A 
eine Bedeutung - allerdings nur unter 
VDOS 1.0. Wenn es den Wert O 
annimmt, werden alle ausführlichen 
BIOS-Meldungen unterdrückt. 

Bit 3 hat beim Laufwerk den Wert 1, 
solange die Motoren eingeschaltet 
sind. Durch ständige Abfragen können 
Sie so beispielsweise eine Warte- 
schleife realisieren, die erst dann zum 
Wechsel der Diskette auffordert, wenn 
die Motoren stehengeblieben sind. Für 
Laufwerk B hat dieses Bit keine Bedeu- 
tung. 

Bit 4 muß den Wert 1 haben, wenn 
beim nächsten Schreib-/Lesezugriff auf 
die entsprechende Diskettenstation ein 
»Multi-Sektor-Transfer« ausgeführt wer- 
den soll. In diesem Fall werden mehrere 
Sektoren auf einmal übertragen. Nach 
solch einem Zugriff wird das Bit automa- 
tisch wieder auf O gesetzt. Diese Wahl- 
möglichkeit kann nur beim direkten Auf- 
ruf der entsprechenden XBIOS- 
Routinen - sowie beim Warmstart - ein- 
gesetzt werden. 

Wenn Bit 5 in bezug auf Laufwerk A 
den Wert O hat, wird beim nächsten Dis- 
kettenzugriff das Diskettenlaufwerk an 
der Geräteadresse 0 angesprochen. 
Besitzt dieses Bit hingegen den Wert 1, 
so wird das Laufwerk an der Geräte- 
adresse 3angesprochen. Im Disketten- 
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Parameter-Block von Laufwerk B ent- 
scheidet dieses Bit hingegen zwischen 
den Laufwerken an der Geräteadresse 
1 und 3, Eine Änderung dieser Bits 


‚(zusammen mit einer Neueinstellung 


der übrigen Diskettenparameter) ent- 
spricht damit den Befehlen »S0« bezie- 
hungsweise »S2«. 

Bit 6 muß den Wert O haben, wenn 
das zugehörige Laufwerk vor dem 
nächsten Zugriff justiert werden soll. 
Danach wird Bit 6 automatisch auf den 
Wert 1 zurückgesetzt. 

Es Ist nun sicher nicht jedermanns 
Sache, mit Debuggern nach einzelnen 
Bytes im Speicher Ausschau zu halten 
und anhand der gefundenen Werte die 
Lage weiterer interessanter Bytes zu 
bestimmen. Tippen Sie lieber das 
Turbo-Pascal-Programm aus Listing 2 
ab. Es gibt ohne Probleme alle für wei- 
tere Experimente interessanten Daten 
aus. 

Hinter der Kennung »dpb:« werden 
die 15 Byte des Disketten-Parameter- 
Blocks angezeigt. Hinter »dpx« stehen 
die 10 Byte des erweiterten Parameter- 
blocks. Beide werden sowohl für Lauf- 
werk A als auch für Laufwerk B auf dem 
Bildschirm angezeigt. Beachten Sie 
dabei aber, daß 16-Bit-Werte (ein Dop- 
pelbyte) nicht zusammengefaßt, son- 
dern als zwei einzelne Byte ausgege- 
ben werden. Dabei stehen die zwei nie- 
derwertigen Stellen im ersten Byte des 
Paares und die höherwertigen Stellen 
im zweiten Byte des Paares. Bei den 15 
»dpb:«-Byte werden übrigens die Daten 
berechnet, die auch »STAT DSK:« an- 
zeigt. Mit »STAT« sind sie allerdings so 
aufbereitet, daß auch der unbedarfte 
Leser etwas damit anfangen kann. 
»GETDISK« stellt die Werte hingegen 
so dar, daß sie in den folgenden Experi- 
menten ohne Umrechnung weiterbe- 
nutzt werden können. 

»dphstart«, »freistart«, »csvab« und 
»alvab« bezeichnen die Startadressen 
von Tabellen und freien Speicherberei- 
chen, die später ebenfalls noch benö- 
tigt werden. 

Die einzige Prozedur des Program- 
mes installiert eines der in einer Tabelle 
vorbereiteten Formate. Diese Tabelle 
läßt sich ohne großen Aufwand um 
eigene Formate verlängern oder verkür- 
zen. Nur die Konstante »max« Ist ent- 
sprechend anzupassen. Natürlich kön- 
nen auch vorhandene Formate abgeän- 
dert werden. Experimente schaden 
nichts. Das Schlimmste, was passieren 
kann, ist, daß auf Ihrer (vorher hoffent- 
lich leeren) Experimentierdiskette 
unsinnige Daten stehen. 

Das Hauptprogramm realisiert eine 
einfache Menüsteuerung, so daß Sie 
mit einem Tastendruck eines der vor- 
definierten: Formate installieren kön- 
nen. Danach wird das Programm been- 


det, aber das entsprechende Format 
bleibt erhalten. Die Diskette im neuen 
Format behandeln Sie genauso wie 
jede andere normale Diskette. Insbe- 
sondere können Sie mit »DIR« das 
Inhaltsverzeichnis anzeigen und mit 
»PIP« Dateien kopieren. Weilnach dem 
Ende eines Programms im Laufwerk A 
eine Systemdiskette liegen muß, ist das 
Installieren eines neuen Formates in 
dieser Anwendung nur auf Laufwerk B 
sinnvoll. 


Was tun mit einem 
Laufwerk? 


Falls Sie nur ein Diskettenlaufwerk 
besitzen: keine Angst. Sie können die 
Prozedur in einem eigenen Programm 
trotzdem einsetzen. Dabei gehen Sie 
folgendermaßen vor: Im ersten Schritt 
fordern Sie den Anwender auf, eine Dis- 
kette im neuen Format ins Laufwerk A 
einzulegen. Dann installieren Sie auf 
dem Laufwerk A dieses Format und 
rufen danach mit Hilfe der Pascal- 
Prozedur »bdos(13)« einen Reset der 
Diskettenstation auf. Im zweiten Schritt 
lesen Sie wie gewöhnlich mit 
»reset(datei)...« eine Datei von der Dis- 
kette im neuen Format in den Speicher. 
Im dritten Schritt fordern Sie wieder den 
Anwender auf, eine Diskette im alten 
(Schneider-)Format einzulegen, instal- 
lieren das Originalformat und rufen 
erneut»bdos(13)« auf. Jetztkönnen Sie 
die Daten im Speicher auf die 
Schneider-Diskette schreiben und das 
Programm beenden. Falls eine Datei 
nicht in einem Stück in den Speicher 
paßt, wiederholen Sie die Schritte eins 
bis drei mehrmals und kopieren jeweils 
einen anderen Ausschnitt. 

Benutzen Sie ein eigenes CP/M- 
Format, reichen in der Regel die Tabel- 
len CSV und ALV nicht aus. Diese müs- 
sen Sie deshalb in einen genügend gro- 
Ben freien Speicherbereich verschie- 
ben - und der liegt natürlich bei jeder 
Betriebssystemversion an einem ande- 
ren Platz. Deshalb kann auch nur ein 
Sonderformat zur gleichen Zeit aktiv 
sein. Zwei Formate würden sich nämlich 
den Platz für die zusätzlichen Tabellen 
streitig machen. Umgekehrt müssen 
beim Installieren des Originalformates 
die CSV- und ALV-Tabellen wieder an 
der alten Stelle restauriert werden. Im 
Abschnitt mit den Konstanten müssen 
Sie deshalb diejenigen Werte einset- 
zen, die Sie mit »GETDISK« erhalten 
haben. 

Ebenfalls muß das letzte Byte der er- 
weiterten Disketten-Parameter-Tabelle 
angepaßt werden. Bei einem Vortex- 
Controller haben Sie vor allem auf die 
höherwertige Stelle des Byte 24 die- 


ses Bereichs zu achten. Steht hier der 
Wert 2, wird für dieses Format nicht das 
Standardlaufwerk benutzt, sondern ein 
Zusatzlaufwerk. Ungerade Werte be- 
zeichnen immer ein doppelseitiges For- 
mat und gerade Werte immer ein einsei- 
tiges. 

Beim Schneider-Controller muß die- 
ses Byte in allen Formaten den Wert 
FF hex annehmen. Nur so bleiben neue 
Formate auch nach einem Warmstart 
erhalten. Eine Ausnahme bildet das 
erste Format. Dieses muß vollständig 
einem der drei Originalformate entspre- 
chen. Das letzte Byte des erweiterten 
Disketten-Parameter-Blocks muß des- 
halb wieder den Wert O annehmen. 
Doppelseitige Formate streichen Sie 
deshalb bei diesem Betriebssystem 
unbedingt ganz aus der Tabelle. 

Zwei bemerkenswerte Formate sind 
allerdings in der Tabelle enthalten. Ein 
3-Zoll-Laufwerk hat nicht nur 40 Spu- 
ren, sondern volle 43.: Auf eine Spur 
passen außerdem nicht nur 9 Sektoren, 
sondern 10. Systemspuren sind bei so 
besonderen Formaten auch überflüs- 
sig. Eine gewöhnliche 3-Zoll-Diskette 
nimmt so bis zu 215 KByte Daten auf. 
Das Besondere ist, daß die zusätzli- 
chen 44 KByte nicht mit Tricks zu errei- 
chen, sondern richtig ins Betriebssy- 
stem integriert sind. Ein ganz ähnlicher 
Effekt läßt sich auch bei doppelseitigen 
Laufwerken mit 80 Spuren erreichen. 
Bis zu 82 Spuren kann man anspre- 
chen, so daß Sie aus einer 5'/s-Zoll- 
Diskette bis zu 820 KByte Daten her- 
vorlocken können. Durch die Block- 
länge von 2 KByte wird nebenbei der 
Datenbereich bedeutend besser aus- 
genutzt. Das Inhaltsverzeichnis wurde 
gleichzeitig auf 6 KByte - und damit 
192 Einträge - vergrößert. 


Anregungen 


Alle erwähnten Parametertabellen 
stehen auch unter Basic zur Verfügung, 
und zwar im Bereich zwischen A700 
und AC00 hex. Hier können sie in der- 
selben Weise verändert werden. So- 
bald Sie die Werte einmal bestimmt 
haben, haben Sie auch unter Basic mit 
nur wenigen POKEs die Möglichkeit, 
das Diskettenformat dauerhaft zu ver- 
ändern. Mit nur einem Laufwerk kom- 
men Sie zusätzlich zu dem Vorteil, keine 
Systemspuren für die Informationen zu 
gebrauchen. 

Bisher haben wir nur Formate ohne 
(logischen) Sektorversatz bearbeitet. 
Wenn Sie eine BIOS-Routine »SEC- 
TRAN« einbauen, die die XLT-Tabelle 
beachtet, ändern Sie das ohne allzu 
großen Aufwand. 

(Helmut Tischer/hg) 
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Unter CP/M erleichtern BDOS-, 
BIOS- und auch Firmware-Rou- 
tinen die tägliche Arbeit. Doch 
auch die 13 speziellen System- 
Routinen für die Diskettenlauf- 
werke muß man für effektive Pro- 
gramme kennen. 


ie Controller von Schneider und 
D von Vortex kennen 13 spezielle 

Routinen, die standardmäßig 
unter CP/M nicht vorhanden sind. Mit 
ihnen kann man den Datentransfer zwi- 
schen Computer und Massenspeicher 
völlig neu organisieren. Die Routinen 
sind trotz unterschiedlicher Hersteller 
bei beiden Betriebssystemen nach 
außen hin nahezu identisch. Solange im 
folgenden nichts anderes vermerkt ist, 
gelten die Anmerkungen für beide Con- 
troller. 

Bei einem 44 KByte großen CP/M 
2.2 liegen die 13 Startadressen für die 
Routinen im Bereich von BE80 bis 
BEA6 hex. Das 62 KByte große CP/M 
(mit Vortex-Speichererweiterung) be- 
nutzt für die ersten 11 Adressen die 
Speicherstellen zwischen F439 und 
F459 hex. An den Adressen des »klei- 
nen« CP/M stehen »Umleitungen« auf 
die neuen Werte. So passiert nichts 
Unangenehmes, wenn ein Programm 
auf die andere Version von CP/M über- 
nommen wird - sofern der Speicher- 
platz ausreicht. Die Routinen an den 
Adressen BEA1 und BEA4 hex sind hin- 
gegen mit Speichererweiterung nicht 
mehr vorhanden. Dafür gibt es zwei 
neue Routinen und zwar im Speicher 
bei F433 und F436 hex. Eine kurze 
Erklärung der einzelnen Routinen (ein- 
schließlich Aufruf mit Übergabepara- 
metern und Ergebnis) gibt Tabelle 1. 
Einige komplizierte Routinen verdienen 
jedoch noch eine besondere Erklärung. 

Nach Fehlern beim Zugriff auf die Dis- 
kette erscheint beim Vortex-Controller 
die Meldung 
Diskette fehlt. Nochmal versuchen? (J/N) 

Diese Meldung (bei Schneider er- 
scheint sie auf englisch) stammt nicht 
aus dem BIOS, sondern wird von der 
System-Routine an Adresse BE80 hex 
erzeugt und kann hier auch verhindert 
werden. 

Verschiedene Laufwerkstypen benö- 
tigen unterschiedlich viel Zeit, um eine 
neue Spur aufzusuchen. Mit der Rou- 
tine von BE83 hex teilen Sie dem BIOS 
alle wichtigen Laufwerksdaten mit. 

An BE86 hex steht die Routine zum 
Einstellen der Standard-Diskettenfor- 
mate. Bei Schneider wird im Register E 
die Nummer des Laufwerks, das ein 


neues Format erhält, angegeben. Im 
Register A steht dazu das Format, das 
eingesetzt werden soll. Mit a=40 hex 
wird das System-, mit a=CO hex das 
Daten- und mit a=00 hex das IBM- 
Format eingestellt. Die entsprechende 
Routine von Vortex fordert im Registera 
den Wert 1, wenn das Laufwerk A durch 
ein externes Zusatzlaufwerk (beispiels- 
weise eine 3-Zoll-Station) ersetzt wer- 
den soll. Mit einer 2 in diesem Register 
wird Laufwerk B ersetzt. Der Wert O 
steht für die beiden Standard-Laufwer- 


ke. Die Formatierung ist einfacher. Eine 
externe Station wird automatisch mit 
dem Systemformat von Schneider ver- 
sehen, das Vortex-Laufwerk natürlich 
mit diesem Format. Das Programm »S2« 
auf der System-Diskette von Vortex 
braucht somit nur 5 Byte lang sein. 
WI A,2 
JMP BES6 

Der Vortex-Controller kennt noch 
zwei weitere Anweisungen. Wird im 
Register A der Wert FF hex übergeben, 
so liefert das Registerpaar HL die 


— 


Funktions-Bezeichnung Aufruf Ergebnis. 
Druckerspooler ein/aus - Z:0=jetzt aus 
Z:1=jetzt ein 
- F436 RAM-Disk formatieren - - 
BESO F439 BIOS-Meldungen sperren A:0=erlauben - 
A:255=sperren 
BE83 F43C Zeitkonstanten festlegen HLZeittabelle - 
BESE FA3F Schneider: Diskettenparameter wählen | A:0=1BM - 
A:64=System 
A.192=Daten 
E:Laufwerk 
Vortex: weiche Laufwerke aktiv? AO =intern - 
Aıl=A extern 
A2=B extern 
nur VDOS 2.0, 62KByte: Speed on/aug A:254 A:O=jetzt aus 
A:265=jetzt ein 
‚Adresse des Flagbytes holen A255 HL’Flagadresse 
E:Laufwerk 
BEBO F442 physikalischen Sektorlesen _ CY:O=Fehler 
beide, wenn Bit 4 (Flagbyte)=0 CYıl=in Ordnung 
Vortex, wenn Bit 4 (Flagbyte)=1 E:Laufwerk CY:O=Fehler 
(Bit 4 wird zurückgesetzt) D:Spur CY:t=in Ordnung 
Gerster Sektor 
Biletzter Sektor 
HL’Puffer 
BESC F445 physikalischen Sektor schreiben E:Laufwerk CY:O=Fehler 
beide, wenn Bit 4 (Flagbyte)=0 D:Spur CY:t=in Ordnung 
C:Sektor 
HL.Puffer 
Vortex, wenn Bit 4 (Flagbyte)=1 E:Laufwerk CY:O=Fehler 
(Bit 4 wird zurückgesetzt) D:Spur CY:1=in Ordnung 
Gierster Sektor 
Biletzter Sektor 
HL:Puffer 
BEBF F448 Spur formatieren E:Laufwerk CY.O=Fehler 
IE D:Spur CY-t=in Ordnung 
BE92 F44B Kopf positionieren E:Laufwerk CY:o=Fehler 
D:Spur CY:1=in Ordnung 
BESS FA4E Laufwerksstatus feststellen ‚A:laufwerk A:Status 
CY:0=Fehler 
CY:t=in Ordnung 
BESS F451 Wiederholungswert bei Fehler AcAnzahl - 
BESB F454 Externer Zugang zu Firmware-Routinen (besondere Parameterübergabe) 
BEIE F457 Schneider: Fast/Siow-Modus wählen | A:0=Slow - 
A:255=Fast 
Vortex: Diskmotoren sofort abschalten | - - 
BEAT - ‚Schneider: RS232C initialisieren AuTabelle - 
Vortex: Spur-/Zylindernummer A:Spur AZylinder 
E:Laufwerk | 
BEA4 - Konsolenpuffer füllen HL:Zeichenkette | - 
(bei Tastendruck Puffer löschen?) A:0=löschen 
A:255=weil 
weiter 


Tabelle 1. Die XBIOS-Routinen der Schneider-Computer unter CP/M 2.2 
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— 


cc m 


— 


Adresse des Flagbytes des im Register 
E angegebenen Laufwerks. Dieses 
Flagbyte ist identisch mit dem 25. Byte 
des Diskparameterblocks. Das ent- 
spricht damit nicht dem CP/M-Stan- 
dard. Die Bedeutung der einzelnen Bits 
erklärt Tabelle 2. 

Unter dem VDOS 2.0 des Vortex- 
Laufwerks wird die beschleunigte Bild- 
schirmausgabe im Modus 2 ein- oder 
ausgeschaltet, wenn die Routine mit 
dem Wert FE hex im Register A aufgeru- 
fen wird, Diese Anweisung funktioniert 
allerdings nur bei abgeschalteter Spei- 
chererweiterung. 

BE89 und BESC hex lauten die Start- 
adressen zum Lesen beziehungsweise 
Schreiben eines (meist 512 Byte lan- 
gen) physikalischen Sektors. Der Be- 
fehl wird sofort und ohne Pufferung 
durch das BIOS ausgeführt. Die Sekto- 
ren müssen mit ihren physikalischen 
Nummern angesprochen werden - bei 
einer Diskette im Schneider-Systemfor- 
mat also mit 41 bis 49 hex. 

Vortex bietet allerdings noch einen 
zusätzlichen Befehl. Wenn Bit 4 des 
Flagbyte des angegebenen Laufwerks 
gesetzt ist, werden mehrere Sektoren 
auf einmal übertragen. Register C ent- 
hält dann die Kennung des Startsektors 
und Register B die Nummer des letzten 
Sektors. Nach Abschluß der Routine 
wird das Bit automatisch auf Null zu- 
rückgesetzt. Diese Methode hat einen 
sehr schnellen Datentransfer zur Folge. 

Mit der Routine von BE8F hex wird 
jede einzelne Spur einer Diskette for- 
matiert. Dazu werden in einer Tabelle für 
jeden zu formatierenden Sektor 4 Byte 
übergeben: die Zylinder-, die Kopf- und 
die Sektornummer sowie die Sektor- 
größe. Die Länge der Tabelle wird nicht 
beim Aufruf mit angegeben, sondern ist 
in den Diskettenparameterblöcken ver- 
merkt. Eine zu geringe Tabellenlänge 
führt ohne Fehlermeldung zur fehlerhaf- 
ten Formatierung. Ist die Tabelle zu lang, 
bleiben wichtige Sektornummern unbe- 
rücksichtigt. Ein beliebter Trick ist es, 
die Sektornummern nicht der Reihe 
nach anzugeben, sondern folgende 
(oder eine ähnliche) zu benutzen: 
162738495 

Das beschleunigt den späteren Zu- 
griff enorm. Beim Vortex-Format muß 
die Nummer der Spur zuerst in Kopf- 
und Zylindernummer umgerechnet 
werden, bevor diese in die Tabelle ein- 
getragen werden darf. 

BE92 hex lautet die Startadresse der 
Routine, die den Schreib-/Lesekopf 
eines Laufwerks sofort über den Zylin- 
der positioniert. Im Register E wird das 
Laufwerk und in D die Spur übergeben. 

BE95 hex ermittelt den Status eines 
(in Register A angegebenen) Lauf- 
werks. Damit wird beispielsweise fest- 
gestellt, ob die eingelegte Diskette 
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hardwaremäßig schreibgeschützt oder 
ob überhaupt eine Diskette vorhanden 
ist. 

Die Zahl der Leseversuche bei Über- 
tragungsfehlern legt die Routine an der 
Startadresse BE98 hex fest. 

Normalerweise müssen Sie beim Auf- 
ruf von Firmware-Routinen unter CP/M 
genauestens darauf achten, daß alle - 
teilweise recht unscheinbare - Neben- 
bedingungen erfüllt sind. Sonst ist der 
Computer nurnoch durch Aus- und wie- 
der Einschalten zur normalen Arbeit zu 
bewegen. Die Routine an der Adresse 
BE9B hex entbindet Sie von dieser 


Sorge. Der Aufruf ist allerdings etwas 
ungewöhnlich. Die Register werden wie 
beim direkten Aufruf von Maschinen- 
code-Routinen mit den Daten geladen. 
Danach wird der Programmteil immer 
mit »CALL BE9BH« aufgerufen. Die 
Adresse der eigentlich gewünschten 
Firmware-Routine steht in den unmittel- 
bar folgenden Bytes. Zum Ziehen einer 
diagonalen Linie brauchen Sie bei- 
spielsweise folgendes Programm: 

LXI  D,0000K 

IXI  H,0000K 

CALL BE9BH 

DW BBCOH 


Laufwerk A und B: 
° o bei einseltigem Diskettenformat 
1 bei doppelseitigem Diskettentormat 
4 o ‚als nächstes nur 1 Sektor Read/Write 
1 ‚das nächstemal Multi-Sektor-Transfer 
6 o vor nächstem Zugriff Laufwerk justieren 
1 vor nächstem Zugriff Laufwerk nicht Justieren 
nur Laufwerk A: 
1 o beim nächsten Warmstart Version anzeigen 
1 BIOS-Version nicht anzeigen 


2 (nur bei VDOS 1.0, sonst nicht verwendet) 
BIOS-Fehlermeldungen in Klartext angezeigt 
keine Klartext-Fehlermeldungen 


wenn Laufwerksmotor ausgeschaltet 


o 
1 
o 
1 wenn Laufwerksmotor eingeschaltet 
o 
1 
7 


5 Laufwerk auf Geräteadresse 0 verwenden 
Laufwerk auf Geräteadresse 3 verwenden 
(nicht verwendet) 

nur Laufwerk B: 

1 (nicht verwendet) 

2 & (nicht verwendet) 

E {nicht verwendet) 

5 o Laufwerk auf Geräteadresse 1 verwenden 


Laufwerk auf Geräteadresse 3 verwenden 


E 7 


(nicht verwendet) 


0032 hex 


Tabelle 2. Die Bedeutung des Flagbyte des Vortex-Controllers 


Hochlaufzeit des Diskettenmotors 


213 16 Bit 


OOFA hex 
0096 hex 


Nachlaufzeit des Diskettenmotors 
(Einheit 1/50 Sekunde) 
‚Schneider: 5 Sekunden 

Vortex: 3 Sekunden 


(Einheit 1/50 Sekunde) | 


AF hex 


Wartezeit nach dem Sektorschreiben 
(Einheit: 17100000 Sekunde) 


IE hex 


Grundwartezeit bei Spurwechsel \ 
(Einheit: 1/1000 Sekunde) 


BEE 


0C hex 


C4 hex 


Zusatzwartezeit pro zu wechselnder Spur 
(Einheit: 1/1000 Sekunde), 
intern wird immer auf gerade Werte gerundet, 
‚Schneider: Bits 0-4 

Bits 5-7 immer O 
Vortex: 
Bits 0-3 für Laufwerk auf Adressen O und 1 
Bits 4-7 für Laufwerk auf Adresse 3 


O1 hex 


Bits 0-9: Verzögerung bis zum Abheben des 
Kopfes nach letztem Zugriff 

(Einheit: 32/1000 Sekunde) 

Bits 4-7: immer O 


03 hex 


Bits 1-7: Verzögerung nach dem Aufsetzen des 
Kopfes bis zum ersten Zugriff 
(Einheit: 1/250 Sekunde) 

Bit O muß immer 1 sein, sonst Systemabsturz 


Tabelle 3. Die Zeitkonstanten für Diskettenlaufwerke 


IXI D,02798 
IXI H,O18FH 
CALL BE9BH 
DW  BBFEH 


Den Routinen am der Biss BESE 
hex kommt bei Were und Shneo= 
eine vollkommen unierschiediiche Auf- 
gabe zu. Bei Schneider wirdimit hr zwi- 
schen dem Siow- und Fast Miocus hin- 
und hergeschaltiet in Som Modus ür- 
fen die Register BO und ## beiebig 
verändert werden. Dies nützt zum Bei- 
spiel Turbo-Pascal zus im Fast-Modus 
Ist das nicht gestaet Des Bufen aber 
alle Interrupts und Firmware-Aufrufe 
bedeutend schnee & 

Das erste Betriebssystem von Vortex 
(VDOS 1.0)5e8denCPC immer im Fast- 
Modus arbeiten. Einige Programme, so 
zum Beispiel Turbo-Pascal, nehmen das 
aber übel. Reumütig bekannte sich Vor- 
tex zu seinem Fehler. Undmit VDOS 2.0 
verweilt der Computer immer im Slow- 
Modus. Vortex kennt dabei aber bis 
heute nicht die an dieser Adresse ste- 
hende Umschalt-Routine von Schnei- 
der. Hier wurde statt dessen eine Rou- 
tine eingebaut, die den Diskettenmotor 
augenblicklich abschaltet. 

Auch die Routinen an der Adresse 
BEA1 hex unterscheiden sich bei Vor- 
tex und Schneider. Der Schneider- 
Routine wird hier eine 12 Byte lange 
Tabelle übergeben. Mit den Daten die- 
ser Tabelle wird die serielle Schnitt- 
stelle von Amstrad (nicht zu verwech- 
seln mit der RS232-Schnittstelle von 
Schneider) initialisiert. Außer dieser 
Routine enthält das Schneider-BIOS 
noch einige Ein/Ausgabe-Routinen für 
diese Schnittstelle, die dabei bereits 
als ordentliche CP/M-Kanäle implemen- 
tiert sind. 

Die Adresse BEA1 hex steht bei Vor- 
tex für eine Routine, die die Umrech- 
nung der Spur- in Zylinder- und Kopf- 
nummer vornimmt. Dabei geht die Un- 
terscheidung zwischen ein- und dop- 
pelseitigem Format anhand des Lauf- 
werk-Flagbytes automatisch vor sich. 

»CALL BEA4H« entspricht dem Auto- 
start-Kommando. Dieser Routine wird 
eine Tabelle übergeben, die eine Zei- 
chenkette enthält. Im ersten Byte steht 
die Länge der Zeichenkette. Danachfol- 
gen bis zu 128 Zeichen. Diese Zeichen 
werden zuerst an die Tastatur »zurück- 
geschickt«. Eine darauf folgende Kon- 
soleneingabe liefert statt der gedrück- 
ten Tasten nach und nach die voreinge- 
stellten Zeichen. Erst wenn die Zei- 
chenkette vollständig abgearbeitet ist, 
wird die Tastatur wie gewohnt behan- 
delt. Auf dem Bildschirm sieht das Re- 
sultat dabei so aus, als ob der Computer 
»seine Tasten selbst drückte. Mit dem 
Wert im Register A wählen Sie, ob ein 
Tastendruck die Auto-Zeichenkette 
löscht oder nicht. 


eware-Routinen und CPC-XBIOS-Routinen aus Turbo-Pascal aufrufen *) 
Zuer CP/M 2.2, ohne Speichererweiterung *) 


‚record f:byte;a:byte;be:integer;de:integer;hl:integer end; 


$22/adress/$22/%+19/$ed/$73/spvar/$13/$ed/$7b/regvar/Sf1/$c1/$d1/$e1/ 
303/890 /$be/300/300/8f3/$e5/$45/$c5/$75/$ed/$7b/spvar/$fb)end; 

dure xbios(var regvar:register;adress: Integer) ;var spvar:integer;begin 
‚= ($2a/adress/$22/%+19/$ed/$73/spvar/$f3/$ed/$7b/regvar/Sf1/$e1/$d1/$e1/ 
$ca/89%/8be/800/800/$23/385/845/$c5/8f5/$ed/S70/spvar/$fb)end; 


CPC-Pirmware-Routinen und CPO-XBIOS-Routinen aus Turbo-Pascal aufrufen 
(# Version fuer Vortex-Speichererweiterung, ohne Systemvektor-Verwendung *) 


(* Anpassung an eigene CP/M 2.2 Betriebssystenversion: x) 
(* Programm 'DDT.COM' starten, danach 'LBB00' tippen. *) 
(# Es ergeben sich lauter Zeilen '.... CALL yawx'. *) 
(% In 'FIRM62.INO" Zeichenfolge '$XX/$YY/' in '$wx/Syz/' aendern. x) 
(* Vertauschung der Ziffernreihenfolge beachten ! *) 


type register=record f:byteja:byte;be:integer;de:integershl:integer end; 
procedure firmware(var regvar:register;adress:integer);var spvar:integer;begin 
inline($ed/$73/spvar/$f3/$ed/$7b/regvar/$f1/$c1/$d1/$e1/$fb/$d9/821/4+908/3e5/ 
lee EHE EET 
$fo)end; 

procedure xbios(var regvar:register;adress:integer);var spvar:integer;begin 
inline($ed/$73/spvar/$f3/$ed/$70/regvar/Sf1/$c1/$d1/$e1/$ed/$7b/spvar/$fb/$d9/ 
$21/%+80d/$e5/$2a/adress/$11/$69/$35/819/$e5/849/$c9/3f3/808/849/$2a/regvar/ 
$11/808/800/819/819/$49/908/985/845/$05/815/$ed/87b/spvar/$fb)end; 


Listing 2. Mit »Firm62« kann auch das »aufgeblasene« CP/M Controller-Routinen 


program Disketten formatieren; 
{$1 firmware.ine) (* Firmware-Aufrufe und XBIOS-Aufrufe ermoeglichen *) 


const name = 'Vortex'; (X Name des Formates *) 
maxsec 8% (* Sektoren pro Spur Minus 1 *) 
maxtrack = 159; (* Anzahl der Spuren Minus 1*) 
sides = 1; (* 0 wenn einseitig formatiert werden soll *) 


(* 1 wenn doppelseitig formatiert werden soll *) 
forndat: array[O..maxsec,0..3] of byte = ((0,0,1,2),(0,0,6,2),(0,0,2,2), 

(0,0,7,2) ,(0,0,3,2) , (0,0,8,2),(0,0,4,2),(0,0,9,2) ,(0,0,5,2)); 
(# Daten fuer die Sektor-IDs des Zylinders 0, Seite 0 *) 

var drive: integer; wahl, taste: char; 

procedure formatdisk(drive: Integer); 

var cpuregister: register; 1, track, zylinder, head:integer; 

begin 

writeln('Format: ',name); 

write("Formatieren von Laufwerk '‚chr(ord('A')+(drive and 1)),' Zylinder 00'); 

for track := 0 to maxtrack do 


begin 
if sides = 1 
then begin zylinder := track shr 1; head := track and 1 end 
else begin zylinder := track; head end; 


if head = 0 then write(#8%#8,zylinder:2); 
for i:= 0 to maxsec do 
begin formdat[i, 0] := zylinder; formdat[i, 1] := head end; 
cpuregister.de track shl 8 + (drive and 1); 
epuregister.hl := addr(forndat) ; 
xbios(opuregister,$BE8F); (* Spur formatieren *) 
if (opuregister.f and 1) = O then 
begin writeln(' Fehler aufgetreten!'); exit end 
end; 
writeln 
end; 
begin 
write('In welchen Laufwerk formatieren? (A/B) '); 
repeat read(kbd, wahl) ;drive:=ord(upcase(wahl))-ord("A'Juntil(drive and 254)=0; 
writeln(upcase(wahl)); 
repeat 
write('Bitte leere Diskette in Laufwerk '‚upcase(wahl),' einlegen und ', 
"eine Taste druecken '); repeat until keypressed; writeln; 
formatdisk(drive); 
write('Noch eine Diskette? (J/N) '); 
repeat read(kbd,taste) until (upease(taste) = 'J') or (upcase(taste) = 'N'); 
writeln; 
until upcase(taste) = 'N'; 
write('Bitte eine Systemdiskette in Laufwerk A einlegen und eine Taste ', 
"druecken '); repeat until keypressed; writeln 
end. 


Listing 3. Formatieren Sie selbst 
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Analog zu den Pascal-Standardfunk- 
tionen »BDOS« und »BIOS« ist es auch 
erlaubt, die Firmware- oder Controller- 
Routinen ohne Kenntnisse von Maschi- 
nensprache unter Turbo-Pascal direkt 
aufzurufen. Die zugehörigen Routinen 
sind allerdings etwas kompliziert. Sie 
sehen sie in Listing 1 und 2. Leider ist 
es unmöglich, sie von der CP/M-Version, 
mit der man arbeitet, unabhängig zu hal- 
ten. Es gibt damit also eine Version für 
die 44 KByte große Version von CP/M 
2.2 (Listing 1) und eine für die Version 
mit Speichererweiterung (Listing 2). 
Bei der großen Version fallen allerdings 
die Systemvektoren weg. Sie haben 
damit unter Turbo-Pascal 57,5 KByte 
freien Speicherplatz. Im 3. Schneider- 
Sonderheft von Happy-Computer (Son- 
derheft 4/1986) finden Sie auf Seite 
155 und folgende die ausführliche 
Beschreibung der Programme. Hier 
kommt deshalb nur noch einmal das 
Wichtigste in Kurzform zur Sprache, 
Zunächst benötigen Sie eine Variable, 
die ein Abbild des Z80-Registersatzes 
ist: 

VAR OPUREGISTER: REGISTER; 

Diese Variable nimmt die Werte auf, 
die Sie der Routine übergeben wollen. 
Falls das Register A den Wert 255 
erhalten soll, schreiben Sie: 
CPUREGISTER.A := 255 

Den Doppelregistern BC, DE und HL 
können Sie nichts allein zuweisen, son- 
dern nur zusammen mit dem zweiten 
Register: 

OPUREGISTER.BC := B SHL 8 + C 

Der Prozedur »XBIOS« übergeben 
Sie das Abbild des Registersatzes und 
die Adresse der entsprechenden Rou- 


ibe:st 128]=''; 


begin repeat 


until upcase(e) = 'N' end. 


1do; (* Selbstbeschaeftigung *) 
2.inc] (*hier entweder firm44.ine oder firm 62.ine eintragen *) 


write('Welche Tasten soll ich druecken? '); readIn(eingabe); 
regvar.hl := addr(eingabe); regvar.a:=0; 

firmware(regvar, $bea4); 

write('Noch einnal? (J/N) '); read(kbd,c); writeln(e) 


Listing 4. »Ido« - Lernen mit Spaß 


tine. Zum Abschalten der BIOS-Mel- 
dungen beispielsweise: 
XBIOS(CPUREGISTER, $BEBO) 

Falls die Routine einige Register ver- 
ändert, sehen Sie die Änderungen im 
Registersatzbild. 

Als Beispiel für die Arbeit mit den 
XBIOS-Routinen finden Sie in Listing 3 
ein Programm, das eine Diskette forma- 
tiert. Zu Anfang des Programms bestim- 
men Sie mit Hilfe von verschiedenen 
Parametern das Format der Diskette. 
Die Anzahl der Spuren, Seiten und Sek- 
toren sowie der Inhalt der Sektortabelle 
stehen hier. Beachten Sie aber, daß die 
Änderung der Seiten- und der Sekto- 
renzahl nur dann eine Wirkung hat, 
wenn die neuen Werte zu den in den 
Parameterblöcken des Laufwerks ein- 
gestellten Werten passen. 

Bei dem 62 KByte großen CP/M feh- 
len in der Kopie des BIOS (im RAM- 
Bereich zwischen F400 und FFFF hex) 
einige Routinen. In der Systembank 
sind aber alle originalen XBIOS-Routi- 
nen (das sind die Routinen des Control- 
lers) vorhanden. Um dennoch an diese 
Routinen heranzukommen, gibt es 
einen Trick. Eine XBIOS-Routine in der 
Systembank verhält sich nämlich wie 
eine gewöhnliche Firmware-Routine, 


Einzeiler-Wetibewerb 


m festzustellen, zu welchen 

»Speicherspar«-Leistungen un- 

sere Leser fähig sind, starten 
wir in dieser Ausgabe einen Einzeiler- 
Wettbewerb. Alle CPC-Besitzer sind 
aufgerufen, ein interessantes Basic- 
Programm zu schreiben. Sie haben bei 
der Wahl des Themas freie Hand, nur 
ein einziges Kriterium muß Ihr Pro- 
gramm erfüllen: 

Es darf nicht länger als eine Zeile 
sein. Das Programm muß sich nach Ein- 
schalten des Computers an einem 
Stück direkt über die Tastatur eingeben 
lassen. Diese Forderung schließt Tricks 
durch vorausgehende POKE-Befehle 
aus. 

‚Aber wir setzen auf Ihr Können und 
Ihre Fantasie. Das Programm kann zum 
Beispiel ein Utility sein oder einen RSX- 
Befehl implementieren. Auch Musik- 
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oder Grafikspielereien ohne prakti- 
schen Wert sind reizvoll. Wenn Sie es 
sogar fertigbringen, eine vollständige 
Textverarbeitung, ein Adventure oder 
eine Dateiverwaltung in einer Zeile 
unterzubringen, sind Sie mit Sicherheit 
Kandidat für einen der folgenden 
Gewinne: 

1. bis 5. Preis: 

Ein Programm Ihrer Wahl. Es stehen 
zur Auswahl: 

M-Basic, CBasic, Pascal MT+', 
Small C’, Wordstar 3.0, dBase Il*, 
Multiplan’, DR DRAW°", DR GRAPH’, 
oder ein Bücherpaket aus dem 


Markt&Technik-Verlag im Wert von 200 
Mark. 

6. bis 10. Preis: 

Je ein Buchgutschein im Wert von 60 
Mark 

Zur Teilnahme an unserem Wettbe- 


Und die Prozedur »FIRMWAREK« ist ja 
dazu da, diese, Routinen aufzurufen. 
Wir benutzen also die Prozedur »FIRM- 
WARE«, übergeben ihr aber nicht die 
Adresse einer Firmware-Routine, son- 
dern die Adresse einer XBIOS-Routine. 
Für die beschleunigte Bildschirmaus- 
gabe geben wir beispielsweise 
CPUREGISTER.A:=$FE; 
FIRMWARE(CPUREGISTER, $BEB6) ; 
ein. e 

Ein weiteres Problem ist die Über- 
gabe von Tabellen an Routinen in der 
Systembank des Computers. Diese 
müssen sich im Speicherbereich zwi- 
schen 0000 und 7FFF hex befinden. 
Gewöhnliche Variablen stehen aber am 
oberen Ende des Speichers. Greifen 
Sie deshalb zu einer Besonderheit von 
Turbo-Pascal: der »Const«-Deklaration 
mit Typangabe. Einerseits können Sie 
einer derartigen Konstanten während 
des Programmlaufs wie einer Variable 
einen neuen Wert zuweisen. Anderer- 
seits wird sie aber wie eine Konstante 
mitten im Programm-Objektcode abge- 
legt. Und das ist genau das, was wir 
brauchen. Eine lustige und lehrreiche 
Anwendung stellt das Programm aus 
Listing 4 dar. 


(Helmut Tischer/hg) 


werb müssen Sie lediglich Ihren Einzei- 
ler mit einer ausführlichen Programm- 
beschreibung (Definition der Variablen, 
Eingabe von Parametern etc.) bis zum 
1. Februar 1987 (Datum des Post- 
stempels) an 

Redaktion Happy-Computer 

»CPC-Einzeiler-Wettbewerb« 

Markt&Technik Verlag AG 

Hans-Pinsel-Straße 2 

8013 Haar bei München 
einsenden. Sie können auch mit meh- 
reren Einzeilern am Wettbewerb teil- 
nehmen. Der Rechtsweg ist ausge- 
schlossen. 

Damit sich mit den Gewinnern auch 
unsere Leser freuen können, werden 
wir die besten Einzeiler veröffentlichen. 
Programmierer, deren Programme 


nicht prämiert wurden, jedoch so inter- 
essant sind, daß wir Sie den Lesern 
nicht vorenthalten möchten, erhalten 
(ma) 


ein angemessenes Honorar. 


* 128 KByte RAM erforderlich 
** nur für CPC 6128. 


Computerwissen von AbisZ 


Mehr als 160 Seiten mit Informatio- 
nen über Ihren Schneider CPC liegen 
vor Ihnen. Ganz klar, daß jede Menge 
Fachworte in den einzelnen Artikeln auf- 
tauchen. Damit jeder Leser eine Chan- 
ce hat, das Computer-Chinesisch auch 
richtig zu verstehen, finden Sie hier die 
wichtigsten Worte erklärt. Weit über 
100 Stichpunkte von Abschirmung bis 
Zylinder werden erläutert. 

(hg/ma) 


Abschirmung: Metallgehäuse oder Drahtge- 
flecht, das eine Schaltung oder eine Leitung vor 
der Einwirkung von Störstrahlen (durch Radio, 
Fernsehen, und so weiter) schützt oder die 
Abstrahlung von Störimpulsen verhindert, 


‚Absolutwert: Vorzeichenloser Wert einer Zahl. 
So st der Absolutwert von -5 der gleiche wie von 
+5, und zwar der Wert 5. 


‚Adreßbus: Gruppe von Signalleitungen, die der 
Mikroprozessor zur Adressierung von Speicher 
und Peripherie benutzt. 


Algorithmus: Schema für einen Programm- 
ablauf. Jedes Problem, das ein Computer bear- 
beiten kann, läßt sich schematisch darstellen - 
und damit als Algorithmus formulieren. 


Amplitude: Größter Wert, den eine periodische 
Schwingung annehmen kann. Bei einem Uhrpen- 
del ist die Amplitude der maximale Ausschlag in 
eine Richtung. 


Animation: Simulation einer Bewegung durch 
schnelle Wiedergabe von Einzelbildern. 


ASCII: (American Standard Code for Information 
Interchange) Genormter Code für die Zeichen- 
darstellungund-übertragung bei Computern. Der 
normale ASOII-Zeichensatz arbeitet mit nur 7 Bit 
(128 verschiedene Symbole), so daß das 8. Bit 
eines Bytes von verschiedenen Computerher- 
stellern unterschiedlich genutzt wird. 


Assembler: Maschinenorientierte Programmier- 
sprache. Im Gegensatz zu Hochsprachen ist ein 
‚Assemblerprogramm auf einen speziellen Pro- 
zessor ausgelegt und damit für den Menschen 
relativ schwer zu verstehen. 


asynchron: Gegensatz zu synchron (gleichlau- 
fend). Mit asynchron werden Programmteile 
bezeichnet, die unabhängig vom gerade bearbei- 
teten Programm durch ein anderes Ereignis, bei- 
spielsweise einer Zeitvorgabe, aufgerufen wer- 
den 


BDOS: (Basic Disk Operating System) Hard- 
wareunabhängiger Teil des Betriebssystems 
CP/M. Das BDOS ist bei allen CP/M-Computern 
gleich. 


Betriebssystem: Routinen, die zum Betrieb 
eines Computers und seiner Peripherie unbe- 
dingterforderlichsind. Diese Programme steuern 
die gesamte Verwaltung von Speicher, Bildaus- 
‚gabe, Datenübertragung etc.. Ohne ein Betriebs- 


binär: Auf einem Zahlensystem basierend, das 
nur zwei verschiedene Werte kennt. Während 
das normalerweise benutzte Dezimalsystem 10 
verschiedene Ziffern kennt, arbeitet das Binärsy- 
stem nur mit den Werten O und 1. Die Ziffer 2 
benötigt schon zwei Stellen (10) und die 4 sogar 
drei (100). 


Binärdatel: Prinzipiell jede Datei, die Daten im 
Binärcode enthält. Beim Schneider CPC werden 
als Binärdatei Datensätze bezeichnet, die aus- 
schließlich aus Maschinencode-Daten beste- 
hen. Dabei handelt es sich meist um 
Maschinencode-Programme, aber auch um 
gespeicherte Bildschirminhalte. 


BIOS: (Basic Input Output System) Hardware- 
abhängiger Teil des Betriebssystems CP/M. Das 
BIOS enthält die computerspezifischen Ein- und 
‚Ausgabe-Routinen eines CP/M-Computers. 


Bit: (binary Digit) Kleinste Speichereinheit in 
einem Computer. In ihr kann der Wert 1 (Span- 
nungeein) oder O (Spannung aus) stehen. Norma- 
lerweise können 8 Bit gemeinsam als Byte ange- 
sprochen werden. Daraus ergibt sich der maxi- 
male Wert von 256 Zuständen (=2®), der in 
einer Speicherzelle (=1 Byte=8 Bit) abgelegt 
werden kann. 


Blockgrafik: Grafik, die sich aus dem Zeichen- 
satz des Computers zusammensetzt. Bei den 
meisten neueren Geräten können die Symbole 
per Programm geändert werden. Damit lassen 
sich Bilder ähnlich der hochauflösenden Grafik - 
hierbei wird jeder Punkt auf dem Bildschirm ein- 
zeln angesprochen - erzeugen. 


Boolesche Algebra: Logische Verknüpfung 
zweier Informationen. Bei dieser Art der Mathe- 
matik werden logische Zusammenhänge in For- 
mein, wie sie in der normalen Algebra benutzt 
werden, niedergeschrieben. 


Booten: Laden des Betriebssystems von Dis- 
kette. 


BTX: Bildschirmtext ist ein Kommunikationsmit- 
tel, bei dem das Fernsehgerät als Terminal und 
das Telefon als Datenleitung dient. Der Zweck ist, 
die Leistungen eines Großcomputers- und damit 
auch Dienstleistungen verschiedener Firmen -in 
jeden Haushalt zu bringen. 


Byte: 8 Bit, die zu einer Informationseinheit 
zusammengesetzt werden. Ein Byte ist die klein- 
ste Einheit, die man im Speicher eines 
Schneider-Computers direkt ansprechen kann 


Centronies: Amerikanischer Druckerhersteller. 
Die parallele Schnittstelle, die Centronics in 
seine Drucker einbaut, hat sich als Norm durch- 
gesetzt. Mitihr werden 8 Bit parallel übertragen. 


Compiler: Routine, die ein im Quellcode (für den 
Menschen verständlich) geschriebenes Pro- 
grammin eine für den Computer zu bearbeitende 
Datei umsetzt. Fast alle Computersprachen 
arbeiten mit einem Compiler. 


Controller: Baustein oder Baugruppe, die eine 
Hardware-Einheit: kontrolliert (zum Beispiel 
Disketten-Controller). 


CPIM: (Control Program for Microcomputers) 
Vom Computer unabhängiges Betriebssystem 
für 8-Bit-Geräte. Voraussetzung ist eine CPU 
vom Typ 8080, 8085 oder Z80. OP/M erlaubte 
zum ersten Mal, Programme unabhängig vom 
Computertyp zu schreiben. Heute ist CP/M im 
professionellen Bereich von MS-DOS verdrängt 
worden, erlebtbeiden Heimcomputernaber eine 
zweite Blüte. 


CPU: (Central processing unit, zu deutsch: zen- 
trale Prozessoreinheit). Wird als Abkürzung für 
Mikroprozessor benutzt, dem Herzen eines 
Computers 


Cracker: Computerbenutzer, der Dateien mit 
Kopierschutz knackt und sich auf diese Weise 
Zugang zu geschützten Daten verschafft. Im 
Heimbereich ist das »Cracken« meist auf Spiele 
beschränkt. 


Cursor: Zeichen auf dem Bildschirm, das den 
Punkt für die nächste Eingabe markiert. 


DATA-Lader: Basic-Programm, das Werte aus 
DATA-Zellen als Maschinencode-Progranme 
direkt im Speicher ablegt. 


Datenbus: Gruppe von Signalleitungen, die von 
der Hardware des Computers und der Peripherie 
zum Austausch von Daten verwendet wird. 


Daten-Format: Aufzeichnungsformat bei 
Schneider-Disketten, bei dem kein Platz für 
Systemspuren freigehalten wird. 


Datex-P: Postalisches Netz zur Datenfernüber- 
tragung. Datex-P ist technisch dem Telefonnetz 
sehr ähnlich. Die Gebühren sind allerdings 
bedeutend niedriger. 


DDT: (Dynamic Debugging Tool) CP/M-Programm 
zur Fehlersuche, 


dezimal: Normales Zahlensystem mit 10 ver- 
schiedenen Ziffern. 


DFÜ: Datenfernübertragung. Informations- und 
Programmaustausch zwischen zwei Computern 
über das Postnetz. 


Dialog: Verständigung (»Unterhalten«) zwischen 
zwei Computern oder Menschen und 
Computern. 


Digitalvoltmeter: Spannungsmeßgerät mit Zif- 
fernanzeige. 


Directory: Verzeichnis aller Daten auf einer Dis- 
kette. Bestimmte Spuren auf einem Datenträger 
sind für dieses Verzeichnis freigehalten. Mit sei- 
ner Hilfe findet der Computer die einzelnen 
Daten. 


DMA: (Direct memory access) Elektronischer 
Baustein, der die Speicherverwaltung übernimmt 
und dadurch den Mikroprozessor entlastet. Da 
der DMA auf die Übertragung großer Datenmen- 
gen spezialisiert ist, macht er das sehr schnell. 


DOS plus: (Disk Operating System) Betriebssy- 
stem für 16-Bit-Computer mit einer CPU von 
Intel. DOS plus ist die Antwort von Digital Re- 
search auf MS-DOS. DOS plus beherrscht den 
Befehlssatz von CP/M 86 (CP/M-Version für 
16-Bit-Computer) und MS-DOS. 
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Double Density: Aufzeichnungsformat auf Dis- 
ketten mit doppelter Datendichte. 


Download: Übertragung von Daten aus einer 
Datenbank in den eigenen Computer. 


Editor: Programm zum Eingeben von Texten und 
Programmen. 


Elektrolytkondensator: Spezielle Bauart eines 
Kondensators, die höhere Kapazitäten bei glei- 
(chen Abmessungen erlaubt. Besitzt in der Regel 
eine vorgeschriebene Polung. 


Escape-Sequenz: Zeichenfolge, die der Compu- 
ter an den Drucker sendet, um anzukündigen, 
‚daß die folgenden Daten nicht gedruckt werden 
sollen, sondern dem Einstellen auf bestimmte 
‚Arbeitszustände dienen. 


Extension: Kombination aus drei Buchstaben, 
die den Dateityp angibt (BAS für Basic- 
‚Programme, BIN für Binärfelder und so weiter). 


Fast-Ticker: Interruptuhr beim Schneider, die alle 


. 1/300-Sekunde berücksichtigt wird. 


Festplatte: Speichermedium, das aus festen, 
magnetisierbaren Scheiben (Harddisks) aufge- 
baut ist. Die geschlossene, staubgeschützte 
Bauweise erlaubt sehr hohe Speicherdichten 
(20 bis 60 MByte) und rasante Datenübertra- 
gung durch höhere Drehzahlen. 


Firmware: Fest eingebautes Betriebssystem 
eines Computers. 


Flag: Bit oder Byte, das bei Entscheidungen 
gesetzt wird und in der späteren Ausführung zu 
unterschiedlichen Bearbeitungsarten führt. 


Floppy: Anderes Wort für Diskette 


Formatieren: Vorbereitung der Diskette für die 
Datenspeicherung. Erst dadurch wird es dem 
Controller ermöglicht, abgelegte Daten wieder 
zu finden. 


Frequenz: Anzahl von Schwingungen eines Si- 
gnals in einer Sekunde. 


Gate-Array: Standard-IC mit gitterförmig ange- 
ordneten Bauelementen. Die endgültige Ver- 
drahtung der Elemente, und damit die spezielle 
Funktion des Bausteins, bestimmter Kunde des 
IC-Herstellers. Viele Computerhersteller bauen 
in ihre Geräte solche Bausteine ein, um die Zahl 
der Einzelelemente zu minimieren - und 
Hardware-Nachbauten zu erschweren. 


GEM: (Graphics Environment Manager). Grafi- 
sche Benutzeroberfläche, bei der einzelne 
Betriebssystemaufrufe durch Symbole darge- 
stellt werden. Der Sinn von GEM ist die Nachbil- 
dung eines elektronischen Schreibtisches, der 
für den normalen Computerbenutzer leichter zu 
bedienen istals direkte Betriebssystem-Befehle. 


globale Variable: Variable, die im gesamten Pro- 
gramm gültig ist. 

GSX: (Graphics Extension) Grafische Erweite- 
rung von CP/M plus. 


Hacker: Computerbesitzer, der über DFÜ in 
fremde Computersysteme eindringt, Daten liest 
und teilweise manipuliert. 
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Hardcopy: Ausdruck des Bildschirms auf einen 
Drucker. 


Hardware: Feste, greifbare Bestandteile eines 
Computersystems (Gehäuse, Bauteile, Drähte 
und so weiter). 


Hashing: Algorithmus zum Sortieren von Daten. 
Unser Listing GPC benutzt dieses Verfahren, um 
beider Eingabe vertauschte Werte zu erkennen. 


Hertz: Maßeinheit für Frequenz. Gibt Schwin- 
gungen pro Sekunde an. 


hhexadezimal: Zahlensystem, das 16 verschie- 
dene Ziffern benutzt. Da 16 ein Vielfaches von 2 
(der Grundzahl des Binärsystems) ist, erlaubt das 
hexadezimale System eine besonders übersicht- 
liche Darstellung der Speicherinhalte von Com- 
putern. Die Zahl 255 wird noch mit zwei Ziffern 
(FF) geschrieben. 


Hexdump: Hexadezimale Wiedergabe eines 
Speicherbereichs. 


Hochsprache: Programmiersprache, die an die 
menschliche Darstellungskraft angelehnt ist. Im 
Gegensatz zu Assemblersprachen sind Hoch- 
sprachen »relative einfach zu verstehen. Die 
Umsetzung in eine für den Computer verständli- 
che Sprache ist aber oft sehr kompliziert. 


IBM-Format: Aufzeichnungsformat bei Schnei- 
der-Disketten, das auch von IBM benutzt wird. 


ID-Byte: Erkennungsbyte (Flag) bei Turbo- 
Pascal. 


Include-Dateien: Programmteile, die unter Tur- 
bo-Pascal erst beim Compilieren in den Quelltext 
eingebaut werden. 


Integral: Mathematische Berechnung einer Dif- 
ferenzialgleichung. Mit Hilfe eines Integrals wird 
die Fläche unter einer Kurve berechnet. 


Interface: Bindeglied zwischen Computer und 
Peripherie. 


Interpreter: Im Gegensatz zu einem Compiler 
übersetzt der Interpreter ein Programm schritt- 
weise in für den Computer verständliche 
Maschinencode-Anweisungen. Dadurch wird 
der Programmablauf langsam, die Fehlersuche 
ist aber einfacher. Basic ist eine typische Inter- 
Pretersprache. 


Interrupt: Unterbrechung eines Programms in 
‚Abhängigkeit von der Zeit und unabhängig vom 
gerade bearbeiteten Programmteil. 


1IO-Adresse: Adresse für ein Port (Tor) zur Ein- 
und Ausgabe von Daten. 


Kaltstart: Neustart des Computers mit vollstän- 
digem Löschen des Speichers. 


kompatibel: verträglich. Kompatible Computer 
verarbeiten problemlos die gleiche Software. In 
der Regel sind Heimcomputer verschiedener 
Hersteller untereinander nicht kompatibel. Oft 
auch als Kurzbezeichnung für Computer, die zum 
IBM-PC kompatibel sind. 


Label: Marke in einem Programm, die vor dem 
Start der Software in eine effektive Adresse 


umgerechnet werden muß. Besonders in der 
Maschinensprache haben Labels eine große 
Bedeutung, dadas Programm erstzum Laufen an 
der endgültigen Adresse stehen muß. 


Leiterbahn: Leitende Verbindung zweier Punkte 
auf einer Platine. 


Leitungstreiber: Verstärker für digitale Signale, 


Linker: Routine, die einzelne Programmteile zu 
einem zusammenhängenden Code zusammen- 
setzt und zusätzliche Routinen aus anderen 
Quellen einbindet. 


Listing: Ausdruck des Programm-Codes. 


lokale Variable: Variable, die nur in einem 
bestimmten Programmbereich gültig ist. 


Makroassembler: Übersetzungsprogramm von 
Assemblersprache in Maschinencode, den die 
CPUversteht, und das erlaubt, eigene Befehle zu 
definieren. 


Mailbox: Elektronischer Briefkasten für mit dem 
Computer zu übertragende Informationen. 


Maschinencode: Anweisungen in einer für die 
CPU verständlichen Form. Häufig wird Assem- 
bler (eine für den Menschen verständliche Form 
des Maschinencodes) mit Maschinencode ver- 
wechselt. 


Maus: Gerät, das durch Bewegen über eine 
glatte Oberfläche den Cursor (Pfeil) auf einem 
Computer-Bildschirm steuert. 


Menü: Bildschirmgestaltung, die die Arbeit mit 
einem Programm erleichtert. Bei einem Menü 
werden Anweisungen durch Drücken einer Taste 
oder durch Anwahl mit einer Maus oder ähnli- 
‚chem und nicht durch Eingabe des Befehlswor- 
tes erteilt. 


Mikroprozessor: (CPU) Zentraler Baustein eines 
Computers, der für den Programmablauf und die 
Datenverarbeitung zuständig ist. Der Mikropro- 
zessor kommuniziert über Adreß- und Datenbus 
mit den anderen Einheiten des Computers. 


MS-DOS: (Microsoft Disk Operating System) 
Betriebssystem für 16-Bit-Computer mit CPU 
von Intel. 


Multitasking: Paralleler Ablauf verschiedener 
Programme. 


Netzteil: Schaltung (meistens berührungssicher 
in ein Gehäuse eingebaut), die Netzspannung in 
Niederspannung für empfindliche Elektronik 
(zum Beispiel Computer) umwandelt. 


Netzwerk: Verbindung mehrerer allein arbeiten- 
der Computer. Über das Netzwerk werden Infor- 
mationen zwischen den Einzelgeräten ausge- 
tauscht. 


Offset: Differenz zwischen zwei Adressen. 


Oszillograph: Meßgerät, das Spannungsver- 
läufe auf Papier grafisch darstellt. 


Paritätsbit: Gibt an, ob die Zahl der gesetzten 
Bits in einem Byte gerade oder ungerade Ist. 


Pascal: Programmiersprache, die wegen ihrer 
Struktur besonders zum Erlernen des Program- 
mierens geeignet ist. 


Patch: Flicken. Patches dienen dem Beheben 
kleiner Programmfehler und werden direkt inden 
‚Computer eingegeben oder auf den Datenträger 
geschrieben. 


Pi: Unendliche nichtperiodische Zahl, die das 
konstante Verhältnis des Kreisumfangs zum 
Durchmesser angibt (Pi ist näherungsweise 
3.141593). 


Pixel: Bildschirmpunkt 


Portadresse: Adresse für ein Tor zur Peripherie, 
über das Daten mit der CPU ausgetauscht wer- 
den. 

Potentialabgleich: Zwei Schaltungen mit 
getrennter Spannungsversorgung, die miteinan- 
der verbunden werden sollen, müssen einen 
gemeinsamen Bezugspunkt für die Spannungs- 
werte erhalten. Der Bezugspunkt wird in der 
Regel hergestellt, indem die Masse der ersten 
Schaltung an die Masse der zweiten angeschlos- 
sen wird. 


Potentiometer: Regelbarer Widerstand. 


Proportionalschrift: In einem Text, der mit Pro- 
portionalschrift gedruckt wurde, sind nicht alle 
Zeichen gleich breit, sondern nehmen nur so viel 
Platz ein, wie sie unbedingt benötigen. Dadurch 
wird zum Beispiel ein »ie schmaler als ein »m«. 
‚Auch die Schrift, die Sie gerade lesen, ist Propor- 
tionalschrift. 


Puffer: Speicherbereich, der zum Zwischenla- 
gern von Daten dient. Langsame Peripheriege- 
räte, beispielsweise ein Drucker, hindern somit 
nicht mehr den Computer am Weiterarbeiten, da 
die Daten schnellin den Puffer geschrieben wer- 
den und dann unabhängig vom Programm lang- 
sam an das Peripheriegerät weitergeleitet wer- 
den. 

Pull-Down-Menü: Menü, das durch Anklicken 
eines Symbols in der oberen Bildschirmzeile akti- 
viert wird und seinen Menütext aus der Kopfzeile 
heraus auf den Bildschirm herunterschreibt. 
Quellcode: Programmtext, wie er vom Men- 
schen eingegeben wird. 


RAM: Arbeitsspeicher, dessen Inhalt der Anwen- 
der ändern kann. Der Speicherinhalt geht jedoch 
beim Ausschalten des Gerätes verloren. 


Record: Die Datenübertragung zwischen Dis- 
kette und Computer verläuft unter CP/M immerin 
Portionen zu 128 Byte. So eine Portion heißt 
Record. 

Referenzspannung: Bezugsspannung für elek- 
frische Meß- und Umwandlungsvorgänge. 


Register: Speicherzellen innerhalb der CPU, die 
sehr schnell angesprochen werden können und 
damit für die Arbeit der CPU unverzichtbar sind. 
relokatibel: Programme, die überall im Speicher 
liegen und arbeiten können. 


Reset: Rücksetzen des Computers in einen defi- 
nierten Ausgangszustand. Alle gerade ausge- 
führten Aktivitäten werden abgebrochen. 


ROM: Festwertspeicher, der das Betriebssystem 
und weitere feste Daten des Computers enthält. 
Der Inhalt kann vom Anwender nicht überschrie- 
ben und nicht gelöscht werden. 
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RS232C: Norm für eine serielle Schnittstelle. 


RSX: (Resident System Extention) Basic- 
Erweiterung beim Schneider-Computer, die dau- 
erhaft in das Betriebssystem eingebunden wird. 
Die Anweisungen sind durch einen »l« gekenn- 
zeichnet. 


Runtime-Error: Fehler, der während des Pro- 
grammlaufs auftritt. 


Schnittstelle: Gruppe von Signalleitungen, die 
für den Anschluß einer Peripherie-Einheit auf 
eine gemeinsame Buchse (oder Stecker) geführt 
sind 


Schrittmotor: Elektrischer Motor, der sich bei 
jedem Spannungsimpuls um einen definierten 
Winkel dreht. 


Scrollen: Verschieben des gesamten Bild- 
schirms um eine Position (normalerweise nach 
oben). 


Sektor: Jede Spur einer Diskette ist in verschie- 
dene Sektoren eingeteilt. Ein Sektorbereich 
sieht anschaulich wie ein Tortenstück bei einem 
runden Kuchen aus. 


Single Density: Einfache Schreibdichte auf 
einer Diskette (in der Regelim 40-Spur-Betrieb). 


Siow-Ticker: Zeitgeber des Schneiders, der alle 
Y/s0-Sekunden aufgerufen wird. 


Software: Programme, die einen Computer erst 
zu einer leistungsfähigen Maschine machen. 


Spannungsteiler: Serienschaltung von Wider- 
ständen, die eine Gesamtspannung in Einzel- 
spannungen aufteilt. 


Speichererweiterung: Interne oder externe 
Computer-Schaltung, die den Festwertspeicher 
oder Arbeitsspeicher vergrößert. 


Speicheroszilloskop: Elektronisches Meßge- 
rät, das Spannungsverläufe auf einem Bildschirm 
grafisch darstellt und den Signalverlauf spei- 
chert. 


Steuerzeichen: Optisch nicht darstellbares Zei- 
chen, das eine Aktion auslöst. So schaltet zum 
Beispiel <CTRL+P> unter CP/M das Drucker- 
Protokoll ein. 


synchron: (gleichlaufend) Synchrone Ereignisse 
werden vom Computer »passend« (und damit 
meist vom Programm aus) aufgerufen. Gegen- 
satz: asynchron. 


SYS-Datei: Datei, die vom Betriebssystem für 
seine Arbeit direkt gebraucht wird. 


Syntax: Grammatik einer Programmiersprache. 
In der Syntax steht, wie ein Befehl geschrieben 
werden muß und mit welchen Parametern oder 
anderen Anweisungen er kombiniert werden 
darf. 


'System-Format: Beim Schneider wird das Dis- 
kettenformat, das die CP/M-System-Spuren ent- 
hält, als System-Format bezeichnet. 


Systemspuren: Die Spuren einer Diskette, auf 
denen das Betriebssystem (CP/M oder MS- 
DOS) steht. 


Taktfrequenz: Rhythmus, auf den sich zeitlich 
alle Vorgänge im Computer beziehen. 


Tastaturdecodierung: Schaltung, die registriert, 
weiche Tasten einer Tastatur gedrückt werden 
und in ein spezielles Zeichen umsetzt. So kann 
der Computer erkennen, welche Taste gedrückt 
wurde. 


Terminal: Gerät, das der Kommunikation zwi- 
schen Computer und Benutzer dient. Beim 
Schneider sind - wie bei Heimeomputern üblich 
- alle Terminalfunktionseinheiten (Bildschirm und 
Tastatur) bereits im Computer integriert. 


Timer: Zeitgeber 


Tongenerator: Programmierbare Schaltung oder 
Baustein zur Erzeugung von Tönen und Geräu- 
schen 


TPA: (Transient Program Area) Speicherbereich 
unter CP/M, der für Programme frei ist. 


Turtle: Grafikcursor unter Logo (und manchmal 
auch Pascal). 

User: Anwender. Im weiteren Sinne Speicherbe- 
reiche. Der Schneider unterstützt - wie auch 
CP/M - 16 verschiedene Datenbereiche. In die- 
sen lassen sich logisch zusammenhängende 
Programme zusammenfassen. 


Utility: Hilfsprogramm 


Vektor: Sprungadresse zu bestimmten Spei- 
cherbereichen. 


Vibrato: Vibrationen eines Tonsignals durch 
geringfügige Frequenzschwankungen. 


Warmstart: Start eines Programms nach einer 
Unterbrechnung, wobei die Daten noch im Spei- 
cher vorhanden sind. 


Window: Der Schneider erlaubt die Einteilung 
des Bildschirms in acht Bereiche. Diese Win- 
dows werden wie kleine Bildschirme behandelt. 


'Z80: Weit verbreiteter Mikroprozessor, der auch 
in den Schneider CPCs verwendet wird. 


Zeichensatz: Sammlung aller vom Betriebssy- 
stem definierten Zeichen, die der Computer auf 
dem Bildschirm darstellen kann. Der Zeichensatz 
unterteilt sich in Sonderzeichen, alphanumeri- 
sche Zeichen und Grafikzeichen. Die Sonderzei- 
chen liegen im ASCIl-Code-Bereich von 0 bis 31 
und werden in der Regel mit Hilfe der CTRL-Taste 
aufgerufen. Die alphanumerischen Zeichen 
repräsentieren die ASCII-Codes 32 bis 127, und 
die Grafikzeichen schließen sich bis zur Nummer 
255 an. Besitzer desCPC können sämtliche Zei- 
chen durch den SYMBOL-Befehl umdefinieren. 


Zenerdiode: Diode, die in Sperrichtung in eine 
Schaltung eingebaut wird und bei Überschreiten 
einer definierten Spannung durchschaltet. Auf 
diese Weise lassen sich Überspannungen kurz- 
schließen und Versorgungsspannungen stabili- 
sieren. 


Zylinder: Bei einer Festplatte haben auf den ver- 
schiedenen Scheiben übereinanderliegende 
Spuren immer die gleiche Kennziffer, So einen 
gemeinsamen Bereich auf mehreren Scheiben 
bezeichnet man als Zylinder. Auf einer Diskette 
sind Zylinder und Spur das gleiche. 


157 


Sehr positiv wurde unser erster 
Sonderheft-Nachhall aus der letzten 
Ausgabe von den Lesern aufgenom- 
men. Diesmal bieten wir Ihnen die Ver- 
besserungen und Berichtigungen zu 
allen anderen Schneider-Sonderheften 
in dieser Form an. Besonders der 
SMON-Patch für den Maschinenspra- 
che-Monitor und die Hinweise zur 
Anpassung des Disk-Monitors aus der 
letzten Ausgabe an alle CPC-Modelle 
sind wertvolle Informationen für jeden 
Leser. Doch auch die übrigen 
Tips &Tricks helfen Ihnen, Programme 
und Schaltungen aus alten Schneider- 
Sonderheften optimal einzusetzen. 


SMON stark 
verbessert 


So passen Sie den Maschinenspra- 
che-Monitor an alle CPC-Modelle an. 

Im zweiten Schneider-Sonderheft 
haben wir ab Seite 58 den 
Maschinensprache-Monitorr SMON 
veröffentlicht. Für jeden Assembler- 
Programmierer ist dieses Programm 
eine große Hilfe, und die begeisterten 
Leserreaktionen bestärkten uns in 
unseren Bemühungen, den Monitor zu 
verbessern und an alle drei CPC- 
Modelle optimal anzupassen. 

So haben wir ein kleines Patch- 
Programm entwickelt, das den 
Maschinensprache-Monitor selbstän- 
dig vom Datenträger lädt, verbessert, 
nach den Wünschen des Anwenders 
abändert und anschließend die neue 
Version automatisch speichert. 


4 REM SMON-PATCH 
Mm 


r_korrigieren 


„XzPOKE P+l,X 


REI 
3 REN (0) 1906 "Volker Everts 


5 Nenary AIFFELIE PEEK(BBBBB)C>49 THEN L 
DAD"SMON" 

10"IF PEEK(LI=128 THEN CPC=11CPds="a644 
RESTORE 180 

15 IF PEEK(6)=47B THEN CPC=2:CPOs="664": 
RESTORE 200 

20 IF PECK(E) LI THEN CPO=SICPCE="6128" 
Ri 

25 PRINTHPRINT" ee SMON-PATCH CPC-"3CPCS: 
PR 

30 READ EDLPOKE BOIDEJED VEDIT-Aufrus 

Ei 2 POkE 


HERT FUER "35585: INPU 


Listing. Mit diesem Programm wird der SMON noch besser 


Die RSX- und Datei-Befehle funktio- 
nieren danach auch auf dem CPC 664 
einwandfrei. Die Formatierung der Bild- 
schirmausgabe auf dem CPC 664 und 
6128 wird verbessert. Auch der Über- 
setzungsfehler, der den Z80-Befehl 
»LD A,(nnnn)« irrtümlicherweise als »LD 
HL,(nnnn)« interpretiert, ist beseitigt. 

Die Bildschirmparameter für SMON 
können Sie nach den eigenen Wün- 
schen festlegen. Die Wahl zwischen 
Modus 1 und 2 ist ebenso erlaubt wie 
das Setzen der persönlich favorisierten 
Zeichen-, Hintergrund- und Rahmen- 
farbe; das Ganze immer unter der Vor- 
aussetzung, daß das Original-Pro- 
gramm SMON als Datei mit dem Namen 
»smon.bin« auf dem gleichen Daten- 
träger wie das Patch-Programm vorhan- 
den ist. 

Unser Listing zeigt das Patch- 
Programm und macht deutlich, daß nur 
wenige Programmzeilen wesentliche 
Verbesserungen erzielen. Nach dem 
Programmstart wird der Monitor SMON 
an seine Startadresse im Speicher ab 
Adresse 8000 hex geladen. Das Patch- 
Programm stellt automatisch fest, um 
welches CPC-Modell es sich handelt 
und modifiziert den SMON entspre- 
chend. Anschließend liest es die Daten 
für Bildschirm-Modus und Farben direkt 
aus dem SMON heraus und zeigtsie.an. 
Der Anwender wählt entweder neue 
Werte oder bestätigt die alten Daten 
durch erneute Eingabe. 

Sind alle Abfragen beendet, wird die 
neue SMON-Version gespeichert. Die 
Wirkung der neuen Einstellungen kön- 
nen Sie sofort mit dem Befehl »CALL 
&8000« überprüfen. 

(Volker Everts/ma) 


Eerıeı 
t28781 


LaSB63 
tDa921 
L93Ac1 
tnsec3 


tna1sı 
cc1423 


1S3BEI 
t29Fc1 
tEıasJ 


Nachhall 


Light-Cycles läuft ... 


. mit einer kleinen Änderung auf 
allen drei CPC-Modellen. In dem im 3. 
Schneider-Sonderheft ab Seite 92 
abgedruckten Listing müssen Sie ledig- 
lich in den drei Zeilen 334, 336 und 
337 folgende Anpassung vornehmen: 
Sie ersetzen den Wert 26 jeweils durch 
53 (CPC 664) beziehungsweise 63 
(CPC 6128). Hierdurch wird das nie- 
Adreßbyte der Betriebssy- 
stem-Routine »MC-Soundregister« an 
die beiden CPC-Modelle angepaßt. 

(Edda Nerz/ma) 


Und noch eine 
Anpassung 


Das Mathematik-Programm aus dem 
3. Schneider-Sonderheft (Seite 107) 
läuft auch auf den beiden Modellen 
CPC 664 und 6128 einwandfrei, wenn 
Sie die Hardcopy-Routine ab Pro- 
grammzeile 1000 gegen die Hardcopy- 
Routine aus Happy-Computer, Aus- 
gabe 6/86 auf Seite 80 austauschen. 

(ma) 


Aufmerksame Leser haben uns auf 
einen kleinen Fehler im zweiten 
Schneider-Sonderheft auf Seite 85 
(»Daten im direkten Zugriff«) hingewie- 
sen. Dort gibt das Listing 1 die Befehls- 
folge zum Speichern des Maschinen- 
code-Programms fälschlicherweise mit 
einer Länge von 18180 Byte (hex) an. 
Ein Programm dieser Länge würde den 
Speicher des CPC natürlich hoffnungs- 
los überfüllen. Deshalb lautet der kor- 
rekte Befehl zum Speichern des Pro- 
gramms: 


SAVE”erwbin”,b, &4000,&180 (ma) 
Dem Frust 
ein Ende 

Um Mißverständnissen im Artikel 


»Datenübertragung muß nicht teuer 
seine aus dem 2. Schneider- 
Sonderheft (Seite 14) vorzubeugen, 
weisen wir auf Folgendes hin: Die Pin- 
Numerierung des Bausteins 6850 
bezieht sich auf den direkten Anschluß 
an den Sockel des Z80-Prozessors. 
Wenn Sie die serielle Schnittstelle V.24 
mit dem Erweiterungsanschluß verbin- 
den, müssen Sie die Pins entsprechend 
ihrer Funktion umnumerieren, 

Am Baustein 7415393 muß es Pin 9 
statt Pin 10 heißen. Der 74LSO4 arbei- 
tet als Inverter und der 74LS08 über- 
nimmt die Funktion der AND-Gatter. 

(ma) 
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Seite 115 hatten wir zum leichteren Ein- 
geben in Zehnerabstände umnume- 
riert. Leider wurde dabei vergessen, 
das Schema zur Änderung der Gruppen 
mit umzuwandeln. 

Die Namen der drei Gruppen stehen 
in den Programmzeilen 3550 bis 3570. 
Die Variablen az (Anzahl der Mann- 


schaften) und gruppe$ (Name der 
Gruppe) sowie die zugehörigen DATA- 
Zeilen stehen in 4020 bis 4050, 4070 
bis 4100 und 4120 bis 4150. Die ein- 
zelnen Begegnungen müssen Sie in 
den Zeilen 6280 bis 6440 angeben. 
Auf Seite 122 fehlt im Druckpro- 
gramm für Banküberweisungen die 


_Nachhall + + Nachhall + + Nachhall + +Nachhall + + Nachhall 


letzte Zeile. Sie lautet »2460 
RETURN«. 

Die Türme von Hanoi auf Seite 136 
werden nur ab- und aufgebaut, wenn 
die vorletzte Zeile im ersten Block (to 
TVH) »run item:wahl simul selbst« lautet. 
In der Routine »fertig« fehlt außerdem 


das abschließende »ende«. (ma) 


Jetliner — jetzt noch 
schöner als Fliegen 


Der Flugsimulator »Jetliner« aus 
unserem 3. Schneider-Sonderheft 
(Happy-Computer-Sonderheft 4/86) 
faszinierte eine Vielzahl unserer Leser. 
Das zeigte uns die Menge an Briefen 
und Telefonaten zu diesem Programm. 
Einziger Wermutstropfen war die relativ 
schwierige Bedienung, die vor allem 
unerfahreneren Piloten das Flieger- 
leben schwer machte. Jetzt bieten wir 
allen begeisterten Flugkapitänen eine 
Verbesserung ihres Jetliners an. Und 
das Tollste daran: Diese Aufrüstung 
bedarf keines Werkstattaufenthalts. Die 
drei zusätzlichen Ausstattungen: 


Übungs-Landeanflug 
Wählen Sie im Hauptmenü <X>, 


versetzt der CPC Ihr Flugzeug sofort 
zum Beginn des Spiels in die Luft. Die 
Entfernung zum Flughafen beträgt 
dabei zwischen 20 und 35 Meilen. Dar- 
aus ergeben sich zwei Vorteile, Erstens 
können Sie nun den sehr schwierigen 
Landeanflug beliebig oft üben, ohne 
jedesmal den weiten Anflugweg 
zurücklegen zu müssen. Zweitens 
gelangen Anfänger schneller zum ver- 
dienten Erfolgserlebnis. 


Spielstand speichern 

Bevor Sie bei längeren Flügen ris- 
kante Flugmanöver ausprobieren, emp- 
fiehlt es sich, in Zukunft den Spielstand 
durch Druck der Taste <R> unter dem 
Namen des Piloten zu speichern. Bei 
Kassettenbetrieb müssen Sie schon 
vorher die Tasten <REC> und 
<PLAY> drücken, denn die Speiche- 
rung beginnt augenblicklich. 


Spielstand laden 

Drücken Sie während des Starts oder 
des Fluges die Taste <E>, lädt der 
Computer den gespeicherten Spiel- 
stand als neuen Ausgangspunkt. 

Um die neuen Funktionen zu nutzen, 
geben Sie bitte das Listing ein und spei- 
chern es als ASCII-Datei (beispiels- 
weise mit »SAVE "JETMERGE” ae). 
Danach laden Sie die Urfassung des 
Jetliner und lassen die neuen und geän- 
derten Zeilen mit dem Befehl »MERGE 
"JETMERGE ” « automatisch einfügen. 
Die nun fertige neue Version speichern 
Sie schließlich und gehen an den ersten 
Probeflug. Wenn die Änderungen wie 
gewünscht funktionieren, benötigen 
Sie zukünftig weder den alten Jetliner 
noch das Listing des Patchs, so daß Sie 
diese später beruhigt löschen dürfen. 


(Claus Herwig/ja) 


98 CLEAR LsCcEB1 ‚hr L6A9AI 
150 1g=4 [66F4] 8240 INPUT #9,kK8,k2,k3,kö, Ka,ktrl L87C41 
750 CLS:LOCATE 18,12: INPUT"Name des Pilo 8245 INPUT #9,16,17,1,1bl, c2182] 
ten" names LESaCI 6250 INPUT #9,n73salstinzfumrustil,ti2 
1231 LOCÄTE 25,15: PRINT"Landezbung. »..X" ‚sd,trv,22 ,2% ,50U,xc CBCBEI 
12838] 8255 INPÜT #9,hn1$,bn$,d4s,dis LAF7C] 
"x" THEN GOSUB aa02 [35D6] 8268 PEN 1:LOCATE Wmot,smot: PRINT STRING 
1 THEN GOSUB 8258 [B8381 %(3,CHR$ (231) )z IF eo=1 THEN PEN 2aL 
e" THEN 8200 LFA76] OCATE wmot+2,smot: PRINT CHR$(251)  LE9S21 
+4="r" THEN 8300 L1F961 8265 LOCATE wff,sff:PEN 1:PRINT bn# [D&881 
5745 IF ueb=1 THEN 1390 [53021 8278 LOCATE wfw,sfwiPEN 2:IF kB=1 THEN P 
5760 IF b8>z2+20@ THEN 16=zz tarDal RINT CHR$(I34)CHR$(132) ELSE PRINT 
5761 IF ueb=Q THEN RETURN C1B34] CHR$ (137) CHR$ (129) L3EC21 
S008 as=CHR$ (INT (RND*1D) +48) LE77CI 8275 LOCATE wkin,skin:IF k6=@ THEN PEN 2 
B01Q ueb=1 LEB26] ING"#";k6 ELSE PEN 1HPRINT 
8022 RETURN LED941 71073 t17aC1 
8050 a2=15+INT (RND*1Q) [84F2] 8288 LOCATE wklyskl:IF k6=@ THEN PEN 2:P 
8060 ai=15+INT (RND*19) [82F21 RINT CHR$(2@8) ELSE PEN 1:PRINT CHR 
8062 hh=INT (RND*10@) ECABQ] + (204) LD&DR1 
8065 IF RND(1)>2.5 THEN al=alx-1 [9662] 8298 CLOSEIN [5aaaı 
8067 IF RND(1)>0.5 THEN a2=a2x-1 ECB&AJ 8295 G0TO 2a20 [79241 
8268 IF RND(1)>0.5_THEN hh=hh*-1 [F76@1 8300 REM speichern [B160] 
80649 as=aSthheIF a3>=368 THEN aS=as-360 8305 OPENQUT" ! }1"+RIGHT$ (names ,6) c18341 
ELSE IF a3<n THEN aS=as+368 CA3641 8312 PRINT #9,al;a2jaS; ad; asaujabki;abk2 
ga7Q bE-ASKINT(RNDK1OD) +22 L9BA&I 180981 
8080 di$="7":d1=7:67=350:bA=B:h6=1:f3=1: 8315 PRINT #7,b3;b45b5;b6;b7;b8;bki;bk2 L[259A] 
1=7: asau=388:n7=15679: ueb=@ c11921 8320 PRINT #9,d14d23d&;d1;d& LAEZEI 
8128 LOCATE wmot,smotsPEN 1:PRINT STRING 8325 PRINT #7,eljeojeöje7jefjerjedjeS L[BS74] 
$(3,CHR$ (231)) ta7c21 8330 PRINT 49,33 #1; #4; #5; frıfa [869C1 
8130 RETURN LAAFSI 8335 PRINT #9,gr;h2;3h1;h3;h45h5; h65h7;h8 
8200 REM laden [BBEA] LB&A4] 
8205 OPENIN" ! j1"+RIGHT$ (names, 6) 125701 [1856] 
8210 INPUT #9,a1,a2,a3,a4,asau,abki,abk2 [14261 
tECER] 8350 PRINT #9 ,n75malstisztzumgrustiistiz 
8215 INFUT #9,55,64,55 966,57 ,b@,bki,uk2 ESDECI asd;trvszz42x; sous L9AABI 
8220 INPUT #9 ,d1,d2,d6,dl Casaaı asss PRINT #9,Dni33PRINT #9,bns:PRINT #9 
8225 INPUT #7,el,eo,es erst sersen, es [7aA&] dA$:PRINT #9,di$ LES@AI 
8250 INPUT #9,#3,#1,#4,#5,fr,fa [eraa] 8398 ELOSEOUT ESEC41 
8235 INPUT #9,gr ,h2}h1,h3,h4,h5,h6,h7,h8 8395 G0TO 2020 £D92C1 
- Listing. Der beliebte Flugsimulator »Jetliner« noch besser als bisher 
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Wieder einmal kalten Se ein Schn -Sonderheft von 
Happy-Comgiiee war Sichliegen. U eder fragen wir uns, 
ob wir mit unseren Themen fichög legen. Denn diese Frage 
können nur Se — ünzer= Leser - beantworten. Deshalb 
schicken Seunstiiieden unt jehenden Fragebogen aus- 
gefüllt zurück Desn seine Auswertung zeigt uns den Weg, 
den wir mit dem 7. Schneider-Sonderheft einschlagen müs- 
sen. 

Auch der SchneiderTeil im Stamm-Magazin Happy-Com- 
puter wird nach Ihren Vorschlägen gestaltet. Deshalb ist Ihre 
Meinung für uns so immens wichtig. 

Und damit sich die Anstrengung für Sie lohnt, verlosen wir 


Hat Ihnen 
das Heft gefallen? 


unter allen Einsendern eine Reise zur CeBIT 1987 nach Han- 
nover. Informieren Sie sich direkt auf der interessantesten 
Computermesse Deutschlands. 

Schicken Sie den ausgefüllten Fragebogen bis zum 31. 
Januar 1987 (Datum des Poststempels) an: 


Markt&Technik Verlag AG 
Redaktion Happy-Computer 
Kennwort: Schneider-Umfrage 
Hans-Pinsel-Straße 2 
8013 Haar bei München 


(Der Rechtsweg ist ausgeschlossen) (hg) 


Fragebogen zum 6. Schneider-Sonderheft 


Wie hat Ihnen dieses Heft gefallen? 


O sehr gut DI weniger gut 
DO gut DO gar nicht 
© mittel 


Welche Rubriken wollen Sie in Zukunft erweitert sehen? 


EI Hardware DO Einsteiger-Teil 

EI Software DI Aktuelles 

DO Basteleien DO Tips&Tricks 

ED Spiele-Tests DO Spiele-Listings 

ED] CP/M EI) Anwendungs-Listings 


DO) PC-Teil (MS-DOS) 
EI] Grundlagen 


U Grafik-Listings 


Welche Rubriken sollen in Zukunft eingeführt werden? 


Welche Computer-Zeitschriften lesen Sie? 


U] Happy-Computer 
©] deutsche Schneider-Zeitschriften - wenn ja, welche? 


DI englische Amstrad-Zeitschriften 
U andere - wenn ja, welche? 


Welche Schneider-Sonderausgaben von Happy- 
Computer haben Sie sich schon gekauft? 

© 1. Schneider-Sonderheft 

D 2. Schneider-Sonderheft 

EI 3. Schneider-Sonderheft 

EI 4. Schneider-Sonderheft 

U 5. Schneider-Sonderheft 


PP» 
BR ECENESER 


Wenn Sie alle sechs Schneider-Sonderhefte 
besitzen, welches hat Ihnen am besten gefallen? 


OD 1. Schneider-Sonderheft 
D 2. Schneider-Sonderheft 
©] 3. Schneider-Sonderheft 
OD 4. Schneider-Sonderheft 
O5. Schneider-Sonderheft 
0 6. Schneider-Sonderheft 


Welchen Computer besitzen Sie? 


DO Schneider CPC 464 D einen anderen, welchen? 
©] Schneider CPC 664 

Ü Schneider CPC 6128 

U) Schneider Joyce 

©] Schneider PC 


Welchen Diskettencontroller besitzen Sie? 


DD Schneider Dl einen anderen, welchen? 
OD Vortex 
U Vortex X-Controller 


Welche Speichererweiterung besitzen Sie? 


OD) Data Media D eine andere, welche? 
DO dk'tronics 
Ü Vortex 


Ich bin damit einverstanden, daß die hier gemachten 
Angaben elektronisch verarbeitet werden. 
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